這里介紹一個asp常用的分頁函數詳細教程,方法很簡單，感興趣的朋友跟小編一起來了解一下吧!

　　復制代碼 代碼如下:

　　rs.opensql,conn,1,1

　　ifrs.eofandrs.bofthen

　　response.write"還沒找到文章='center'>

"

?

　　else

　　totalPut=rs.recordcount

　　maxperpage=18

　　ifcurrentpage

　　currentpage=1

　　endif

　　if(currentpage-1)*maxperpage>totalputthen

　　if(totalputmodmaxperpage)=0then

　　currentpage=totalput/maxperpage

　　else

　　currentpage=totalput/maxperpage+1

　　endif

　　endif

　　ifcurrentpage=1then

　　showpage1totalput,maxperpage,"infotype.asp?id="&request("id")

　　showcontent()

　　showpagetotalput,maxperpage,"infotype.asp?id="&request("id")

　　else

　　if(currentpage-1)*maxperpage

　　rs.move(currentpage-1)*maxperpage

　　dimbookmark

　　bookmark=rs.bookmark

　　showpage1totalput,maxperpage,"infotype.asp?id="&request("id")

　　showcontent

　　showpagetotalput,maxperpage,"infotype.asp?id="&request("id")

　　else

　　currentpage=1

　　showpage1totalput,maxperpage,"infotype.asp?id="&request("id")

　　showcontent

　　showpagetotalput,maxperpage,"infotype.asp?id="&request("id")

　　endif

　　endif

　　endif

　　%>

　　subshowcontent()

　　%>

　　ID

　　選擇

　　信息標題

　　更新日期

　　點擊

　　添加人

　　編輯

　　刪除

　　生成[歸零]

　　i=1

　　dowhilenotrs.eof

　　%>

　　">

　　"target="_blank">[]

　　strcounts=truelen(thetitle1)

　　response.writethetitle1

　　%>

　　datetime=rs("datetime")

　　yname=year(datetime)

　　mname=month(datetime)

　　iflen(mname)

　　dname=month(datetime)

　　iflen(dname)

　　foldername=yname&mname

　　%>

　　/.htm"title="查看生成的靜態頁面"target="_blank">

　　">修改

　　)">刪除

　　)">生成(','','width=0,height=0')">)

　　i=i+1

　　ifi>maxperpagethenexitdo

　　rs.movenext

　　loop

　　%>

　　ID

　　選擇

　　信息標題

　　更新日期

　　點擊

　　添加人

　　編輯

　　刪除

　　生成

　　endsub

　　%>

　　functionshowpage(totalnumber,maxperpage,filename)

　　%>

　　dimn

　　iftotalnumbermodmaxperpage=0then

　　n=totalnumber/maxperpage

　　else

　　n=totalnumber/maxperpage+1

　　endif

　　%>

　　共有/條，

　　當前頁/

　　[首頁][上一頁]

　　">[首頁]&page=">[上一頁]

　　[下一頁][尾頁]&page=">[下一頁]&page=">[尾頁]

　　轉到：

　　onChange="location.href=this.options[this.selectedIndex].value">

　　ifcurrentpage=jthen

　　%>&page="selected>

　　else

　　%>

　　&page=">

　　endif

　　next

　　%>

　　endfunction

　　%>

　　functionshowpage1(totalnumber,maxperpage,filename)

　　%>

　　dimb

　　iftotalnumbermodmaxperpage=0then

　　b=totalnumber/maxperpage

　　else

　　b=totalnumber/maxperpage+1

　　endif

　　%>

　　共有/條，

　　當前頁/

　　dxystart=currentpage-5

　　ifdxystart

　　dxyend=currentpage+5

　　ifdxyend>bthendxyend=b

　　fordxy=dxystarttodxyend

　　ifdxy=currentpagethen

　　response.write"["&""&dxy&""&"]"&""=red>

　　else

　　response.write"["&dxy&""&"]"&""

　　endif

　　next

　　%>

　　endfunction

　　%>

　　rs.close

　　setrs=nothing

　　conn.close

　　setconn=nothing

　　%>

　　以上就是asp分頁函數詳細教程，想必都了解了吧，更多相關內容請繼續關注錯新技術頻道。