當PHP程序員編寫程序代碼時，他們通常都會使用到分頁功能，代碼其實和編寫WORD文檔是一樣的，接下來就讓錯新技術小編帶大家來了解一下程序員編寫分頁函數的方法。複製代碼代碼如下:
<%
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
%> > then%> > then%> > > >
通過錯新技術頻道小編介紹的程序員編寫分頁函數的方法，相信大家都有了一定的了解，如需了解更多的相關資訊，請繼續關注錯新技術頻道吧！