"无限流"分页程序[改进版]
作者:wang 日期:2009-10-13
<%
'Option Explicit
Dim DefRecordNum,BeginTime
DefRecordNum=30 '每页显示条数
BeginTime=Timer'---------开始计时-
'-------------连接数据库-------------
'Dim rs,conn,strSQL
'strSQL="Driver={SQL Server};server=.;uid=sa;pwd=123456;database=mldata"
'strSQL="Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.Mappath("mldata.mdb")
'Set conn=Server.CreateObject("Adodb.Connection")
'conn.Open strSQL
'If Err Then
' err.Clear
' Conn.close
' set Conn=nothing
' Response.Write "数据库连接出错。"
' Response.End
'End If
'-------------End连接数据库-------------
'---------统计总记录数/总页数---------只在第一次读取数据库,以后就不用读取,速度加快
Dim TotalRecords,TotalPages
TotalRecords=Trim(request("TotalRecords"))
If len(TotalRecords)>10 Then
TotalRecords=""
End if
If TotalRecords="" or Not IsNumeric(TotalRecords) Then
strSQL="Select count(id) As RecordSum From las_ads"
Set rs=conn.Execute(strSQL,0,1)
TotalRecords=rs("RecordSum")
rs.Close
Set rs=Nothing
End If
TotalPages=Abs(int(TotalRecords/DefRecordNum*(-1)))
'---------End统计总记录数/总页数---------
'--------------获取当前页 并做安全处理----------
Dim CurPageNum
CurPageNum=Trim(Request("CurPageNum"))
If CurPageNum="" or not IsNumeric(CurPageNum) Then
CurPageNum=1
ElseIf CurPageNum<=0 Then
CurPageNum=1
Else
CurPageNum=CLng(CurPageNum)
End If
If CurPageNum>TotalPages Then
CurPageNum=TotalPages
End if
'----------------End获取当前页-----------------
%>
<%Response.Write CurPageNum&"/"&TotalPages&"页 总记录数:"&TotalRecords%> | 首页 上一页 下一页 |
id | 标题 | 文件名 | 大小 | 尺寸 | 类别 |
"&rs(0)&" | "&_"&rs(1)&" | "&_"&rs(2)&" | "&_"&rs(3)&" | "&_"&rs(4)&" | "&_"&rs(5)&" | "&_
<%Response.Write CurPageNum&"/"&TotalPages&"页 总记录数:"&TotalRecords%> | 首页上一页 下一页 |
<%
'-------- 计时结束-----
Response.Write "
程序执行时间:"&(Timer-BeginTime)*1000&"毫秒"
%>
评论: 0 | 引用: 0 | 查看次数: 2509
发表评论