模仿PHP寫的ASP 分頁

來源:互聯網
上載者:User
分頁|分頁 <%
' 分頁程式
' total_records 總記錄數
' everypage_records 每頁顯示條數
' current_page 當前頁數
' url 要傳遞的url,這裡可以含有要傳遞的變數,比如 "list.asp?" 或者"list.asp?keyword=key&"
' 程式調用比較簡單,不過還是比PHP的麻煩,繼續努力中

sub show_page(total_records,everypage_records,current_page,url)

if IsNumeric (total_records) then
total_records=Int(total_records)
else
total_records=0
end if

if IsNumeric (everypage_records) then
everypage_records=Int(everypage_records)
if everypage_records<=0 then
everypage_records=10
end if
else
everypage_records=10
end if

if IsNumeric (current_page) then
current_page=Int(current_page)
else
current_page=1
end if

'取總頁數,即最後一頁
if total_records mod everypage_records=0 then
last_page=Int(total_records/everypage_records)
else
last_page=Int(total_records/everypage_records)+1
end if

'判斷 current_page 是否符合標準,並附值給page
if current_page>=last_page then
page=last_page
elseif current_page<=1 then
page=1
else
page=current_page
end if

'上一頁
if page<=0 then
prepg=0
else
prepg=page-1
end if
'下一頁
if page=last_page then
nextpg=0
else
nextpg=page+1
end if

'本頁開始記錄
firstcount=prepg*everypage_records
'本頁結束記錄
if nextpg>=1 then
lastcount=(nextpg-1)*everypage_records
else
lastcount=total_records
end if
'開始分頁導航條代碼
pagenav=""
pagenav1=""
pagenav=pagenav&"顯示第<b>"&firstcount&"-"&lastcount&"</b>條記錄 共<b>"&total_records&"</b> 條記錄"
pagenav1=pagenav1&"顯示第<b>"&firstcount&"-"&lastcount&"</b>條記錄 共<b>"&total_records&"</b> 條記錄"

if last_page>1 then
'當有前後頁時
pagenav=pagenav&" <a href='"&url&"page=1'>首頁</a> "
pagenav1=pagenav1&" <a href='"&url&"page=1'>首頁</a> "
if prepg>=1 then
pagenav=pagenav&" <a href='"&url&"page="&prepg&"'>前頁</a> "
pagenav1=pagenav1&" <a href='"&url&"page="&prepg&"'>前頁</a> "
else
pagenav=pagenav&" 前頁 "
pagenav1=pagenav1&" 前頁 "
end if
if nextpg>=1 then
pagenav=pagenav&" <a href='"&url&"page="&nextpg&"'>後頁</a> "
pagenav1=pagenav1&" <a href='"&url&"page="&nextpg&"'>後頁</a> "
else
pagenav=pagenav&" 後頁 "
pagenav1=pagenav1&" 後頁 "
end if
pagenav=pagenav&" <a href='"&url&"page="&last_page&"'>尾頁</a> "
pagenav1=pagenav1&" <a href='"&url&"page="&last_page&"'>尾頁</a> "

pagenav=pagenav&"到第<input type=text name=text100 id=text100 value="&page&" size=3>頁<input type=button name=button100 value=go >"
pagenav1=pagenav1&" 共 "&last_page&" 頁"
end if

end sub
%>




相關文章

E-Commerce Solutions

Leverage the same tools powering the Alibaba Ecosystem

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 個工作天內聯絡您,一經查實,本站將立刻刪除涉嫌侵權內容。