202405月202303月202007月201706月201602月08月201501月05月08月09月11月
201401月03月05月06月07月
09月10月11月201305月08月09月11月12月
201201月02月03月05月201101月02月03月04月05月
06月07月08月09月10月
11月12月201001月02月03月04月05月
06月07月08月09月10月
11月12月200901月02月03月04月05月
06月07月08月09月10月
11月12月200801月02月03月04月05月
06月07月08月09月10月
11月12月200701月02月03月04月05月
06月07月08月09月10月
11月12月200601月02月03月04月05月
06月07月08月09月10月
11月12月200502月04月07月08月09月
10月11月12月
升级FCKeditor 到v2.6 正式版再改分页标签
作者:jogocun 日期:2008-06-22 22:51
在该页面底部添加如下代码:
程序代码
<%
'*******************************************
' 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]")
PageCounter=UBound(ArrContent)
If PageCounter > 0 Then
Page=Request.QueryString("pages")
Page=CInt(Page)
If Page<1 Then Page=1
If Page-2>PageCounter Then Page=PageCounter + 2
For x=1 To PageCounter+1
uu=sUrl & "&pages=" & x
If Page=x Then
xx=" [<font color='#FF0000'>" & x & "</font>]"
PageList = PageList & xx
Else
xx= x
PageList = PageList & " [<a href='" & uu & "'>" & xx & "</a>]"
End If
Next
uu = sUrl & "&pages=" & x
If Page=PageCounter + 2 Then
xx = " [<font color='#FF0000'>全文阅读</font>]"
PageList = PageList & xx
Else
xx = "全文阅读"
PageList = PageList & " [<a href='" & uu & "'>" & xx & "</a>]"
End If
If Page-1<=PageCounter Then
Content=ArrContent(Page-1)
End If
x = PageCounter + 1
Content=Content & "<hr><div align='right'>共 " & x & " 页:" & PageList & "</div>"
End If
content=replace(content,"['pagebreak]","")
End If
response.write (content)
End Sub%>
<%
'*******************************************
' FCK 日志分页
' 修改时间:2007年12月17日
'*******************************************
Sub FCKSplitxx(sUrl)
dim arrContent,Page,PageList,Content,PageCounter,x,xx,uu
Content=highlight(UnCheckStr(log_ViewArr(8,0)),keyword)
If InStr(1,cstr(Content),"<div style=""page-break-after: always""><span style=""display: none""> </span></div>",1)<>0 Then
ArrContent=Split(content,"<div style=""page-break-after: always""><span style=""display: none""> </span></div>")
PageCounter=UBound(ArrContent)
If PageCounter > 0 Then
Page=Request.QueryString("pages")
Page=CInt(Page)
If Page<1 Then Page=1
If Page-2>PageCounter Then Page=PageCounter+2
For x=1 To PageCounter+1
uu=sUrl & "&pages=" & x
If Page=x Then
xx=" [<font color='#FF0000'>" & x & "</font>]"
PageList = PageList & xx
Else
xx= x
PageList = PageList & " [<a href='" & uu & "'>" & xx & "</a>]"
End If
Next
uu = sUrl & "&pages=" & x
If Page=PageCounter + 2 Then
xx = " [<font color='#FF0000'>全文阅读</font>]"
PageList = PageList & xx
Else
xx = "全文阅读"
PageList = PageList & " [<a href='" & uu & "'>" & xx & "</a>]"
End If
If Page-1<=PageCounter Then
Content=ArrContent(Page-1)
'下面三行是标签补全,我的回车默认标签改为 <div> 了,所以补的是 </div> 和 <div>
'如果你的是 <p> 的话,补全的标签也要相应修改为 </p> 和 <p>
'插入分页符的时候,用回车换行,单独起一行来放分页符 ['pagebreak]
'If Page=1 Then Content=Content & "</div>"
'If Page-1=PageCounter Then Content="<div>" & Content
'If Page>1 And Page<=PageCounter Then Content="<div>" & Content & "</div>"
End If
x = PageCounter + 1
Content=Content & "<hr><div align='right'>共 " & x & " 页:" & PageList & "</div>"
End If
End If
response.write(Content)
End Sub%>
'*******************************************
' 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]")
PageCounter=UBound(ArrContent)
If PageCounter > 0 Then
Page=Request.QueryString("pages")
Page=CInt(Page)
If Page<1 Then Page=1
If Page-2>PageCounter Then Page=PageCounter + 2
For x=1 To PageCounter+1
uu=sUrl & "&pages=" & x
If Page=x Then
xx=" [<font color='#FF0000'>" & x & "</font>]"
PageList = PageList & xx
Else
xx= x
PageList = PageList & " [<a href='" & uu & "'>" & xx & "</a>]"
End If
Next
uu = sUrl & "&pages=" & x
If Page=PageCounter + 2 Then
xx = " [<font color='#FF0000'>全文阅读</font>]"
PageList = PageList & xx
Else
xx = "全文阅读"
PageList = PageList & " [<a href='" & uu & "'>" & xx & "</a>]"
End If
If Page-1<=PageCounter Then
Content=ArrContent(Page-1)
End If
x = PageCounter + 1
Content=Content & "<hr><div align='right'>共 " & x & " 页:" & PageList & "</div>"
End If
content=replace(content,"['pagebreak]","")
End If
response.write (content)
End Sub%>
<%
'*******************************************
' FCK 日志分页
' 修改时间:2007年12月17日
'*******************************************
Sub FCKSplitxx(sUrl)
dim arrContent,Page,PageList,Content,PageCounter,x,xx,uu
Content=highlight(UnCheckStr(log_ViewArr(8,0)),keyword)
If InStr(1,cstr(Content),"<div style=""page-break-after: always""><span style=""display: none""> </span></div>",1)<>0 Then
ArrContent=Split(content,"<div style=""page-break-after: always""><span style=""display: none""> </span></div>")
PageCounter=UBound(ArrContent)
If PageCounter > 0 Then
Page=Request.QueryString("pages")
Page=CInt(Page)
If Page<1 Then Page=1
If Page-2>PageCounter Then Page=PageCounter+2
For x=1 To PageCounter+1
uu=sUrl & "&pages=" & x
If Page=x Then
xx=" [<font color='#FF0000'>" & x & "</font>]"
PageList = PageList & xx
Else
xx= x
PageList = PageList & " [<a href='" & uu & "'>" & xx & "</a>]"
End If
Next
uu = sUrl & "&pages=" & x
If Page=PageCounter + 2 Then
xx = " [<font color='#FF0000'>全文阅读</font>]"
PageList = PageList & xx
Else
xx = "全文阅读"
PageList = PageList & " [<a href='" & uu & "'>" & xx & "</a>]"
End If
If Page-1<=PageCounter Then
Content=ArrContent(Page-1)
'下面三行是标签补全,我的回车默认标签改为 <div> 了,所以补的是 </div> 和 <div>
'如果你的是 <p> 的话,补全的标签也要相应修改为 </p> 和 <p>
'插入分页符的时候,用回车换行,单独起一行来放分页符 ['pagebreak]
'If Page=1 Then Content=Content & "</div>"
'If Page-1=PageCounter Then Content="<div>" & Content
'If Page>1 And Page<=PageCounter Then Content="<div>" & Content & "</div>"
End If
x = PageCounter + 1
Content=Content & "<hr><div align='right'>共 " & x & " 页:" & PageList & "</div>"
End If
End If
response.write(Content)
End Sub%>
修改完成,使用分页功能的时候切忌修改格式不要跨分页符修改格式,否则会出现页面变形的情况,简单的说就是设置内容格式的时候每页分别设置,不能全篇一起设置!FCK中插入分页符最好独占一行插入!
点此快速转到评论处,留下您的宝贵见解吧^_^ 本文如需转载,请详细注明出处,尊重版权,尊重别人的劳动成果,谢谢合作哦! |
评论列表 ↓ 点击显示/隐藏3条博友们的评论
站长 于 2008年06月25日 15:53 周三 回复:
不会麻烦呀,三下两下搞定,看准了替换即可的~