asp數字分頁函式

2021-05-25 01:33:13 字數 1660 閱讀 9976

<%

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...