服务器之家：专注于服务器技术及软件下载分享
分类导航

PHP教程|ASP.NET教程|JAVA教程|ASP教程|

服务器之家 - 编程语言 - ASP教程 - asp分页（自己整理的2个分页程序）

asp分页（自己整理的2个分页程序）

2019-09-27 09:23asp代码网 ASP教程

asp分页（自己整理的2个分页程序）

  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>  
  • asp
  • 分页

    • 延伸 · 阅读

    精彩推荐
    最近更新
    编辑推荐
    阅读排行
    热门标签
    SQL命令 　 dll文件 　 QueryString 　 对象错误 　 msxml3.dll 　 80072ee7 　 innerHTML 　 回车符 　 ExecuteGlobal 　 CutStrX 　 ScriptTimeOut 　 远程 　 空值 　 批处理 　 XHTML 　 Scripting 　 FileSystemObject 　 目录读写 　 权限检测 　 ASP注入 　 CC攻击 　 Err.Number 　 错误描述 　 禁止 　 源码分享 　 相对路径 　 页面执行效率 　 源程序 　 function 　 like 　
    © 2019-2025 服务器之家 版权所有 www.zzvips.com 关于我们联系我们版权申明网站地图