用户登录  |  用户注册  | 
首 页火爆电影好玩游戏精彩文章软件下载超酷动画好听音乐精彩论坛更多栏目
影视资讯 | 在线电影 | 新片上映 | 影视排行 | 影视热评 | 影视明星 | 音乐报道 | 新歌上架 | 歌曲排行 | 歌手档案 | 乐评精选 | 游戏资讯 | 游戏排行 | 游戏评测
当前位置:飞亚网精彩文章网络教程软件教程
日期:2007-11-17 11:01:46  来源:不详

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




  

  

Tags:

作者:无从考证

文章评论评论内容只代表网友观点,与本站立场无关!

   评论摘要(共 0 条,得分 0 分,平均 0 分) 查看完整评论
Copyright © 2005-2010 fyf8.com. All Rights Reserved .
页面执行时间:565,093.80000 毫秒
 鲁ICP备06013895号