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 %>頁