ASP分页

Question

<table width="528" border="0" align="center" cellpadding="0" cellspacing="0">
                          <%
id=rs("username")
Set rs = Server.CreateObject("ADODB.Recordset")
SQL= "Select * from zl where name='"&id&"'"
rs.open sql, conn, 1, 1%>
                          <% if rs.eof and rs.bof then
    response.write "<tr><td bgcolor=#ffffff><center>对不起！您暂时还没有购买记录</center></td></tr>"
else %>
                          <%do while not rs.eof%>
                          <tr>
                            <td><table width="528" border="0" align="center" cellpadding="5" cellspacing="1" bordercolordark="#FFFFFF" bgcolor="#CCCCCC">
                              <tr>
                                <td width="32%" bgcolor="#FFFFFF"> 顾客姓名：<%=rs("xingming")%></td>
                                <td width="59%" bgcolor="#FFFFFF">购买日期：<%=rs("paijingriqi")%></td>
                                <td width="9%" bgcolor="#FFFFFF"><div align="center"><a href="#" onClick="javascript:var win=window.open('Linkman_Views.asp?id=<%=Rs("ID")%>','详细信息','width=880,height=470,top=176,left=161,toolbar=no,location=no,directories=no,status=no,menubar=no,resizable=no,scrollbars=yes'); win.focus()"><font color="red">查看</font></a></div></td>
                              </tr>
                            </table></td>
                          </tr>
                          <%
  rs.movenext
  loop  rs.close
  set rs=nothing
  %>
                          <%end if
   %>
</table>
<br>
<%End if%>上面这个代码是不带分页的，用起来不方便，麻烦高手帮忙直接把代码写出来，我粘贴就能用的，我自己对这个不懂，谢谢了

Answer 1

弄完了，别忘记结贴。
<table width="528" border="0" align="center" cellpadding="0" cellspacing="0">
<%
id=rs("username")
Set rs = Server.CreateObject("ADODB.Recordset")
SQL= "Select * from zl where name='"&id&"'"
rs.open sql, conn, 1, 1if rs.eof and rs.bof then
    response.write "<tr><td bgcolor=#ffffff><center>对不起！您暂时还没有购买记录</center></td></tr>"
else 
page = 1
rs.pagesize=20
if request("page")<>"" then 
page=cint(request("page"))
if page<1 then page=1
if page > rs.pagecount then page=rs.pagecount
end if
rs.absolutepage=page for i=0 to rs.pagesize-1
if rs.bof or rs.eof then exit for
%>
                          <tr>
                            <td><table width="528" border="0" align="center" cellpadding="5" cellspacing="1" bordercolordark="#FFFFFF" bgcolor="#CCCCCC">
                              <tr>
                                <td width="32%" bgcolor="#FFFFFF"> 顾客姓名：<%=rs("xingming")%></td>
                                <td width="59%" bgcolor="#FFFFFF">购买日期：<%=rs("paijingriqi")%></td>
                                <td width="9%" bgcolor="#FFFFFF"><div align="center"><a href="#" onClick="javascript:var win=window.open('Linkman_Views.asp?id=<%=Rs("ID")%>','详细信息','width=880,height=470,top=176,left=161,toolbar=no,location=no,directories=no,status=no,menubar=no,resizable=no,scrollbars=yes'); win.focus()"><font color="red">查看</font></a></div></td>
                              </tr>
                            </table></td>
                          </tr>
                          <%
rs.movenext()
next

rs.close
set rs=nothing
end if
%>
</table>
<table width="528" height="25" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td align="center">
<a href="">首页</a>&nbsp;&nbsp;
<a href="">前一页</a>&nbsp;&nbsp;
<a href="">后一页</a>&nbsp;&nbsp;
<a href="">末页</a>
</td>
  </tr>
</table><br>
<%End if%>