ASP超高效分页算法

发布时间:2020-07-15 13:26:08 作者: 来源: 浏览量(46
摘要:很多时候我都会说域名就是一个网站的网址,因为提问的人其实更多是想知道怎么访问这个网站获取内容。而网站的构成就是域名+空间(服务器),从这个意义上来说,域名和网址之间没有太大的区别。那么,域名和网址到底有没有区别呢?

<%

'每页的记录数

dim pagesize

pagesize= "30"

'读出总记录数,总页数,飘易注

Dim TotalRecords,TotalPages

SQLstr="Select count(id) As RecordSum From table1"

Set Rs=conn.Execute(SQLstr,0,1)

TotalRecords=Rs("RecordSum")

if Int(TotalRecords/pagesize)=TotalRecords/pagesize then

TotalPages=TotalRecords/pagesize

else

TotalPages=Int(TotalRecords/pagesize)+1

end if

Rs.Close

Set Rs=Nothing 

'当前页码,飘易注

dim page

page=Request("page")

if isnumeric(page)=false then

response.write "<SCRIPT language=JavaScript>alert('参数错误!');"

response.write "window.close();</SCRIPT>"

response.end

end if

If page="" or page<1 Then page=1

If page-TotalPages>0 Then page=TotalPages

page=int(page)


if page=1 then

sql="select top "&pagesize&" id,title,time from table1 order by time desc"

else

sql="select top "&pagesize&" id,title,time from table1 where time<(SELECT Min(time) FROM (SELECT TOP "&pagesize*(page-1)&" time FROM table1 ORDER BY time desc) AS T) order by time desc"

end if

Set rs = Server.CreateObject ("ADODB.Recordset")

rs.Open sql,conn,1,1

Do While Not rs.Eof

response.write "每条记录信息:"&rs("id")&"<br>"

rs.movenext

loop

rs.close

set rs=nothing

''翻页代码省略……

%>


二维码

扫一扫,关注我们

声明:本文由【龙祥网络】编辑上传发布,转载此文章须经作者同意,并请附上出处【龙祥网络】及本页链接。如内容、图片有任何版权问题,请联系我们进行处理。

感兴趣吗?

欢迎联系我们,我们愿意为您解答任何有关网站疑难问题!

在线客服
嘿,我来帮您!