’翻页函数 参数列表:
’sql 查询所有记录条数的SQL语句,必须包含:select count(*) as num from ...
’page 当前页码,
’pagelistnum每页显示记录数
’pagenum每页显示的页码数
’link要链接到的链接地址
function fy(sql,page,pagelistnum,pagenum,link)
link=link
dim rs,znum,zpage,i,a,b
page=cint(page)’将PAGE转换为整型
set rs=server.CreateObject("adodb.recordset")
rs.open sql,conn,1,1
znum=rs("num")
’得到总页数
zpage=znum\pagelistnum
if znum mod pagelistnum>0 then zpage=zpage+1
’response.Write "共" & zpage & "页,第" & page & "页 "
’得到第一页、上一页链接
a=0
b=pagenum ’控制显示页数
i=1
if page>(b/2) then
if page=1 then
else
response.Write "[url=]
&page=’+this.value;">
zpage then response.write "[url=]>>[/url]"
response.write"页次:"&page&"/"&zpage
else
if page=1 then
else
response.Write "[url=]
&page=’+this.value;">
zpage then
response.Write "[url=]>>[/url]页次:"&page&"/"&zpage
else
response.write"页次:"&page&"/"&zpage
end if
end if
response.write(""&pagelistnum&"篇/页")
rs.close
set rs=nothing
end function
...
’分页函数调用,这里假设本文件名为list.asp |