下面的代码怎么改成自显示6条
<div style="padding: 8px 12px;">
<div style="color: Red; font-weight: bolder;">
案例分类</div>
<%
sql="select * from smallclass_img where bigclassid=" & bigclassid & " order by px"
set rs=Server.CreateObject("Adodb.RecordSet")
rs.Open sql,conn,1,1
columns=7:i=0
%>
<table cellpadding="0" cellspacing="8">
<tr>
<% do while not rs.eof %>
<td>
<a href="?bigclassid=<%=bigclassid %>&smallclassid=<%=rs.fields("smallclassid") %>">
<img src="../../../../../images/correct.gif" alt="" align="absmiddle" /> <%=rs.fields("smallclassname") %></a></td>
<%
rs.movenext
i=i+1
if i mod columns=0 and not rs.eof then
Response.Write ("</tr><tr>")
end if
loop
%>
</tr>
</table>
<%rs.close:set rs=nothing %>
<hr />
</div>
<table cellpadding="0" cellspacing="0">
<tr>
<td style="padding: 5px 12px; line-height: 180%; height: 415px;">
<%
set rs= img.Load("",pwhere,"order by n.id desc")
rs.PageSize=MaxItemSize
TotalNumber=rs.RecordCount
TotalPage=rs.PageCount
if not rs.EOF then
rs.AbsolutePage=CurrentPage
else
Response.Write("暂无案例")
end if
i=0
do while not rs.eof
%>
<table cellpadding="0" cellspacing="8" style="border-bottom:solid 1px #ccc;">
<tr>
<td class="caselisttd01">
<a href="<%=rs.fields("url") %>" target="_blank"><img src="<%=rs.fields("img") %>" alt="<%=rs.fields("title") %>" width="130" height="80" align="absmiddle" /></a>
<div style="text-align:center;"><a href="<%=rs.fields("img") %>" target="_blank">查看图片</a> <a href="<%=rs.fields("url") %>" target="_blank">访问网站</a></div></td>
<td><div>客户:<%=rs.Fields("title") %></div>
<div>说明:<%=rs.Fields("content") %></div></td>
</tr>
</table>
<%
rs.movenext
i=i+1
if i>=MaxItemSize then
Exit do
end if
loop%>
<% rs.close:set rs=nothing%>
</div>
<div style="text-align: center; padding: 12px 12px 0px;">
<% call AbineShowPage(filePath,CurrentPage,MaxItemSize,TotalNumber,TotalPage) %>
</div>
</td>
</tr>
</table>
</td>
<td style="width: 4px;">
</td>
<td style="width: 266px;">
<!--#include file="right.asp" -->
</td>
</tr>
</table>
</div>