仓酷云

标题: ASP编程：ADO组件之分页程序 [打印本页]
作者: 山那边是海    时间: 2015-1-16 22:25
标题: ASP编程：ADO组件之分页程序
对用户来说可预见费用、节约费用，可以做到花少钱办大事。由于省去了购买软件和硬件等的前期费用，用户可以租用较高级的应用软件。ASP的收费是根据软件的类型、客制化程度、用户数量、服务期限来定的，对客户来说这笔费用是可以预见的。方便于客户应用软件的升级。应当来讲，学会了怎样拔出纪录，怎样显现纪录，那末如今复杂的完全的文章体系、旧事体系和留言体系不成成绩。那接着上面的成绩就是：跟着信息内容的不段增添，独自经由过程一张页面显现一切信息是不可也是很不睬性的。以是，办理的举措就是接纳分页手艺。<P>　　1，rs.RecordCount
　　很明显，RecordCount就是用来显现数据库表中一共几笔记录的，也能够抽象地说表中一共有几行。常常用在分页中就是一共有N篇文章等总计的信息显现。<P>　　2，rs.PageSize
　　rs.PageSize也就是一页的巨细，也就暗示一张ASP页能够显现纪录的条数。值是本人界说的，好比常常看到的每页显现N篇文章之类的信息。<P>　　3，rs.AbsolutePage和rs.pagecount
　　说到分页，必定不克不及不提到rs.AbsolutePage。纪录集的AbsolutePage属性最次要的感化就是决意着以后显现的是第几页。它的值是有根据的，指定了rs.PageSize，那末rs.pagecount的信息值就是rs.RecordCount和rs.PageSize整除了局。好比：总信息纪录rs.RecordCount共20条，每页显现条数rs.PageSize设为5条，那末页数rs.pagecount数就是20/5=4页次，而rs.AbsolutePage则就只能是第1页，第2页……第4页。<P>　　说到如今，弄个详细程序来调试一下。持续对showit.asp举行修正以下：<P>
  2. <!--#includefile="conn.asp"--><P><%
  3. Setrs=Server.CreateObject("ADODB.Recordset")
  4. sql="Select*fromcnarticleorderbycn_iddesc"
  5. rs.Opensql,conn,1,1
  6. %><P><%
  7. page=request.querystring("page")page值为承受值
  8. rs.PageSize=2每页显现纪录数
  9. rs.AbsolutePage=Page显现以后页即是吸收的页数
  10. %><P><%
  11. Fori=1tors.PageSize使用fornext轮回顺次读出以后页的纪录
  12. ifrs.EOFthen
  13. ExitFor
  14. endif
  15. response.write("<br>文章内容是:"&rs("cn_content"))
  16. rs.MoveNext
  17. next%><%
  18. rs.close
  19. Setrs=Nothing
  20. conn.close
  21. setconn=nothing
  22. %>
复制代码
<P>　　HERE，你调试的条件就是数据库中的纪录绝对要年夜于4条，如许测试效果才分明；另有测试的办法就是在showit.asp前面增加?page=1大概?page=2等调试察看网页显现效果。<P>　　实在，说究竟，显现数据库内容就是<P>
  2. <%
  3. Fori=1tors.PageSize
  4. ifrs.EOFthen
  5. ExitFor
  6. endif
  7. response.write("<br>文章内容是:"&rs("cn_content"))
  8. rs.MoveNext
  9. next%>
