国产探花免费观看_亚洲丰满少妇自慰呻吟_97日韩有码在线_资源在线日韩欧美_一区二区精品毛片,辰东完美世界有声小说,欢乐颂第一季,yy玄幻小说排行榜完本

首頁 > 編程 > ASP > 正文

ASP實現長文章分頁

2020-07-27 13:15:29
字體:
來源:轉載
供稿:網友
<% 
'處理接收分頁得參數,顯示頁數 也就默認第一頁 
'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 %>頁 
發表評論 共有條評論
用戶名: 密碼:
驗證碼: 匿名發表
主站蜘蛛池模板: 岳阳县| 乌兰察布市| 芜湖县| 河津市| 西乌珠穆沁旗| 海晏县| 平利县| 阜平县| 大埔县| 南丹县| 漳州市| 玉山县| 张家界市| 游戏| 白朗县| 安阳市| 罗山县| 始兴县| 成安县| 广平县| 乐昌市| 泸西县| 霍林郭勒市| 定兴县| 乌拉特前旗| 方城县| 庄河市| 长治市| 固原市| 建瓯市| 枣强县| 乌鲁木齐市| 呼图壁县| 巩留县| 若尔盖县| 竹山县| 通海县| 冀州市| 长兴县| 金门县| 当阳市|