<%
function showpage(totalnumber,maxperpage,filename)
dim n
if totalnumber mod maxperpage=0 then
n= totalnumber / maxperpage
else
n= totalnumber / maxperpage+1
end if
%>
<%
if currentpage<2 then %>//總頁數小於2
首頁<% else %>
?page=1&categoryid=<%=categoryid%> >首頁
<%
end if
if totalpages>8 then//如果總頁數大於8,則使用1 2 3。。。9這樣的形式輸出頁數。否則全部輸出1,2,3,4,5,6,7,8
if currentpage>=3 then//在總頁數大於8的情況下,當前頁數不小於3的時候輸出
for j=currentpage-1 to currentpage
%>
<%
if j=currentpage then//固定當前頁在輸出的時候是span而不是a
%>
<%=currentpage%>
<%
else
%>
?page=<% =j %>><%=j%>
<%
end if
next
%>
?page=<% =currentpage+1 %>&categoryid=<%=categoryid%>><%=currentpage+1%>
<% else //如果小於3.則固定輸出1,2,3
for j=1 to 3
%>
<%
if j=currentpage then
%>
<%=currentpage%>
<%
else
%>
?page=<% =j %>&categoryid=<%=categoryid%>><%=j%>
<%
end if
next
end if
%>
<% if currentpage+4//在總頁數大於8且當前頁數+4時候輸出。。。否則不輸出。。。
...<%
%>
?page=<% =currentpage+4 %>&categoryid=<%=categoryid%>><%=currentpage+4 %>
<%
end if
else
for j=1 to totalpages
%>
<%
if j=currentpage then
%>
<%=currentpage%>
<%
else
%>
?page=<% =j %>&categoryid=<%=categoryid%>><%=j%>
尾頁?page=<% = n %>&categoryid=<%=categoryid%>>尾頁
<% end if %>
<%
end function
%>
ASP分頁函式
asp分頁函式 function exportpageinfo byref rs,curpage,i,linkfile dim retval,j,pagenumber,basepage retval 第 curpage 頁 總 rs.pagecount 頁 retval retval 本頁 i 條 ...
asp數字分頁函式 實際使用例子。
呼叫例子。上面的函式我是封裝在pagefunction.asp檔案裡面的 註明 在引入pagefunction.asp檔案之前的也是可以封裝成乙個固定的檔案裡面。然後通過引入,呼叫對應的函式的。函式是 重用的最基礎的封裝。練習多了,敲多了,很多基本的功能,都可以逐步封裝成為自己的庫 const ma...
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...