asp 分页函数

Public Function SplitPageShow(ByRef rs)

rs.PageSize = 5 'pagesize属性指定了每页要显示的记录条数

Page = "1"

Page = CLng(Request("Page")) 'string型转化为long型

If Page < 1 Then Page = 1

If Page > rs.PageCount Then Page = rs.PageCount

If Page <> 1 Then

Response.Write "<A HREF=Manage.asp?Page=1>第一页</A>"

Response.Write "<A HREF=Manage.asp?Page="& (Page-1) & ">上一页</A>"

End If

If Page <> rs.PageCount Then

Response.Write "<A HREF=Manage.asp?Page=" & (Page+1) & ">下一页</A>"

Response.Write "<A HREF=Manage.asp?Page="& rs.PageCount & ">最后一页</A>"

End If

Response.write"页码：" & Page & "/" & rs.PageCount & "</font>"

'每一页的显示

'循环显示每条记录

rs.AbsolutePage = Page '把页码赋给absolutepage属性从而知当前页的首条记录号

For iPage = 1 To rs.PageSize

Response.WRITE "<TR><TD bgcolor='#FFFFFF'>" & rs("ID") & "</TD>"

Response.WRITE "<TD bgcolor='#FFFFFF'>" & rs("Title") & "</TD>"

Response.WRITE "<TD bgcolor='#FFFFFF'>" & rs("CName") & "</TD>"

Response.WRITE "<TD bgcolor='#FFFFFF'><a href='Update.asp?id="&rs("ID") &"'>修改</a></TD>"

Response.WRITE "<TD bgcolor='#FFFFFF'><a href='DeleteProcess.asp?id="& rs("ID") &"'>删除</a></TD></TR>"

rs.MoveNext

If rs.EOF Then Exit For

End Function

posted on 2008-06-08 21:44 天书阅读(134) 评论(0) 编辑收藏引用

随笔档案

只有注册用户登录后才能发表评论。




网站导航: 博客园 IT新闻 BlogJava 知识库博问管理