激情久久久_欧美视频区_成人av免费_不卡视频一二三区_欧美精品在欧美一区二区少妇_欧美一区二区三区的

服務(wù)器之家：專(zhuān)注于服務(wù)器技術(shù)及軟件下載分享
分類(lèi)導(dǎo)航

PHP教程|ASP.NET教程|Java教程|ASP教程|編程技術(shù)|正則表達(dá)式|C/C++|IOS|C#|Swift|Android|VB|R語(yǔ)言|JavaScript|易語(yǔ)言|vb.net|

服務(wù)器之家 - 編程語(yǔ)言 - ASP教程 - asp分頁(yè)（自己整理的2個(gè)分頁(yè)程序）

asp分頁(yè)（自己整理的2個(gè)分頁(yè)程序）

2019-09-27 09:23asp代碼網(wǎng) ASP教程

asp分頁(yè)（自己整理的2個(gè)分頁(yè)程序）

  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分頁(yè)程序</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 '設(shè)置頁(yè)面顯示得頁(yè)數(shù) 
  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("首頁(yè)")else response.Write("<a href='c.asp?page=1'>"&"首頁(yè)"&"</a>")%> 
  49.     
  50.   <%if epage=1 then response.write("上一頁(yè)")else response.write"<a href=c.asp?page="&epage-1&">上一頁(yè)</a>"%> 
  51.     
  52.   <%if epage = rs.pagecount then response.write("下一頁(yè)")else response.write"<a href=c.asp?page="&epage+1&">下一頁(yè)</a>"%> 
  53.     
  54.   <%if epage = rs.pagecount then response.write("末頁(yè)")else response.write"<a href=c.asp?page="&rs.pagecount&">末頁(yè)</a>"%> 
  55.     現(xiàn)在是第<font color="red"><%=epage%></font>頁(yè)一共有<font color="red"><%=rs.pagecount%></font>頁(yè) 
  56.   <input name="page" value="<%=epage%>" maxlength=5 tyep=text /> 
  57. 頁(yè) 
  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>沒(méi)有任何記錄</span>" 
  94.     Response.End 
  95.    Else 
  96.     mRs.PageSize =6'每頁(yè)記錄條數(shù) 
  97.     iCount=mRs.RecordCount '記錄總數(shù) 
  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.     '生成上一頁(yè)下一頁(yè)鏈接 
  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 ("首頁(yè) " ) 
  153.       Response.Write ("上一頁(yè) ") 
  154.      Else 
  155.       Response.Write("<a href=" & action & "?" & temp & "Page=1>首頁(yè)</a> ") 
  156.       Response.Write("<a href=" & action & "?" & temp & "Page=" & (Page-1) & ">上一頁(yè)</a> ") 
  157.      End If 
  158.      If page>=pagecount then 
  159.       Response.Write ("下一頁(yè) ") 
  160.       Response.Write ("尾頁(yè) ") 
  161.      Else 
  162.       Response.Write("<a href=" & action & "?" & temp & "Page=" & (Page+1) & ">下一頁(yè)</a> ") 
  163.       Response.Write("<a href=" & action & "?" & temp & "Page=" & pagecount & ">尾頁(yè)</a> ") 
  164.      End If 
  165.      Response.Write(" 頁(yè)次：" & page & "/" & pageCount & " 頁(yè)") 
  166.      Response.Write(" 共有 " & iCount & " 條留言") 
  167.      Response.Write(" 轉(zhuǎn)到 " & "<input tyep=text name=page maxlength=5 value=" & page & " style='font-size: 12px;border: 1px solid #CCCCCC;width:23px;'>" & " 頁(yè) <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>  

延伸 · 閱讀

精彩推薦
主站蜘蛛池模板： 在线天堂中文在线资源网 | 亚洲成人午夜精品 | 天天操很很操 | 羞羞漫画无遮挡观看 | 中文字幕在线观看www | 中文字幕在线观看免费视频 | 日本aaaa片毛片免费观蜜桃 | 男女羞羞视频在线免费观看 | 日韩av电影免费在线观看 | 在线 日本 制服 中文 欧美 | 色播视频在线播放 | 日本网站在线看 | 国产免费观看a大片的网站 欧美成人一级 | 男女羞羞在线观看 | 黄色va视频 | 久久看免费视频 | 色综合狠狠 | 视频一区二区中文字幕 | 久久精品视频首页 | 在线日韩亚洲 | 欧美一区二区三区四区夜夜大片 | ⅴideo裸体秀hd | 成人免费毛片片v | 成人短视频在线播放 | 欧美h版在线观看 | 国产午夜精品久久久久久免费视 | 免费国产视频大全入口 | av在线播放免费观看 | 亚洲爱爱网站 | 欧美精品一区自拍a毛片在线视频 | 黄在线免费 | 一级α片 | 久久96国产精品久久久 | 精品亚洲一区二区 | 亚洲成人精品视频 | 日韩激情一区二区三区 | 久久久www成人免费精品 | 麻豆视频观看 | 美女黄视频在线观看 | 一区二区免费网站 | 女人久久久www免费人成看片 |