asp分页(自己整理的2个分页程序)

时间:2022-09-17 11:38:35
  1. <%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%> 
  2. <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"
  3. <html xmlns="http://www.w3.org/1999/xhtml"
  4. <head> 
  5. <meta http-equiv="Content-Type" content="text/html; charset=gb2312" /> 
  6. <title>asp分页程序</title> 
  7. <style type="text/css"
  8. <!-- 
  9. .STYLE1 {font-size: 12px} 
  10. --> 
  11. </style></head> 
  12. <body> 
  13. <p> 
  14. <table width="186" height="39" border="1" cellpadding="0" cellspacing="0"
  15. <tr> 
  16.   <td>姓名</td> 
  17. <td>密码</td> 
  18. </tr> 
  19.   <% 
  20. set rs=server.createobject("adodb.recordset")  
  21. conn = "DBQ=" + server.mappath("zheng.mdb") + ";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"  
  22. sql="select * from user"  
  23.  
  24. rs.open sql,conn,1,2  
  25. rs.pagesize=6 '设置页面显示得页数 
  26.    if request("page")<>"" then 
  27.      epage=cint(request("page")) 
  28.       if epage<1 then epage=1 
  29.       if epage>rs.pagecount then epage=rs.pagecount 
  30.    else 
  31.    epage=1 
  32.    end if 
  33.    rs.absolutepage=epage 
  34.    for i=0 to rs.pagesize-1 
  35.    if rs.bof or rs.eof then exit for 
  36. %><tr> 
  37.   <td><%=rs("name")%></td> 
  38.   <td><%=rs("pass")%></td> 
  39. </tr> 
  40.  
  41. <% 
  42. rs.movenext  
  43. next 
  44. %> 
  45. </table> 
  46. <div align="left"><span class="STYLE1"
  47. <form method="get" onsubmit=""document.location ="c.asp?Page='+ this.page.value;return false;'"
  48.   <%if epage=1 then response.Write("首页")else response.Write("<a href='c.asp?page=1'>"&"首页"&"</a>")%> 
  49.     
  50.   <%if epage=1 then response.write("上一页")else response.write"<a href=c.asp?page="&epage-1&">上一页</a>"%> 
  51.     
  52.   <%if epage = rs.pagecount then response.write("下一页")else response.write"<a href=c.asp?page="&epage+1&">下一页</a>"%> 
  53.     
  54.   <%if epage = rs.pagecount then response.write("末页")else response.write"<a href=c.asp?page="&rs.pagecount&">末页</a>"%> 
  55.     现在是第<font color="red"><%=epage%></font>页一共有<font color="red"><%=rs.pagecount%></font>页 
  56.   <input name="page" value="<%=epage%>" maxlength=5 tyep=text /> 
  57. 页 
  58. <input type=submit value=GO style="font-size:12px;border:1px solid #CCCCCC;width:23px;" /></form> 
  59. </div> 
  60. <p> </p> 
  61. <p>  
  62.   <% 
  63.  
  64. name=request("name"
  65. pass=request("pass"
  66. if name<>"" and pass<>"" then 
  67. rs.Addnew 
  68. rs("name")=name 
  69. rs("pass")=pass 
  70. rs.update 
  71. rs.close 
  72. end if 
  73. %> 
  74. </p> 
  75. </p> 
  76. <form id="form1" name="form1" method="post" action=""
  77.   <p> 
  78.     <input name="name" type="text" id="name" /> 
  79. </p> 
  80.   <p> 
  81.     <input name="pass" type="text" id="pass" /> 
  82.     <input type="submit" name="Submit" value="提交" /> 
  83. </p> 
  84. </form> 
  85. <p> 
  86. <table width="63%" border="0" cellpadding="0" cellspacing="1" bgcolor="#0000FF" style="border-collapse: collapse"
  87.   <% 
  88. set mrs=server.createobject("adodb.recordset")  
  89. conn = "DBQ=" + server.mappath("zheng.mdb") + ";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"  
  90. sql="select * from user"  
  91. mrs.open sql,conn,1,1 
  92. If mRs.bof and mRs.eof then 
  93.     Response.Write"<span>没有任何记录</span>" 
  94.     Response.End 
  95.    Else 
  96.     mRs.PageSize =6'每页记录条数 
  97.     iCount=mRs.RecordCount '记录总数 
  98.     iPageSize=mRs.PageSize 
  99.     maxpage=mRs.PageCount 
  100.     page=request("page"
  101.  
  102.     If Not IsNumeric(page) or page="" then 
  103.      page=1 
  104.     Else 
  105.      page=cint(page) 
  106.     End If 
  107.     If page<1 then 
  108.      page=1 
  109.     ElseIf  page>maxpage then 
  110.      page=maxpage 
  111.     End If 
  112.      mRs.AbsolutePage=Page 
  113.     If page=maxpage then 
  114.      x=iCount-(maxpage-1)*iPageSize 
  115.     Else 
  116.      x=iPageSize 
  117.     End If 
  118.    End If 
  119.    for i=1 to mRs.pagesize 
  120.  
  121. %> 
  122. <tr> 
  123. <td width="64%" bgcolor="#FFFFFF" class="STYLE1"><%=mrs("name")%></td> 
  124. <td width="36%" bgcolor="#FFFFFF" class="STYLE1"><%=mrs("pass")%></td> 
  125. </tr><% 
  126.   mRs.movenext 
  127.      If mRs.eof then exit for 
  128.      next 
  129.      mRs.close 
  130.      Set mRs=nothing 
  131.      %> 
  132. <tr> 
  133. <td colspan="2" bgcolor="#CCCCCC"
  134.     <span class="STYLE1"
  135.     <% 
  136.     call PageControl(iCount,maxpage,page) 
  137.     Sub PageControl(iCount,pagecount,page) 
  138.     '生成上一页下一页链接 
  139.     Dim query, a, x, temp 
  140.     action = "http://" & Request.ServerVariables("HTTP_HOST") & Request.ServerVariables("SCRIPT_NAME"
  141.     query = Split(Request.ServerVariables("QUERY_STRING"), "&"
  142.     For Each x In query 
  143.      a = Split(x, "="
  144.      If StrComp(a(0), "page", vbTextCompare) <> 0 Then 
  145.       temp = temp & a(0) & "=" & a(1) & "&" 
  146.      End If 
  147.     Next 
  148.      Response.Write("<table border='0' cellpadding='3' style='border-collapse: collapse' width='100%' align='center'>"
  149.      Response.Write("<form method=get onsubmit=""document.location = '" & action & "?" & temp & "Page='+ this.page.value;return false;""><tr>"
  150.      Response.Write("<td align='center' bgcolor='#FFFFFF'>"
  151.      If page<=1 then 
  152.       Response.Write ("首页 " ) 
  153.       Response.Write ("上一页 "
  154.      Else 
  155.       Response.Write("<a href=" & action & "?" & temp & "Page=1>首页</a> "
  156.       Response.Write("<a href=" & action & "?" & temp & "Page=" & (Page-1) & ">上一页</a> "
  157.      End If 
  158.      If page>=pagecount then 
  159.       Response.Write ("下一页 "
  160.       Response.Write ("尾页 "
  161.      Else 
  162.       Response.Write("<a href=" & action & "?" & temp & "Page=" & (Page+1) & ">下一页</a> "
  163.       Response.Write("<a href=" & action & "?" & temp & "Page=" & pagecount & ">尾页</a> "
  164.      End If 
  165.      Response.Write(" 页次:" & page & "/" & pageCount & " 页"
  166.      Response.Write(" 共有 " & iCount & " 条留言"
  167.      Response.Write(" 转到 " & "<input tyep=text name=page maxlength=5 value=" & page & " style='font-size: 12px;border: 1px solid #CCCCCC;width:23px;'>" & " 页 <input type=submit style=""font-size: 9pt"" value=GO style='font-size: 12px;border: 1px solid #CCCCCC;width:23px;'>"
  168.      Response.Write("</td></tr></form>"
  169.      Response.Write("</table>"
  170.  
  171.     End Sub 
  172.     %> 
  173.     </span></td> 
  174. </tr>    
  175. </table> 
  176. <span class="STYLE1"
  177. </p> 
  178.  
  179. </form> 
  180. </body> 
  181. </html>