本文討論區：http://bbs.foosun.net/dispbbs.asp?boardID=22&ID=5814&page=1

我改的已經太多了，對大家不適用，只能將這一小段代碼貼出來，能看懂的就用吧；

注重：請將(Page)中的"("替換為"["和")"替換為"]"不包括引號

Refresh/function.asp文件。找到if IsNull(NewsContent) then NewsContent = ""這一行

if IsNull(NewsContent) then NewsContent = ""
'自動分頁開始
Dim PageCount,Content,PageContent
if NewsContent <> "" and InStr(1,NewsContent,"Application("WordNum") <> 0 then
PageCount=Int(Len(NewsContent)/Application("WordNum"))
Content=left(NewsContent,Application("WordNum"))&"(Page)"
for i=1 to PageCount
if i = PageCount then
PageContent=Mid(NewsContent,Application("WordNum")*i 1,Application("WordNum"))
else
PageContent=Mid(NewsContent,Application("WordNum")*i 1,AApplication("WordNum")) &"(Page)"
end if
Content = Content & PageContent
next
NewsContent = Content
else
NewsContent = NewsContent
end if
'自動分頁結束這段代碼你們復制過去也不能使用。主要是因為我將每頁字符數WordNum存入了Application對象。你們可以直接在Inc/Const.asp中加入這一行

Const WordNum = 3000 '自動分頁每頁字符數

查看更多 風訊cms教程  風訊cms模板