【 tulaoshi.com - ASP 】
Function ExportPageInfo(ByRef rs,curpage,i,LinkFile)
Dim retval, j, pageNumber, BasePage
retval = "第" & curpage & "页/总" & rs.pagecount & "页 "
retval = retval & "本页" & i & "条/总" & rs.recordcount & "条 "
If curpage = 1 Then
retval = retval & "首页 前页 "
Else
retval = retval & "<a href=’’" & LinkFile & "page=1’’首页</a <a href=’’" & LinkFile & "page=" & cstr(curpage - 1) & "’’前页</a "
End If
If curpage = rs.pagecount Then
retval = retval & "后页 末页"
Else
retval = retval & "<a href=’’" & LinkFile & "page=" & cstr(curpage + 1) & "’’后页</a <a href=’’" & LinkFile & "page=" & cstr(rs.pagecount) & "’’末页</a"
End if
retval = retval & "<br/"
BasePage = (curpage 10) * 10
If BasePage 0 Then retval = retval & " <a href=’’" & LinkFile & "page=" & (BasePage - 9) & "’’<<</a"
For j = 1 to 10
pageNumber = BasePage + j
If PageNumber rs.pagecount Then Exit For
If pageNumber = Cint(curpage) Then
retval = retval & " <font color=’’#FF0000’’" & pageNumber & "</font"
Else
retval = retval & " <a href=’’" & LinkFile & "page=" & pageNumber & "’’" & pageNumber & "</a"
End If
Next
If rs.pagecount BasePage Then retval = retval & " <a href=’’" & LinkFile & "page=" & (BasePage + 11) & "’’</a"
ExportPageInfo = retval
End Function
应用
<%
adoPageRS.open "SELECT * FROM news ORDER BY addtime DESC", conn, 1, 1
if err.number < 0 then
response.write "数据库操作失败："&err.description
else
if adoPageRS.eof and adoPageRS.bof then
response.write "没有记录"
else
%
<div align="center"
<center
<table width="100%" border="0" cellspacing="1" cellpadding="2"
<tr class="big"
<td width="60%"新 闻 标 题</td
<td width="25%" align="center"日期</td
<td width="15%" align="center"操 作</td
</tr
<%
adoPageRS.pagesize = 10
adoPageRS.absolutepage = curpage
for i = 0 to 9
%
<tr
<td<%= adoPageRS("title") %</td
<td align="center"
<% = adoPageRS("addtime") %
</td
<td align="center"<a href=’’newsman.asp?action=edit&id=<%= adoPageRS("id")%’’编辑</a
来源:http://www.tulaoshi.com/n/20160129/1510238.html
