程序師世界是廣大編程愛好者互助、分享、學習的平台,程序師世界有你更精彩!
首頁
編程語言
C語言|JAVA編程
Python編程
網頁編程
ASP編程|PHP編程
JSP編程
數據庫知識
MYSQL數據庫|SqlServer數據庫
Oracle數據庫|DB2數據庫
 程式師世界 >> 編程語言 >> 網頁編程 >> ASP編程 >> 關於ASP編程 >> ASP實現長文章分頁

ASP實現長文章分頁

編輯:關於ASP編程
<% 
'處理接收分頁得參數,顯示頁數 也就默認第一頁 
'page這個參數就是讓變量pagenum去顯示第一也得值:0 
if Request("page")="" then 
pageNum=0 
'下面就是page接參數 
else 
pageNum=Request("page")
if not isnumeric(pageNum) then
Call DH.Alert("操作錯誤!","-1")
else
pageNum=clng(pageNum)
end if
end if %> 
<% 
'這裡就是關鍵了 把你得內容字段賦給 ConTentStr 

ConTentStr=Replace((rs("dhsl_Content")),"|||"," ||| ") 
%> 
<% 
'使用函數splist取出分段存入ConTentStr中 

ConTentStr=split(ConTentStr,"|||") 
'下面就是url取得得頁面變量 
for i = pageNum to pageNum 
%> 

'然後顯示內容 
<%=ConTentStr(i)%> 
<% Next %> 

本文章共分: 
<% 
for p = 0 to ubound(ConTentStr) 
%> 
<a href="內容頁面名稱.asp?傳遞的參數=<%=Request("接受的參數")%>&page=<%=p%>"class="text"><%=p+1%></a> 
<% next %>頁 
  1. 上一頁:
  2. 下一頁:
Copyright © 程式師世界 All Rights Reserved