ASP分页代码[高速执行,支持大数据库!]


<%
time1=timer
%>





<%
dim spage,psiz,ppag,pkid
spage=1
psiz=20
pkid=Request("kid")
if Request.QueryString("page")<>"" then
spage=Clng(Request.QueryString("page"))
if spage<1 then
spage=1
end if
end if

if spage=1 then
SQL="select top "&psiz&" id,ti from las_ads order by id desc"
else
SQL="Select top "&psiz&" id,ti from las_ads where id<"&pkid&" order by id desc"
end if

Set rs=Server.CreateObject("ADODB.RecordSet")
rs.Open SQL,conn,1,1
'rs.move (spage-1)*psiz
while(not rs.eof)
%>




<%
pkid=rs("id")
rs.movenext
wend
%>



id 产品
<%=rs("id")%> <%=rs("ti")%>

<%rs.close
Set rs=nothing%>
<%
conn.Close
Set conn=nothing
time2=timer
Response.Write((time2-time1)*1000)
%>








<%
time1=timer
%>





<%
dim spage,psiz,ppag
spage=1
psiz=20
if Request.QueryString("page")<>"" then
spage=Clng(Request.QueryString("page"))
if spage<1 then
spage=1
end if
end if

if spage=1 then
SQL="select top "&psiz&" id,ti from las_ads order by id desc"
else
SQL="Select id,ti from las_ads order by id desc"
end if

Set rs=Server.CreateObject("ADODB.RecordSet")
rs.Open SQL,conn,1,1
rs.move (spage-1)*psiz
for i=1 to 20
%>




<%
rs.movenext
next
%>



id 产品
<%=rs("id")%> <%=rs("ti")%>

<%rs.close
Set rs=nothing%>
<%
conn.Close
Set conn=nothing
time2=timer
Response.Write((time2-time1)*1000)
%>


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