< !--#include file="adovbs.inc" --> < !--#include file="self2.asp" --> '调用adovbs.inc文件和留言页面self2.asp。 '-=此处已略去Web页面的HTML代码，具体内容可下载源代码后查看=- < % Set conn = Server.CreateObject("ADODB.Connection") conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & _ Server.MapPath("book2.mdb") '打开数据库book2.mdb并建立Recordset对象。 Set rs = Server.CreateObject("ADODB.Recordset") sql = "Select * From GuestBook Order By 时间 DESC" '选取数据表GuestBook中的所有数据记录，并按时间顺序对其排序。 rs.Open sql, conn, adOpenStatic '将数据记录打开成Recordset的adOpenStatic类型。
Sub ShowOnePage( rs, Page ) '利用Page参数来指定页码。 rs.AbsolutePage = Page For iPage = 1 To rs.PageSize self2 rs rs.MoveNext If rs.EOF Then Exit For '如果显示的页码是最后一页，则该页的数据记录条数可能会不满5条，所以在这里要判断是否移过了整个数据记录的最末端。 Next End Sub
rs.PageSize = 5 '设置你一页要显示的多少条留言记录。虚拟主机 Page = CLng(Request("Page")) If Page < 1 Then Page = 1 If Page >rs.PageCount Then Page = rs.PageCount ShowOnePage rs, Page '检查Request("Page")所读取的页码是否在有效的范围内。 %>
< form action="page2.asp" method="GET" align="right"> < p> < a href="guestbook2.htm">返回留言表单< /a> < % If Page <> 1 Then Response.Write "< A HREF=page2.asp?Page=1>第一页< /A>" Response.Write "< A HREF=page2.asp?Page=" & (Page-1) & ">上一页< /A>" End If If Page <> rs.PageCount Then Response.Write "< A HREF=page2.asp?Page=" & (Page+1) & ">下一页< /A>" Response.Write "< A HREF=page2.asp?Page=" & rs.PageCount & ">最后一页 < /A>" End If %> 页数：< font color="#FF0000">< %=Page%>/< %=rs.PageCount%>< /font> '< %=Page%>表示当前所在的页码，< %=rs.PageCount%>表示数据页的总数。
网友评论：（只显示最新10条。评论内容只代表网友观点，与本站立场无关！）
站内文章搜索
