ASP實(shí)現(xiàn)長(zhǎng)文章分頁
更新時(shí)間:2007年02月10日 00:00:00 作者:
<%
'處理接收分頁得參數(shù),顯示頁數(shù) 也就默認(rèn)第一頁
'page這個(gè)參數(shù)就是讓變量pagenum去顯示第一也得值:0
if Request("page")="" then
pageNum=0
'下面就是page接參數(shù)
else
pageNum=Request("page")
if not isnumeric(pageNum) then
Call DH.Alert("操作錯(cuò)誤!","-1")
else
pageNum=clng(pageNum)
end if
end if %>
<%
'這里就是關(guān)鍵了 把你得內(nèi)容字段賦給 ConTentStr
ConTentStr=Replace((rs("dhsl_Content")),"|||"," ||| ")
%>
<%
'使用函數(shù)splist取出分段存入ConTentStr中
ConTentStr=split(ConTentStr,"|||")
'下面就是url取得得頁面變量
for i = pageNum to pageNum
%>
'然后顯示內(nèi)容
<%=ConTentStr(i)%>
<% Next %>
本文章共分:
<%
for p = 0 to ubound(ConTentStr)
%>
<a href="內(nèi)容頁面名稱.asp?傳遞的參數(shù)=<%=Request("接受的參數(shù)")%>&page=<%=p%>"class="text"><%=p+1%></a>
<% next %>頁
'處理接收分頁得參數(shù),顯示頁數(shù) 也就默認(rèn)第一頁
'page這個(gè)參數(shù)就是讓變量pagenum去顯示第一也得值:0
if Request("page")="" then
pageNum=0
'下面就是page接參數(shù)
else
pageNum=Request("page")
if not isnumeric(pageNum) then
Call DH.Alert("操作錯(cuò)誤!","-1")
else
pageNum=clng(pageNum)
end if
end if %>
<%
'這里就是關(guān)鍵了 把你得內(nèi)容字段賦給 ConTentStr
ConTentStr=Replace((rs("dhsl_Content")),"|||"," ||| ")
%>
<%
'使用函數(shù)splist取出分段存入ConTentStr中
ConTentStr=split(ConTentStr,"|||")
'下面就是url取得得頁面變量
for i = pageNum to pageNum
%>
'然后顯示內(nèi)容
<%=ConTentStr(i)%>
<% Next %>
本文章共分:
<%
for p = 0 to ubound(ConTentStr)
%>
<a href="內(nèi)容頁面名稱.asp?傳遞的參數(shù)=<%=Request("接受的參數(shù)")%>&page=<%=p%>"class="text"><%=p+1%></a>
<% next %>頁
相關(guān)文章
asp利用Split函數(shù)進(jìn)行多關(guān)鍵字檢索
怎樣提取數(shù)據(jù)庫用|隔開的字!2009-09-09
asp水印組件之AspJpeg的結(jié)合代碼實(shí)例
AspJpeg的應(yīng)用 最近在進(jìn)行新的主頁系統(tǒng)的制作,當(dāng)中用到了ASPJPEG操作,從網(wǎng)上早了些資料2008-01-01
判斷dll文件是否已經(jīng)注冊(cè)的ASP函數(shù)代碼
有時(shí)候需要判斷服務(wù)器是否按照了dll文件,那么就可以參考下面的代碼進(jìn)行判斷。2011-09-09
新手asp編程的基本法則與常見錯(cuò)誤注意事項(xiàng)
在論壇看到很多帖子代碼中都有一個(gè)共同的基本錯(cuò)誤,字段類型錯(cuò)誤。程序和數(shù)據(jù)庫是緊緊相連的,數(shù)據(jù)庫字段文本型或時(shí)間型的都使用單引號(hào)2008-07-07
asp CutStrX字符串截取函數(shù)(過濾全部HTML標(biāo)記)
asp CutStrX字符串截取函數(shù)(過濾全部HTML標(biāo)記),比較不錯(cuò),需要的朋友可以參考下。2011-07-07

