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

<%
'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:
相关日志: