发新话题
打印

[转载]asp 分页技术

[转载]asp 分页技术

原始连接:http://www.aychina.com/Article/wysj/asp/200505/6.html

建立数据库连接
<%db_path = "database/cnbruce.mdb"
Set conn= Server.CreateObject("ADODB.Connection")
connstr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath(db_path)conn.Open connstr%>


db_path = "database/cnbruce.mdb",不用说,就是将数据库的相对路径赋到一个变量上,以方便下面继续调用。

  Set conn= Server.CreateObject("ADODB.Connection",和其它建立组件一样,建立了一个ADO连接,并用一对象conn来接受。

  connstr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath(db_path),很显然就是连接字符串了,其包括打开数据库的驱动方法OLEDB,和打开和哪个数据库的连接(即数据库的路径)。

  需要再次提醒的是:无论是FSO对文件、文件夹的操作还是ADO对数据库的操作,对被操作文件的取得都是获得的绝对的物理地址,一般情况之下,采用Server.MapPath方法相对较好。

  conn.Open connstr最后对象conn通过连接字符串connstr打开了数据库的连接。
if rs.EOF and rs.BOF then 该语句里面涉及到了rs.EOF 和 rs.BOF 以及两者的逻辑运算 and 。rs.EOF 表示到达数据库表中的最后一行,rs.BOF 表示到达数据库表中的第一行。整个语句可以理解为,如果当前数据库中的最后一行就是数据库表中第一行,那么可以肯定:当前数据库表中没有任何数据。



应该来说,学会了如何插入记录,如何显示记录,那么现在简单的完整的文章系统、新闻系统和留言系统不成问题。那接着下面的问题就是:随着信息内容的不段增加,单独通过一张页面显示所有信息是不行也是很不理性的。所以,解决的办法就是采用分页技术。

  1,rs.RecordCount
  很显然,RecordCount就是用来显示数据库表中一共多少条记录的,也可以形象地说表中一共有多少行。经常用在分页中就是一共有N篇文章等总计的信息显示。

  2,rs.PageSize
  rs.PageSize也就是一页的大小,也就表示一张ASP页可以显示记录的条数。值是自己定义的,比如经常看到的每页显示N篇文章之类的信息。

  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页。

  说到现在,弄个具体程序来调试一下。继续对showit.asp进行修改如下:


<!--#include file="conn.asp" -->
<%Set rs = Server.CreateObject ("ADODB.Recordset")
sql = "Select * from cnarticle order by cn_id desc"
rs.Open sql,conn,1,1%>
<%page=request.querystring("page")  &#39;page值为接受值
rs.PageSize = 2 &#39;每页显示记录数
rs.AbsolutePage = Page &#39;显示当前页等于接收的页数 %>
<% For i = 1 to rs.PageSize &#39;利用for next 循环依次读出当前页的记录
if rs.EOF then  
Exit For  
end if
response.write("<br>文章内容是:"& rs("cn_content"))
rs.MoveNextnext%>
<% rs.close Set rs = Nothingconn.close set conn=nothing %>
  HERE,你调试的前提就是数据库中的记录相对要大于4条,这样测试效果才明显;还有测试的方法就是在showit.asp后面添加?page=1或者?page=2等调试观察网页显示效果。

  其实,说到底,显示数据库内容就是


<% For i = 1 to rs.PageSize
if rs.EOF then  
Exit For  
end if
response.write("<br>文章内容是:"& rs("cn_content"))rs.MoveNextnext%>
  起的作用,但想象一下:该程序应该都只能显示出2条信息(一直不变的2条信息)。但为什么加上?page=1和?page=2会显示不同的结果呢?……那绝对就是rs.AbsolutePage的作用了。这个搞清楚,相信分页的整体架构就有点眉目了。


<!--#include file="conn.asp" -->
<%Set rs = Server.CreateObject ("ADODB.Recordset")
sql = "Select * from cnarticle"
rs.Open sql,conn,1,1%>
<%filepath=request.servervariables("path_info")%>
<%page=request.querystring("page")  &#39;page值为接受值
rs.PageSize = 2 &#39;每页显示记录数
if Not IsEmpty(page) then &#39;如果page已经初始化...   
if Not IsNumeric(page) then &#39;判断page值是否为数字     
page=1   
else   
Page = cint(page) &#39;接收page并化为数字型赋给page变量   
end if     
if Page > rs.PageCount then &#39;如果接收的页数大于总页数      
rs.AbsolutePage = rs.PageCount &#39;设置当前显示页等于最后页        
elseif Page <= 0 then &#39;如果page小于等于0      
rs.AbsolutePage = 1 &#39;设置当前显示页等于第一页   
else      
rs.AbsolutePage = Page &#39;如果大于零,显示当前页等于接收的页数   
end ifelsers.AbsolutePage=1end
ifPage = rs.AbsolutePage%>
<% For i = 1 to rs.PageSize &#39;利用for next 循环依次读出当前页的记录
if rs.EOF then  
Exit For  
end if  
response.write("文章标题是:"& rs("cn_title"))  
response.write("<br>文章作者是:"& rs("cn_author"))  
response.write("<br>文章加入时间是:"& rs("cn_time"))  
response.write("<br>文章内容是:"& rs("cn_content"))  
response.write("<hr>")  
rs.MoveNextNext%>
<form action="<%=filepath%>" method="get">
<!--首先保证总页数不为1、不为0-->
<%if rs.pagecount<>1 and rs.pagecount<>0 then%>
<!--如果当前页数大于1,无论何时都应显示首页和上一页的连接--> <%if page>1 then%>   [<a Href="<%=filepath%>?Page=<% = 1%>">首页</a>]   [<a Href="<%=filepath%>?Page=<% = page -1 %>">上一页</a>]<!--如果当前页数大于1并且小于总页面数时,显示出尾页和下一页的连接-->   <%if page<rs.pagecount then %>   [<a Href="<%=filepath%>?Page=<% = page + 1%>">下一页</a>]   [<a Href="<%=filepath%>?Page=<% = rs.PageCount%>">尾页</a>]<!--如果当前页数大于1并且仍大于或等于总页面数时,不显示出尾页和下一页的连接-->    <%else%>   [下一页] [尾页]   <%end if%><!--否则,当前页数不大于1,则只显示尾页和下一页的连接--> <%else%> [首页] [上一页] [<a Href="<%=filepath%>?Page=<% = page + 1%>">下一页</a>]  [<a Href="<%=filepath%>?Page=<% = rs.PageCount%>">尾页</a>] <%end if %><!--最终,总页数若为1、为0则没有任何连接--><%else%> [首页] [上一页] [下一页] [尾页]<%end if%>[页次:<font color=red><b><%=page%></b></font>/<%=rs.PageCount%>][共<%=rs.RecordCount%>篇 <font color=red><b><%=rs.PageSize%></b></font>篇/页]转到<input name="page" size=5 value="<%=page%>">页<input type="submit" value="Enter"></form> <%rs.close Set rs = Nothingconn.close set conn=Nothing%>
  长长的分页代码,搞懂是真不容易,平台引用起来还需要修改也是比较麻烦。最后能做成一个函数,下次调用起来就很方便了。


<%function pagination(pagecount,pagesize,page,resultcount)   Dim query, a, x, temp   action = "http://"; & Request.ServerVariables("HTTP_HOST")_ & Request.ServerVariables("SCRIPT_NAME")   query = Split(Request.ServerVariables("QUERY_STRING"), "&")   For Each x In query      a = Split(x, "=")      If StrComp(a(0), "page", vbTextCompare) <> 0 Then        temp = temp & a(0) & "=" & a(1) & "&"      End If   Next      Response.Write("<form method=get onsubmit=""document.location = &#39;"_ & action & "?" & temp & "Page=&#39;+this.page.value;return false;"">")        if page<=1 then      Response.Write ("[首页] [上一页] ")   else           Response.Write("[<a href=" & action & "?" & temp & "Page=1>_首页</a>] ")      Response.Write("[<a href=" & action & "?" & temp & "Page="_ & (Page-1) & ">上一页</a>] ")   end if   if page>=pagecount then      Response.Write ("[下一页] [尾页]")        else      Response.Write("[<a href=" & action & "?" & temp & "Page="_ & (Page+1) & ">下一页</a>] ")      Response.Write("[<a href=" & action & "?" & temp & "Page="_ & pagecount & ">尾页</a>]")           end if   Response.Write("[页次:<font color=red>" & page & "</font>/" & pageCount)      Response.Write("] [共" & resultcount & "条 <font color=red>"& pagesize_ & "</font>条/页]")   Response.Write(" 转到" & "<input name=page size=4 value=" & page & ">"_ & "页<input type=submit value=go>")End function%>
  如要引用,则可以:


<%call pagination(rs.PageCount,rs.pagesize,page,rs.RecordCount) %>
style="width: 780; height: 478"
http://cairuhai.blogchinese.com http://spaces.msn.com/familyly 大学就象一场梦!

TOP

发新话题