实现自动分页功能其实很简单-风讯CMS教程

本文讨论区：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 '自动分页每页字符数