'*******************************************
' UBB 日志分页
' 修改时间:2007年12月17日
'*******************************************
Sub UBBSplitxx(sUrl)
dim arrContent,Page,PageList,Content,PageCounter,x,xx,uu
Content=highlight(UnCheckStr(UBBCode(HtmlEncode(log_ViewArr(8,0)),mid(log_ViewArr(11,0),1,1),mid(log_ViewArr(11,0),2,1),mid(log_ViewArr(11,0),3,1),mid(log_ViewArr(11,0),4,1),mid(log_ViewArr(11,0),5,1))),keyword)
If InStr(1,cstr(Content),"[pagebreak]",1)<>0 Then
ArrContent=Split(Content,"[pagebreak]")
UBB分页只要在分页的地方插入
If InStr(1,cstr(Content),"[pagebreak]",1)<>0 Then
ArrContent=Split(Content,"[pagebreak]")
这两句语句中的[pagebreak]就可以了,你也可以改成其它的~~!