用以下代码实现了记录集的分页显示（每页显示16条记录）。

<%
set rs3=server.createobject("adodb.recordset")
sqltext3="select * from zlss_info order by id desc"
rs3.open sqltext3,conn,1,1
%>
<%
rs3.PageSize = 16
Page = CLng(Request("Page")) //string型转化为long型  
num=rs3.recordcount 
If Page < 1 Then Page = 1  
If Page > rs3.PageCount Then Page = rs3.PageCount  
%> 
<% 
rs3.AbsolutePage = Page //把页码赋给absolutepage属*从而知当前页的首条记录号  
For iPage = 1 To rs3.PageSize 
%>              
<% 
'rs3.MoveNext
If rs3.EOF Then Exit For  
Next  
 %>     
 <%
If Page < 1 Then Page = 1  
If Page > rs3.PageCount Then Page = rs3.PageCount  
If Page <> 1 Then  
Response.Write "<A HREF=?Page=1>第一页</A>"  
Response.Write "<A HREF=?Page="&(Page - 1)&">上一页</A>"  
End If  
If Page <> rs3.PageCount Then  
Response.Write "<A HREF=?Page="&(Page + 1)&">下一页</A>"  
Response.Write "<A HREF=?Page="&rsfy.PageCount&">最后一页</A>"  
End If  
Response.write"当前页码："&Page&"/"&rs3.PageCount&  "</font>"  
Response.write"总 记 录："&num&" </font>" 
Response.write"&nbsp; &nbsp;&nbsp;</font>" 
Response.write"本页最多显示："&rs3.PageSize&"条 </font>"     
rs3.close
%>           
    

用以下代码实现了记录集中的所有照片分四列显示：    


<%   
  i=0   
  do   while   not   rs3.eof     
  If   i   Mod   4   =0   Then   Response.write  "<tr>"   
  %>   
     <td width="281"   height="23" valign="top">     
      <img border="1" src="<%=rs3("img")%>" width="90" height="70"> 
     </td>   
  <%         
  If   i   Mod  4=3  Then   Response.write   "</tr>"   
  rs3.movenext   
  i=i+1   
  loop   
  'rs3.close   
  %>   

问题是这样的：怎样把每页显示的16条记录，按四列显示？？