asp又一个分页的代码例子

时间：2021-12-01 16:17:07

一个分页代码例子

  1. <%''本程序文件名为：Pages.asp%>  
  2. <%''包含ADO常量表文件adovbs.inc，可从"\Program Files\Common Files\System\ADO"目录下拷贝%>  
  3. <!--#Include File="adovbs.inc"-->  
  4. <%''＊建立数据库连接，这里是Oracle8.05数据库  
  5. Set conn=Server.CreateObject("ADODB.Connection")   
  6. conn.Open "Provider=msdaora.1;Data Source=YourSrcName;User ID=YourUserID;Password=YourPassword;"   
  7.  
  8. Set rs=Server.CreateObject("ADODB.Recordset") ''创建Recordset对象  
  9. rs.CursorLocation=adUseClient ''设定记录集指针属性  
  10. ''＊设定一页内的记录总数，可根据需要进行调整   
  11. rs.PageSize=10   
  12.  
  13. ''＊设置查询语句   
  14. StrSQL="Select ID,姓名,住址,电话 from 通讯录 Order By ID"   
  15. rs.Open StrSQL,conn,adOpenStatic,adLockReadOnly,adCmdText  
  16. %>  
  17. <HTML>  
  18. <HEAD>  
  19. <title>分页示例</title>  
  20. <script language=javascript>  
  21. //点击"[第一页]"时响应：  
  22. function PageFirst()  
  23. {   
  24. document.MyForm.CurrentPage.selectedIndex=0;  
  25. document.MyForm.CurrentPage.onchange();  
  26. }  
  27. //点击"[上一页]"时响应：  
  28. function PagePrior()  
  29. {   
  30. document.MyForm.CurrentPage.selectedIndex--;  
  31. document.MyForm.CurrentPage.onchange();  
  32. }  
  33. //点击"[下一页]"时响应：  
  34. function PageNext()  
  35. {   
  36. document.MyForm.CurrentPage.selectedIndex++;  
  37. document.MyForm.CurrentPage.onchange();   
  38. }  
  39. //点击"[最后一页]"时响应：  
  40. function PageLast()  
  41. {   
  42. document.MyForm.CurrentPage.selectedIndex=document.MyForm.CurrentPage.length-1;  
  43. document.MyForm.CurrentPage.onchange();  
  44. }  
  45. //选择"第？页"时响应：  
  46. function PageCurrent()  
  47. { //Pages.asp是本程序的文件名  
  48. document.MyForm.action='Pages.asp?Page='+(document.MyForm.CurrentPage.selectedIndex+1)  
  49. document.MyForm.submit();  
  50. }   
  51. </Script>  
  52. </HEAD>  
  53. <BODY bgcolor="#ffffcc" link="#008000" vlink="#008000" alink="#FF0000"">  
  54.  
  55. <%IF rs.Eof THEN  
  56. Response.Write("<font size=2 color=#000080>[数据库中没有记录！]</font>")  
  57. ELSE   
  58. ''指定当前页码  
  59. If Request("CurrentPage")="" Then  
  60. rs.AbsolutePage=1  
  61. Else  
  62. rs.AbsolutePage=CLng(Request("CurrentPage"))  
  63. End If   
  64.  
  65. ''创建表单MyForm,方法为Get  
  66. Response.Write("<form method=Get name=MyForm>")   
  67. Response.Write("<p align=center><font size=2 color=#008000>")  
  68. ''设置翻页超链接  
  69. if rs.PageCount=1 then   
  70. Response.Write("[第一页] [上一页] [下一页] [最后一页] ")  
  71. else   
  72. if rs.AbsolutePage=1 then  
  73. Response.Write("[第一页] [上一页] ")  
  74. Response.Write("[<a href=javascript:PageNext()>下一页</a>] ")   
  75. Response.Write("[<a href=javascript:PageLast()>最后一页</a>] ")   
  76. else   
  77. if rs.AbsolutePage=rs.PageCount then  
  78. Response.Write("[<a href=javascript:PageFirst()>第一页</a>] ")   
  79. Response.Write("[<a href=javascript:PagePrior()>上一页</a>] ")   
  80. Response.Write("[下一页] [最后一页] ")  
  81. else  
  82. Response.Write("[<a href=javascript:PageFirst()>第一页</a>] ")   
  83. Response.Write("[<a href=javascript:PagePrior()>上一页</a>] ")   
  84. Response.Write("[<a href=javascript:PageNext()>下一页</a>] ")   
  85. Response.Write("[<a href=javascript:PageLast()>最后一页</a>] ")   
  86. end if  
  87. end if  
  88. end if  
  89.  
  90. ''创建下拉列表框，用于选择浏览页码  
  91. Response.Write("第<select size=1 name=CurrentPage onchange=PageCurrent()>")   
  92. For i=1 to rs.PageCount   
  93. if rs.AbsolutePage=i then  
  94. Response.Write("<option selected>"&i&"</option>") ''当前页码  
  95. else  
  96. Response.Write("<option>"&i&"</option>")  
  97. end if   
  98. Next   
  99. Response.Write("</select>页/共"&rs.PageCount&"页 共"&rs.RecordCount&"条记录</font><p>")   
  100. Response.Write("</form>")  
  101.  
  102. ''创建表格，用于显示  
  103. Response.Write("<table align=center cellspacing=1 cellpadding=1 border=1")   
  104. Response.Write(" bordercolor=#99CCFF bordercolordark=#b0e0e6 bordercolorlight=#000066>")  
  105.  
  106. Response.Write("<tr bgcolor=#ccccff bordercolor=#000066>")   
  107.  
  108. Set Columns=rs.Fields   
  109.  
  110. ''显示表头  
  111. For i=0 to Columns.Count-1  
  112. Response.Write("<td align=center width=200 height=13>")  
  113. Response.Write("<font size=2><b>"&Columns(i).name&"</b></font></td>")   
  114. Next  
  115. Response.Write("</tr>")  
  116. ''显示内容  
  117. For i=1 to rs.PageSize   
  118. Response.Write("<tr bgcolor=#99ccff bordercolor=#000066>")   
  119. For j=0 to Columns.Count-1   
  120. Response.Write("<td><font size=2>"&Columns(j)&"</font></td>")   
  121. Next  
  122. Response.Write("</tr>")  
  123.  
  124. rs.movenext   
  125. if rs.EOF then exit for   
  126. Next  
  127.  
  128. Response.Write("</table>")   
  129.  
  130. END IF  
  131. %>  
  132. </BODY>  
  133. </HTML>  
标签：

相关文章