分享
 
 
 

一个实用的ASP分页函数,解决你重复写分页代码的烦恼

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

有时候,大家是不是因为写一些重复的代码而感到烦恼呢?由于在做ASP程序时,很多时候都要用到分页,重复作分页程序错误多不说了,而且影响到作程序的积极性,故写一分页函数,方便大家调用。如下:

<%

'================= ProgrammName: 分页函数 =======================

' ================ Programmed by Bubuy =====================

' ==================== 2003.10.16 ========================

Function cutPage(sqlStr,Conn,dateNums,pageNums,URLs)'利用ADO分页的函数

Dim sql,Cn,dateNum,pageNum,URL,rsDate

Sql=Trim(sqlStr) '获得sql语句。

Set Cn=Conn '获得数据对象

dateNum=Cint(dateNums) '获得每页得记录数

pageNum=Cint(pageNums) '获得当前页码

URL=Trim(URLs) '获得路径

Set rsDate=Server.CreateObject("ADODB.Recordset")

rsDate.PageSize=dateNum

rsDate.Open Sql,cn,1,1

IF rsDate.Eof Then

Response.Write("<center><font stlye='font-size:14px;' color='#ff0000'>对不起,没有记录!</font></center>")

Else

IF pageNum="" or pageNum<1 Then

pageNum=1

ElseIf pageNum>rsDate.PageCount Then

pageNum=rsDate.PageCount

End IF

rsDate.absolutepage =pageNum

Dim recordHead,recordLast '定义当前页开头记录和结束记录

recordHead=1

If pageNum>1 Then recordHead=dateNum*(pageNum-1)

If pageNum>=rsDate.PageCount Then

recordLast=rsDate.RecordCount

Else

recordLast=dateNum*pageNum

End If

Response.Write("<table width=100% border='0' cellpadding='0' cellspacing='0' style='font-size:12px;'>")

Response.Write("<tr><td height=38 align=left><font stly='font-size:12px;'>(第"&recordHead&"-"&recordLast&"条,共"&rsDate.Recordcount&"条,每页显示"&dateNum&"条)</font></td></tr>")

Dim URLa '定义判断输入得URL包含?没有的变量

Dim upPage,downPage,allPage '定义向上和向下翻的变量

Dim allWrite '定义输出

upPage=pageNum-1

downPage=pageNum+1

URLa=Split(URL,"?",-1,1)

If URLa(0)=URL Then

upPage="<a href=" & URL & "?page=" & upPage &" stlye='font-size:12px;'>上一页</a>&nbsp;"

If pageNum=1 Then upPage=""

downPage="<a href=" & URL & "?page=" & downPage &" stlye='font-size:12px;'>下一页</a>"

If pageNum=rsDate.PageCount Then downPage=""

Else

upPage="<a href=" & URL & "&page=" & upPage &" stlye='font-size:12px;'>上一页</a>&nbsp;"

If pageNum=1 Then upPage=""

downPage="<a href=" & URL & "&page=" & downPage &" stlye='font-size:12px;'>下一页</a>"

If pageNum=rsDate.PageCount Then downPage=""

End If

allWrite=upPage & downPage & "&nbsp;&nbsp;共" & rsDate.PageCount & "页&nbsp;" & "目前第"& pageNum &"页"

allwrite="<font style='font-size:12px;'>" & allWrite & "&nbsp;到第<input type='text' style='width:30px;' Name='page'>页<input type='submit' value='GO'></font>"

Response.Write("<tr><form name='formPage' method='post' action="&URL&"><td height=30 align=right style='font-szie=12px;'>" & allWrite & "</td></form></tr>")

Response.Write("<tr><td align=center>")

Response.Write("<table width=100% border='0' cellpadding='0' cellspacing='0' style='font-size:12px;'>")

Response.Write("<tr>")

Response.Write("<tr bgcolor='#efffce' height=25>")

Dim id,i

For i=0 to rsDate.Fields.Count-1 '设置表头

Response.Write("<td align='center'><font style='font-size:14px;'><b>"&rsDate.Fields(i).Name&"</b></font></td>")

Next

Response.Write("</tr>")

id=0

While not rsDate.EOF and id<dateNum

id=id+1

If id Mod 2=0 then

Response.Write("<tr bgcolor=#f7f6e7>")

Else

Response.Write("<tr bgcolor=#ffffff>")

End If

For Each fils in rsDate.Fields

Response.Write("<td align='center' height=20>"&fils&"</td>")

Next

Response.Write("</tr>")

rsDate.MoveNext

Wend

Response.Write("<tr height=25 bgcolor='#efffce'>")

For i=0 to rsDate.Fields.Count-1 '设置表尾

Response.Write("<td align='center'><font style='font-size:14px;'><b>"&rsDate.Fields(i).Name&"</b></font></td>")

Next

Response.Write("</tr>")

Response.Write("</table></td></tr>")

Response.Write("<tr><form name='formPage1' method='post' action="&URL&"><td height=30 align=right>" & allWrite & "</td></form></tr>")

End IF

rsDate.close

Set rsDate=nothing

End Function

%>

这样使用

page=request("page")

sql="select * from [table]" '写sql语句

url="xx.asp"当然也可以是"xx.asp?bubuy=1"

conn大家都知道是定义的什么吧

调用就这样

Call cutPage(sql,conn,"3",page,url)'3代表每页显示3条记录

由于我水平有限,程序中难免有错,大家顺便提提意见。大家也可以添加新得功能或修改已有得功能不过别忘了改后给我一份噢,谢谢,bubuy@sohu.com

 
 
 
免责声明:本文为网络用户发布,其观点仅代表作者个人观点,与本站无关,本站仅提供信息存储服务。文中陈述内容未经本站证实,其真实性、完整性、及时性本站不作任何保证或承诺,请读者仅作参考,并请自行核实相关内容。
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- 王朝網路 版權所有