各位大虾，帮忙看一下这个程序，小弟对他写的分页实在是看不懂，还望各位给做一下批注。
谢谢了。。。。
<% if session("admin_name")="" then response.end %> <!--#include file="conn.asp"--> <% dim rs,sql dim page,maxPerPage maxPerPage=10 '每页显示的记录数 myKeyword=Request("myKeyword") page=Request("page") if (page="" or isempty(page)) then page=1 thisUrl="usermanage.asp?myKeyword="&myKeyword session("adminOldUrl")=thisUrl&"&page="&page set rs=server.createobject("adodb.recordset") sql="select * from member where 1=1" if not (myKeyword="" or isempty(myKeyword) ) then sql=sql&" and user_name like '%"&myKeyword&"%'" end if sql=sql&" order by user_id" 'response.write sql 'response.End rs.open sql,conn,1,1 rs.pagesize=MaxPerPage %> <html> <head> <title>会员管理</title> <meta http-equiv="Content-Type" content="text/html; charset=gb2312"> <link href=css.css rel=STYLESHEET type=text/css> <script language=Javascript> <!-- function jumpTo(i){ if(i==1){ this.document.location="<%=thisUrl%>";} if(i==2){ this.document.location="<%=thisUrl%>&page=<%=page-1%>";} if(i==3){ this.document.location="<%=thisUrl%>&page=<%=page+1%>";} if(i==4){ this.document.location="<%=thisUrl%>&page=<%=rs.pageCount%>";} } //--> </script> </head>
<body bgcolor="#9CC7EF" text="#000000" leftmargin="0" topmargin="0"> <div align="center"><br> 会员管理 </div> <div align="center"> <table width="98%" border="1" bordercolordark=#E4E4E4 bordercolorlight=#B0B0B0 cellspacing="0" cellpadding="4"> <tr> <form method="post" action="usermanage.asp" name="form1"> <td colspan="6" bgcolor="#808080"> <div align="right"><font color="#FFFFFF">关键词</font> <input type="text" name="myKeyword" size="16" value="<%=myKeyword%>"> <input type="submit" name="Submit" value="搜索"> </div> </td> </form> </tr> <tr bgcolor="#5EA5E6"> <td width="12%" nowrap bgcolor="#B0B0B0"> <div align="center"><font color="#FFFFFF"> 会员帐号</font></div> </td> <td width="10%" nowrap bgcolor="#B0B0B0"> <div align="center"><font color="#FFFFFF">常用电话</font></div> </td> <td width="22%" nowrap bgcolor="#B0B0B0"> <div align="center"><font color="#FFFFFF">E-mail</font></div> </td> <td width="31%" nowrap bgcolor="#B0B0B0"> <div align="center"><font color="#FFFFFF">收货地址</font></div> </td> <td width="10%" nowrap bgcolor="#B0B0B0"> <div align="center"><font color="#FFFFFF">邮政编码</font></div> </td> <td width="15%" nowrap bgcolor="#B0B0B0"> <div align="center"><font color="#FFFFFF">详细信息</font></div> </td> </tr> <% dim rsID i=1 if not (rs.eof or err) then rs.move (page-1)*maxPerPage do while not (rs.eof or err) user_yes=rs("user_yes") user_regtime=rs("user_regtime") rsID=rs("user_id") user_company=rs("user_company") comdate=datediff("d",user_regtime,date()) %> <tr title="点击查看具体信息" style="cursor:hand" onClick="Javascript:window.location='memberMod.asp?id=<%=rs("user_id")%>'"> <td width="12%"><%=rs("user_name")%> </td> <td width="10%"><%=rs("user_tel")%> </td> <td width="22%"><%=rs("user_mail")%> </td> <td width="31%"><%=rs("user_adds")%> </td> <td width="10%"><%=rs("user_postcode")%> </td> <td width="15%"> <a title="查看具体信息" onClick="Javascript:window.location='memberMod.asp?id=<%=rs("user_id")%>'">查看详细信息</a></td> </tr> <% i=i+1 if i>maxPerPage then exit do rs.moveNext loop %> <tr bgcolor="#4296E7"> <td colspan="6" bgcolor="#808080"> <div align="right"><font color=#FFFFFF><%=rs.recordCount%> 项 第<%=page%>/<%=rs.pageCount%> 页 </font> <%if page>1 then%> <input type="button" name="Submit3" value="首页" onClick="Javascript:jumpTo(1)"> <input type="submit" name="Submit4" value="上页" onClick="Javascript:jumpTo(2)"> <%else%> <input type="button" name="Submit3" value="首页" disabled> <input type="submit" name="Submit4" value="上页" disabled> <%end if if rs.recordCount>page*maxPerPage then%> <input type="submit" name="Submit5" value="下页" onClick="Javascript:jumpTo(3)"> <input type="submit" name="Submit6" value="末页" onClick="Javascript:jumpTo(4)"> <%else%> <input type="submit" name="Submit5" value="下页" disabled> <input type="submit" name="Submit6" value="末页" disabled> <%end if%> </div> </td> </tr> </table> </div> </body> </html>
