分享
 
 
 

ASP分页函数

王朝asp·作者佚名  2006-01-08
窄屏简体版  字體: |||超大  

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>

 
 
 
免责声明:本文为网络用户发布,其观点仅代表作者个人观点,与本站无关,本站仅提供信息存储服务。文中陈述内容未经本站证实,其真实性、完整性、及时性本站不作任何保证或承诺,请读者仅作参考,并请自行核实相关内容。
2023年上半年GDP全球前十五强
 百态   2023-10-24
美众议院议长启动对拜登的弹劾调查
 百态   2023-09-13
上海、济南、武汉等多地出现不明坠落物
 探索   2023-09-06
印度或要将国名改为“巴拉特”
 百态   2023-09-06
男子为女友送行,买票不登机被捕
 百态   2023-08-20
手机地震预警功能怎么开?
 干货   2023-08-06
女子4年卖2套房花700多万做美容:不但没变美脸,面部还出现变形
 百态   2023-08-04
住户一楼被水淹 还冲来8头猪
 百态   2023-07-31
女子体内爬出大量瓜子状活虫
 百态   2023-07-25
地球连续35年收到神秘规律性信号,网友:不要回答!
 探索   2023-07-21
全球镓价格本周大涨27%
 探索   2023-07-09
钱都流向了那些不缺钱的人,苦都留给了能吃苦的人
 探索   2023-07-02
倩女手游刀客魅者强控制(强混乱强眩晕强睡眠)和对应控制抗性的关系
 百态   2020-08-20
美国5月9日最新疫情:美国确诊人数突破131万
 百态   2020-05-09
荷兰政府宣布将集体辞职
 干货   2020-04-30
倩女幽魂手游师徒任务情义春秋猜成语答案逍遥观:鹏程万里
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案神机营:射石饮羽
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案昆仑山:拔刀相助
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案天工阁:鬼斧神工
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案丝路古道:单枪匹马
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案镇郊荒野:与虎谋皮
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案镇郊荒野:李代桃僵
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案镇郊荒野:指鹿为马
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案金陵:小鸟依人
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案金陵:千金买邻
 干货   2019-11-12
 
推荐阅读
 
 
 
>>返回首頁<<
 
靜靜地坐在廢墟上,四周的荒凉一望無際,忽然覺得,淒涼也很美
© 2005- 王朝網路 版權所有