ASP分頁函數

來源:互聯網
上載者:User
分頁|函數

const MaxPerPage=18
dim page
if not request("page")="" then
 Page=cint(request("page"))
else
 Page=1
end if

dim i
i=0
rs.move (Page-1)*MaxPerPage

分頁
do while
 ' 中間是迴圈段
 i=i+1
 if i>=MaxPerPage then exit do
 rs.movenext
loop

===========================
totalnumber = 記錄總數
maxperpage = 每頁記錄數
filename = 分頁的檔案名稱
<%
function showpage(totalnumber,maxperpage,filename)
dim n
if totalnumber mod maxperpage=0 then
n= totalnumber \ maxperpage
else
n= totalnumber \ maxperpage+1
end if
response.write "<form method=Post action="&filename&">"
response.write "<p align='center'><font color='#000080'>>>分頁</font> "
if page<2 then
response.write "<font color='#000080'>首頁 上一頁</font> "
else
response.write "<a href="&filename&"?page=1&>首頁</a> "
response.write "<a href="&filename&"?page="&page-1&">上一頁</a> "
end if
if n-page<1 then
response.write "<font color='#000080'>下一頁 尾頁</font>"
else
response.write "<a href="&filename&"?page="&(page+1)
response.write ">下一頁</a> <a href="&filename&"?page="&n&">尾頁</a>"
end if
response.write "<font color='#000080'> 頁次:</font><strong><font color=red>"&page&"</font><font color='#000080'>/"&n&"</strong>頁</font> "
response.write "<font color='#000080'> 共<b>"&totalnumber&"</b>條記錄 <b>"&maxperpage&"</b>條記錄/頁</font> "
response.write " <font color='#000080'>轉到:</font><input type='text' name='page' size=4 value="&page&">"
response.write "<input type=submit name=Submit value=go> </span></p>"

end function
%>



相關文章

Beyond APAC's No.1 Cloud

19.6% IaaS Market Share in Asia Pacific - Gartner IT Service report, 2018

Learn more >

Apsara Conference 2019

The Rise of Data Intelligence, September 25th - 27th, Hangzhou, China

Learn more >

Alibaba Cloud Free Trial

Learn and experience the power of Alibaba Cloud with a free trial worth $300-1200 USD

Learn more >

聯繫我們

該頁面正文內容均來源於網絡整理,並不代表阿里雲官方的觀點,該頁面所提到的產品和服務也與阿里云無關,如果該頁面內容對您造成了困擾,歡迎寫郵件給我們,收到郵件我們將在5個工作日內處理。

如果您發現本社區中有涉嫌抄襲的內容,歡迎發送郵件至: info-contact@alibabacloud.com 進行舉報並提供相關證據,工作人員會在 5 個工作天內聯絡您,一經查實,本站將立刻刪除涉嫌侵權內容。