程序员编写分页函数的方法
<%
page=trim(request("page"))
maxperpage=40
first=true
last=true
dim rs
set rs=server.CreateObject("adodb.recordset")
sql="select id,title,add1,cartype,isred,enterdate,hits from newnews where classtype=0 and pass=1 order by id desc"
rs.open sql,conn,1,1
rs.pagesize=maxperpage
totalpage=rs.pagecount
if len(page)=0 then
intpage=1
first=false
else
if cint(page)<=1 then
intpage=1
first=false
else
if cint(page)>=rs.pagecount then
intpage=rs.pagecount
last=false
else
intpage=cint(page)
end if
end if
end if
if not rs.eof then
rs.absolutepage=intpage
end if
for a=1 to maxperpage
if rs.eof then exit for
%>
else
response.write "bgcolor=#f6f6f6"
end if
%>>
<%=a%>
<%add=rs("add1")
substring add,4
%>
" target="_blank">
<%
if rs("isred")=True then
%>
<%title=rs("title")
substring title,20
%>
<%else
title=rs("title")
substring title,20
%>
<%
end if
%>
<%=rs("cartype")%>
<%thetime=rs("enterdate")
themon=datepart("m",thetime)
if len(themon)<2 then themon="0"&themon
theday=datepart("d",thetime)
if len(theday)<2 then theday="0"&theday
ther=themon&"-"&theday
response.write ther
%>
<%=rs("hits")%>
<%
rs.movenext
if rs.eof then exit for
next
%>
<%if rs.pagecount>0 then %>
共有<%=rs.recordcount%>条|当前页<%=intpage%>/
<%
=rs.pagecount%>
<% end if %>
<%if intpage>1 then%>
?
page=1">首页
<%else%>
首页
<%end if%>
<%if first then%>
?
page=<%=intpage-1%>">上一页
<%else%>
上一页
<%end if%>
<%if last and intpage
?
page=<%=intpage+1%>">下一页
<%else%>
下一页
<%end if%>
<%if intpage
?
page=<%=rs.pagecount%>">尾页
<%else%>
尾页
<%end if%>
转到
[this.selectedIndex].value">
<%for b=1 to rs.pagecount
if b=intpage then%>
?page=<%=b%>" selected>
第<%=b%>页
<% else %>
?page=<%=b%>">第<%=b%>页
<%end if
next%>
<%
rs.close
set rs=nothing
conn.close
set conn=nothing
%> >
通过爱站技术频道小编介绍的程序员编写分页函数的方法，相信大家都有了一定的了解，如需了解更多的相关资讯，请继续关注爱站技术频道吧！
