| 我改的已经太多了，对大家不适用，只能将这一小段代码贴出来，能看懂的就用吧；
注意：请将(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
'自动分页结束Const WordNum = 3000 '自动分页每页字符数 |
