這裡介紹一個asp常用的分頁函數詳細教程,方法很簡單，感興趣的朋友跟小編一起來了解一下吧!
複製代碼代碼如下:
rs.opensql,conn,1,1
ifrs.eofandrs.bofthen
response.write"
"
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分頁函數詳細教程，想必都了解了吧，更多相關內容請繼續關注錯新技術頻道。