复制代码
<P>　　起的感化，但设想一下：该程序应当都只能显现出2条信息（一向稳定的2条信息）。但为何加上?page=1和?page=2会显现分歧的了局呢？……那相对就是rs.AbsolutePage的感化了。这个弄分明，信任分页的全体架构就有点头绪了。<P>
  2. <!--#includefile="conn.asp"--><P><%
  3. Setrs=Server.CreateObject("ADODB.Recordset")
  4. sql="Select*fromcnarticle"
  5. rs.Opensql,conn,1,1
  6. %><P><%filepath=request.servervariables("path_info")%>
  7. <%
  8. page=request.querystring("page")page值为承受值
  9. rs.PageSize=2每页显现纪录数
  10. ifNotIsEmpty(page)then假如page已初始化...
  11. ifNotIsNumeric(page)then判别page值是不是为数字
  12. page=1
  13. else
  14. Page=cint(page)吸收page并化为数字型赋给page变量
  15. endif
  16. ifPage>rs.PageCountthen假如吸收的页数年夜于总页数
  17. rs.AbsolutePage=rs.PageCount设置以后显现页即是最初页
  18. elseifPage<=0then假如page小于即是0
  19. rs.AbsolutePage=1设置以后显现页即是第一页
  20. else
  21. rs.AbsolutePage=Page假如年夜于零,显现以后页即是吸收的页数
  22. endif
  23. else
  24. rs.AbsolutePage=1
  25. endif
  26. Page=rs.AbsolutePage%><P><%
  27. Fori=1tors.PageSize使用fornext轮回顺次读出以后页的纪录
  28. ifrs.EOFthen
  29. ExitFor
  30. endif
  31. response.write("文章题目是:"&rs("cn_title"))
  32. response.write("<br>文章作者是:"&rs("cn_author"))
  33. response.write("<br>文章到场工夫是:"&rs("cn_time"))
  34. response.write("<br>文章内容是:"&rs("cn_content"))
  35. response.write("<hr>")
  36. rs.MoveNext
  37. Next
  38. %><P><formaction="<%=filepath%>"method="get">
  39. <!--起首包管总页数不为1、不为0-->
  40. <%ifrs.pagecount1andrs.pagecount0then%>
  41. <!--假如以后页数年夜于1，不管什么时候都应显现首页和上一页的毗连-->
  42. <%ifpage>1then%>
  43. [<aHref="<%=filepath%>?Page=<%=1%>">首页</a>]
  44. [<aHref="<%=filepath%>?Page=<%=page-1%>">上一页</a>]
  45. <!--假如以后页数年夜于1而且小于总页面数时，显现出尾页和下一页的毗连-->
  46. <%ifpage<rs.pagecountthen%>
  47. [<aHref="<%=filepath%>?Page=<%=page+1%>">下一页</a>]
  48. [<aHref="<%=filepath%>?Page=<%=rs.PageCount%>">尾页</a>]
  49. <!--假如以后页数年夜于1而且仍年夜于或即是总页面数时，不显现出尾页和下一页的毗连-->
  50. <%else%>
  51. [下一页][尾页]
  52. <%endif%>
  53. <!--不然，以后页数不年夜于1，则只显现尾页和下一页的毗连-->
  54. <%else%>
  55. [首页][上一页]
  56. [<aHref="<%=filepath%>?Page=<%=page+1%>">下一页</a>]
  57. [<aHref="<%=filepath%>?Page=<%=rs.PageCount%>">尾页</a>]
  58. <%endif%>
  59. <!--终极，总页数若为1、为0则没有任何毗连-->
  60. <%else%>
  61. [首页][上一页][下一页][尾页]
  62. <%endif%>[页次:<fontcolor=red><b><%=page%></b></font>/<%=rs.PageCount%>]
  63. [共<%=rs.RecordCount%>篇<fontcolor=red><b><%=rs.PageSize%></b></font>篇/页]
  64. 转到<inputname="page"size=5value="<%=page%>">页
  65. <inputtype="submit"value="Enter">
  66. </form>
  68. <%
  69. rs.close
  70. Setrs=Nothing
  71. conn.close
  72. setconn=Nothing
  73. %>
