有时候文章长了显示挺难看的，考虑了一下思路作了个日志分页的功能，挺实用的
下一页是代码修改思路[page]
[#splitline#]
[mem]找到
IF log_IsShow = True OR (log_IsShow=False And (memStatus="SupAdmin" OR (memStatus="Admin" And memName=log_Author))) Then

在代码上面新增
dim pageNum,thelogcontent,This_logconten,TotalPage,pi
If Request("page")="" Then
pageNum=0
Else
pageNum=Request("page")
End if
log_Content=Replace(Lcase(log_Content),"[&page&]"," [&page&] ")
This_logconten=Split(log_Content,"[&page&]")
TotalPage=Ubound(This_logconten)
找到
if log_editType=1 then
Response.Write("<SPAN id='fontzoom'>"&Ubbcodes(HTMLEncode(log_Content),log_DisSM,log_DisUBB,log_DisIMG,log_AutoURL,log_AutoKEY,logID)&"<br><br>")
替换为
if log_editType=1 then
Response.Write("<SPAN id='fontzoom'>"&Ubbcodes(HTMLEncode(This_logconten(pageNum)),log_DisSM,log_DisUBB,log_DisIMG,log_AutoURL,log_AutoKEY,logID)&"<br><br>")
找到
IF log_Modify<>Empty Then%>
上面新增
if TotalPage>0 then
Response.Write("<div align=""left"" class=""smalltxt"" height=""30px"">&nbsp;&nbsp;[&nbsp;第<Font class=fontone>"&pageNum+1&"</font>页|共<Font class=fontone>"&TotalPage+1&"</font>页&nbsp;&nbsp;转跳至: ")
For pi=0 to TotalPage
Response.Write ("<a href=blogview.asp?LogID="&logID&"&page="&pi&">第<Font class=fontone>"&pi+1&"</font>页</a>&nbsp;")
NEXT
Response.Write("]</div>")
end if[/mem]
以上代码仅做参考因为我的博客修改比较多，不一定跟你的找到和替换的代码完全相同
[color=Red]如有不符概不负责！因为代码部分会自动变更分页所以[&page&]变更为 [&page&]去掉&[/color]