明輝手游網(wǎng)中心：是一個(gè)免費(fèi)提供流行視頻軟件教程、在線學(xué)習(xí)分享的學(xué)習(xí)平臺！

怎么用ASP完成分頁（二）

發(fā)表時(shí)間：2024-06-16 來源：明輝站整理相關(guān)軟件相關(guān)文章人氣：

[摘要]<%@ Language=VBScript %> <HTML> <HEAD> </HEAD> <BODY> <% dim currentpage '定義當(dāng)前頁 dim filename '文件名 Const MaxP...

<%@ Language=VBScript %>
<HTML>
<HEAD>
</HEAD>
<BODY>

<%
dim currentpage '定義當(dāng)前頁
dim filename '文件名
Const MaxPerPage=20 '每頁顯示的記錄個(gè)數(shù)
dim totalnumber '記錄總數(shù)
filename="showpages.asp"
totalnumber=200 '設(shè)置記錄總數(shù)為200

if not isempty(request("page")) then
currentPage=cint(request("page"))
else
currentPage=1
end if
showpages totalnumber,MaxPerPage,filename
%>
</BODY>
</HTML>
<%'定義分頁的函數(shù)，以totalnumber，maxperpage，filename作為函數(shù)的入口。
function showpages()
dim n
if (totalnumber mod MaxPerPage)=0 then
n= totalPut \ MaxPerPage
else
n= totalPut \ MaxPerPage + 1
end if
if n=1 then
exit sub
end if
dim k
response.write "<p align='left'>&gt;&gt; 分頁 "
for k=1 to n
if k=currentPage then
response.write "[<b>"+Cstr(k)+"</b>] "
else
response.write "[<b>"+"<a href="&filename&"?page="+cstr(k)+">"+Cstr(k)+"</a></b>] "
end if
next
response.write "</p>"
end function
%>（出處：熱點(diǎn)網(wǎng)絡(luò)）