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

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

服务器之家 - 编程语言 - ASP教程 - asp又一个分页的代码例子

asp又一个分页的代码例子

2019-10-06 10:37asp代码网 ASP教程

asp又一个分页的代码例子

一个分页代码例子

  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>  
  • 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 关于我们联系我们版权申明网站地图