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

最新推荐文章于 2024-09-25 15:20:18 发布

ciya3282

最新推荐文章于 2024-09-25 15:20:18 发布

阅读量112

点赞数

文章标签：操作系统

一个实用的ASP分页函数，解决你重复写分页代码的烦恼 (转)[@more@]

有时候，大家是不是因为写一些重复的代码而感到烦恼呢？由于在做 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("

对不起，没有记录！ ")
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("

（第"&recordHead&"-"&recordLast&"条，共"&rsDate.Recordcount&"条，每页显示"&dateNum&"条）

上一页 "
If pageNum=1 Then upPage=""
downPage=" 下一页"
If pageNum=rsDate.PageCount Then downPage=""
Else
upPage=" 上一页 "
If pageNum=1 Then upPage=""
downPage=" 下一页"
If pageNum=rsDate.PageCount Then downPage=""
End If
allWrite=upPage & downPage & " 共" & rsDate.PageCount & "页 " & "目前第"& pageNum &"页"
allwrite=" " & allWrite & " 到第页"
Response.Write("RM name='formPage' method='post' action="&URL&">" & allWrite & "")
Response.Write("")
Response.Write("

"&rsDate.Fields(i).Name&"

"&fils&"

"&rsDate.Fields(i).Name&"

")
Response.Write("" & allWrite & "")
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条记录

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

来自 “ ITPUB博客 ” ，链接：http://blog.itpub.net/10752019/viewspace-962673/，如需转载，请注明出处，否则将追究法律责任。