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) & ">&lt;&lt;</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) & ">&gt;&gt;</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>