//呼叫例子。上面的函式我是封裝在pagefunction.asp檔案裡面的 註明：在引入pagefunction.asp檔案之前的也是可以封裝成乙個固定的檔案裡面。然後通過引入，呼叫對應的函式的。
//函式是**重用的最基礎的封裝。練習多了，**敲多了，很多基本的功能，都可以逐步封裝成為自己的庫**
<%
const maxperpage=1
dim totalput
dim currentpage
dim totalpages
dim j
dim sql
if not isempty(saferequest("page",1)) then
currentpage=cint(saferequest("page",1))
else
currentpage=1
end if
i=0rs.open "select * from acticle where categoryid=391 order by adddate desc",conn,1,1
if rs.eof and rs.bof then
rs.close
response.write "目前還沒有新聞！"
else
totalput=rs.recordcount
totalpages=totalput/maxperpage
if (currentpage-1)*maxperpage>totalput then
if (totalput mod maxperpage)=0 then
currentpage= totalput / maxperpage
else
currentpage= totalput / maxperpage + 1
end if
end if
if currentpage=1 then
showcontent
showpage totalput,maxperpage,"newslist.asp"
else
if (currentpage-1)*maxperpage
<%
end sub
%>
asp數字分頁函式
function showpage totalnumber,maxperpage,filename dim n if totalnumber mod maxperpage 0 then n totalnumber maxperpage else n totalnumber maxperpage 1 ...
ASP分頁函式
asp分頁函式 function exportpageinfo byref rs,curpage,i,linkfile dim retval,j,pagenumber,basepage retval 第 curpage 頁 總 rs.pagecount 頁 retval retval 本頁 i 條 ...
asp數字分頁示例共三個
set rs server.createobject adodb.recordset sql select from 表 rs.open sql,conn,1,1 page cint request page n rs.recordcount rs.pagesize 12 m cint rs.pag...