类型：转载 责任编辑：asp.net 日期：2007/05/23
热门软件下载：
页面导航：
正文内容：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>
<a href=javascript:confirmdel(<%= adopagers("id") %>)>删除</a></td>
</tr>
<%
adopagers.movenext
if adopagers.eof then
i = i + 1
exit for
end if
next
%>
<tr align="center">
<td colspan="3">
<% = exportpageinfo(adopagers, curpage, i, "newsman.asp?") %>
</td>
</tr>
</table>
</center>
</div>