复制代码
<P>　　长长的分页代码，弄懂是真不简单，平台援用起来还必要修正也是对照贫苦。最初能做成一个函数，下次挪用起来就很便利了。<P>
  2. <%
  3. functionpagination(pagecount,pagesize,page,resultcount)
  4. Dimquery,a,x,temp
  5. action="http://"&Request.ServerVariables("HTTP_HOST")_
  6. &Request.ServerVariables("SCRIPT_NAME")
  7. query=Split(Request.ServerVariables("QUERY_STRING"),"&")
  8. ForEachxInquery
  9. a=Split(x,"=")
  10. IfStrComp(a(0),"page",vbTextCompare)0Then
  11. temp=temp&a(0)&"="&a(1)&"&"
  12. EndIf
  13. Next
  14. Response.Write("<formmethod=getdocument.location="_
  15. &action&"?"&temp&"Page=+this.page.value;returnfalse;"">")
  16. ifpage<=1then
  17. Response.Write("[首页][上一页]")
  18. else
  19. Response.Write("[<ahref="&action&"?"&temp&"Page=1>_
  20. 首页</a>]")
  21. Response.Write("[<ahref="&action&"?"&temp&"Page="_
  22. &(Page-1)&">上一页</a>]")
  23. endififpage>=pagecountthen
  24. Response.Write("[下一页][尾页]")
  25. else
  26. Response.Write("[<ahref="&action&"?"&temp&"Page="_
  27. &(Page+1)&">下一页</a>]")
  28. Response.Write("[<ahref="&action&"?"&temp&"Page="_
  29. &pagecount&">尾页</a>]")
  30. endif
  31. Response.Write("[页次:<fontcolor=red>"&page&"</font>/"&pageCount)
  32. Response.Write("][共"&resultcount&"条<fontcolor=red>"&pagesize_
  33. &"</font>条/页]")
  34. Response.Write("转到"&"<inputname=pagesize=4value="&page&">"_
  35. &"页<inputtype=submitvalue=go>")
  36. Endfunction
  37. %>
复制代码
<P>　　如要援用，则能够：<P>
  2. <%callpagination(rs.PageCount,rs.pagesize,page,rs.RecordCount)%>
复制代码

asp可以使用微软的activeX使得网页功能无比强大，不过安全性也较差，而且是基于的windows服务器，所以性能稳定性也一般
作者: 柔情似水    时间: 2015-1-19 11:43
以HTML语言整合(HTML负责界面上，ASP则负责功能上)形成一个B/S(浏览器/服务器)模式的网页程序。
作者: 金色的骷髅    时间: 2015-1-24 23:54
多看多学多思。多看一些关于ASP的书籍，一方面可以扩展知识面一方面可以鉴借别人是如何掌握、运用ASP的;多学善于关注别人，向同学老师多多学习，不论知识的大小;多思则是要将学到的知识灵活运用。
作者: 小女巫    时间: 2015-2-8 01:10
兴趣爱好，那么你无须学编程，申请一个域名和空间，在网上下载一些免费开源的CMS系统，你不用改代码，只须熟悉它们的后台操作，像office一样简单方便，很快就能建一个站点，很多站长都是这样做的
作者: 简单生活    时间: 2015-2-23 20:45
学习ASP其实应该上升到如何学习程序设计这种境界，其实学习程序设计又是接受一种编程思想。比如ASP如何学习，你也许在以前的学习中碰到过。以下我仔细给你说几点:
作者: 若天明    时间: 2015-3-7 10:25
兴趣爱好，那么你无须学编程，申请一个域名和空间，在网上下载一些免费开源的CMS系统，你不用改代码，只须熟悉它们的后台操作，像office一样简单方便，很快就能建一个站点，很多站长都是这样做的
作者: 海妖    时间: 2015-3-14 22:39
Application:这个存储服务端的数据，如果不清除，会直到web应用程序结束才清除(例如重启站点)
作者: 若相依    时间: 2015-3-21 15:08
以上是语言本身的弱点，在功能方面ASP同样存在问题，第一是功能太弱，一些底层操作只能通过组件来完成，在这点上是远远比不上PHP/JSP，其次就是缺乏完善的纠错/调试功能，这点上ASP/PHP/JSP差不多。



欢迎光临 仓酷云 (http://ckuyun.com/) Powered by Discuz! X3.2