"无限流"分页程序[改进版]



<%
'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%>首页 上一页
下一页










<%
'------------显示翻页内容函数--------
Function TurnPageFS(DispRecordNum)
Dim n
While Not(rs.Eof) And nn=n+1
Response.Write "
"&_
""&_
""&_
""&_
""&_
""&_
""&_
""
rs.MoveNext
Wend
End Function
'------------结束翻页内容函数--------


'--------开始 内容显示-----
Dim CursorBegin
CursorBegin=(CurPageNum-1)*DefRecordNum + 1 '计算 CursorBegin id
strSQL="Select Top "&DefRecordNum&" id,ti,fs,fc,fl,hy From las_ads " & " Where 1=1 and id>"& CursorBegin-1 & " order by id"
Set rs=conn.Execute(strSQL,0,1)

TurnPageFS(DefRecordNum)'---调用 显示翻页内容函数
rs.Close
Set rs=Nothing
conn.Close
Set conn=Nothing
'--------结束 内容显示-----
%>

id标题文件名大小尺寸类别
"&rs(0)&""&rs(1)&""&rs(2)&""&rs(3)&""&rs(4)&""&rs(5)&"






<%Response.Write CurPageNum&"/"&TotalPages&"页 总记录数:"&TotalRecords%>首页上一页
下一页


<%
'-------- 计时结束-----
Response.Write "
程序执行时间:"&(Timer-BeginTime)*1000&"毫秒"
%>




上一篇: "无限流"分页程序,终于调试成功
下一篇: ASP读取XML文件
文章来自: 本站原创
引用通告: 查看所有引用 | 我要引用此文章
Tags:
相关日志:
评论: 0 | 引用: 0 | 查看次数: 1226
发表评论
昵 称:
密 码: 游客发言不需要密码.
邮 箱: 邮件地址支持Gravatar头像,邮箱地址不会公开.
网 址: 输入网址便于回访.
内 容:
验证码:
选 项:
虽然发表评论不用注册,但是为了保护您的发言权,建议您注册帐号.
字数限制 300 字 | UBB代码 开启 | [img]标签 关闭