<%
set conn=server.createobject("ADODB.Connection")
conn.open "provider=microsoft.jet.oledb.4.0;data source="&server.mappath("file.mdb")'
page=clng(request("page"))
%>
[COLOR=red][/COLOR]
|
<%
time1=timer
pagesize=20
set rs=server.createobject("adodb.recordset")
strsql="select * from file "
rs.pagesize=pagesize
rs.open strsql,conn,1,3,1
if page<=1 then
page=1
else
if page >rs.pagecount then page=rs.pagecount
end if
if not rs.eof then rs.absolutepage=page
%>
共<%=rs.pagecount %>页 <%=rs.recordcount %>条记录 |
<% if rs.eof then
response.write("暂时没有记录!")
else
for i = 1 to pagesize
response.Write i&". "&rs(0)&" "&rs(1)&" "&rs(2)&"
"
rs.movenext
if rs.eof then exit for
next
end if
set rs=nothing
%>
|
|
<% time2=timer
response.Write("页面执行用时"&formatnumber((time2-time1)*1000)&"毫秒") %> |
[COLOR=red][/COLOR]
| <%
time1=timer
pagesize=20
sql="select count(*) from file"
set rs=conn.execute(sql)
max=rs(0)
set rs=nothing
maxpage=int((max-1)/pagesize)+1
if page<1 then page=1
if page>maxpage then page=maxpage
sql="SELECT TOP "&pagesize&" * FROM file WHERE file.ID>=(select max(id) from (select top "&((page-1)*pagesize+1)&" id from file )) "
set rs=server.createobject("adodb.recordset")
rs.open sql,conn
%>
共<%= maxpage %>页 <%= max %>条记录 |
<% if rs.eof then
response.write("暂时没有记录!")
else
for i = 1 to pagesize
response.Write i&". "&rs(0)&" "&rs(1)&" "&rs(2)&"
"
rs.movenext
if rs.eof then exit for
next
end if
set rs=nothing
%> |
| <% time2=timer
response.Write("页面执行用时"&formatnumber((time2-time1)*1000)&"毫秒") %> |
[COLOR=red][/COLOR]
| <%
time1=timer
pagesize=20
set rs=server.createobject("adodb.recordset")
strsql="select * from file "
rs.pagesize=pagesize
rs.open strsql,conn
record=rs.getrows
rs.close
set rs=nothing
max=ubound(record)
maxpage=int((max-1)/pagesize)+1
%>
共<%= maxpage %>页 <%= max %>条记录 |
<%
for i = 1 to pagesize
response.Write i&". "&record(0,(page-1)*pagesize)&" "&record(1,(page-1)*pagesize)&" "&record(2,(page-1)*pagesize)&"
"
next
%>
|
|
<% time2=timer
response.Write("页面执行用时"&formatnumber((time2-time1)*1000)&"毫秒") %> |
