長文章用分頁符來分頁顯示(ASP實現)

長文章頁用分頁符來顯示，想用ASP也實現這種功能，可發現只有根據字數進行分頁的方法，但這種方法
有一個BUG，就是如果你文章內容中如果有UBB代碼，它很容易造成在[code][/code]之間進行分頁，或者
乾脆就把[code]分解成了[co和de]，這樣文章顯示就會出現錯誤。
以下幾個步驟將能夠完全實現。
第一步：
按照正常的文章系統一路做下去，背景文章添加，文章的檢索，和文章的詳細頁，都是常規方式操
作，這裡不加描述，請參閱相關文章。只是在文章添加時，在你想讓它分頁的地方加上分頁符：“|||”
（當然這個符號你可以隨便用，比如：[page]、&&&、###、@@@……，只要它不會在文章要正常顯示的地
方出現就行了。）
我用了四個頁面，輸入頁（index.asp）、輸入完成頁（add.asp）、文章列表頁（view.asp）、文章
內容頁（display.asp），前三個都是不用處理的頁面，看下面的圖片我想一般的小鳥就會做了，關鍵是最後
一個displasy.asp，所有實現分頁的代碼都在這裡。
第二步：
在文章本文內容的動態資料部分做一些手腳，下面是代碼和解釋：
<%
'這裡要處理接收到的分頁參數，以此來進行顯示第幾頁的內容
'下面這兩句就是如果沒有page這個參數傳來就讓變數pageNum取顯示第一頁的值：0
If Request("page")="" Then
pageNum=0
'否則就給變數賦值為傳遞來的page裡的參數，來顯示其他頁
Else
pageNum=Request("page")
End if
%>
<%
'如果加了可選執行UBB代碼，可以加上下面的代碼
'rs("NoUBB")是資料庫裡關于禁用UBB的欄位，0為禁用，1為執行
If rs("NoUBB")=0 then
'為避免和文章內容相連出現錯誤，用Replace函數把分頁代碼“|||”的前後各加一個全形的
'rs("content")是資料庫裡本文的欄位，在這裡加上UBB或者禁用UBB
Content=Replace((unHTML(rs("content"))),"|||","　|||　")
Elseif rs("NoUBB")=1 then
Content=Replace((ubb(rs("content"))),"|||","　|||　")
End if
%>
<%
'這裡就是關鍵了
'我們用split函數將文章分段取出存入變數content
ContentStr=split(Content,"|||")