ageShow(SqlStr,Conn,DateNums,PageNums,URLs)
'=========================================================
' 函数：iXuEr_Data_PageShow(SqlStr,Conn,DateNums,PageNums,URLs)
' 功能：将指定数据库的指定项目进行分页读取
' 参数：SQL语句，数据库链接对象，每页数量，页码，连接URLs
' 返回：字符串
' 时间：2004-08-29
' 作者：Guidy
' 版权：iXuEr Studio
'=========================================================
' Copyright (C) 2004-2006 114XP.CN All Rights Reserved.
' 官方网站：http://www.114xp.cn
' 技术论坛：http://bbs.114xp.cn
' 电子信箱：guidy@qq.com,guidy@psysch.com
'=========================================================

Dim DPS_Rs,DPS_Conn
Dim Sql
Dim Page
Dim DPS_i

'创建Recordset对象
Set DPS_Rs = Server.CreateObject("Adodb.Recordset")
'初始化Sql语句
Sql = SqlStr
DPS_Conn = Conn
'执行Sql
DPS_Rs.Open Sql,DPS_Conn,1,3
'初始化页面大小－－每页显示数目
DPS_Rs.PageSize = DateNums
'初始化页码
Page = Clng(PageNums)
'如果页码小于1，或者没有选择页码，则强制转到第一页
If IsNull(Page) Or Page = "" Then Page = 1
If Page <= 1 then Page = 1
'如果页码大于最大值，则强制转到最后一页
If Page>=DPS_Rs.PageCount Then Page=DPS_Rs.PageCount
'如果页码不等于1，则跳转至指定页面读取数据
If Page <> 1 then
If (Page - 1) * DPS_Rs.Pagesize < DPS_Rs.RecordCount then
DPS_Rs.Move (Page - 1) * DPS_Rs.PageSize
End If
End If
Call iXuEr_Page_URLs(Page,URLs,DPS_Rs,"DPS_TP1","Page")
'数据显示表格头部
Call iXuEr_Page_DHead()
DPS_i = 0
Do While Not DPS_Rs.eof And DPS_i < DPS_Rs.Pagesize
'数据显示主体部分
Call iXuEr_Page_DBody(DPS_Rs)
DPS_i = DPS_i + 1
DPS_Rs.MoveNext
Loop
'数据显示表格尾部
Call iXuEr_Page_DTail()

Call iXuEr_Page_URLs(Page,URLs,DPS_Rs,"DPS_TP2","Page")
DPS_Rs.Close
Set DPS_Rs = Nothing
End Function
Function iXuEr_Page_URLs(Page,URLs,DPS_Rs,FormName,InPutName)
If URLs = "" Or IsNull(URLs) Then URLs = "?="
Response.Write("<table width='100%'><tr align=center><form onsubmit='return numericCheck(""" & FormName & """,""" & InPutName & """)' name=" & FormName & " method=post action=" & URLs & "><td>" & DPS_Rs.PageSize & "个/页&nbsp;&nbsp;&nbsp;页数：" & Page & "/" & DPS_Rs.PageCount & "&nbsp;&nbsp; 共" & DPS_Rs.recordcount & "个&nbsp;&nbsp;&nbsp;")
If Page <> 1 then
Response.Write ("[" & "<a href=""" & URLs & "&" & InPutName & "=1"" title=""返回到第一页"">首页</a>]")
Response.Write ("[" & "<a href=""" & URLs & "&" & InPutName & "=" & Page - 1 & """ title=""返回到" & Cstr(Page - 1) & "页"">上一页</a>]

上一页  [1] [2] [3] 下一页

在google里搜索更多一个超强通用的分页显示函数

	Web www.51ec.org

上一篇信息学院： 生成指定长度的随机字符串

下一篇信息学院： ASP函数集