给fckeditor编辑器加分页功能

首先修改js文件夹里面的fckeditorcode_gecko.js，fckeditorcode_ie.js文件，修改<span style="DISPLAY:none">&nbsp;</span>为<span style="DISPLAY:none">[page]</span>，保存这两个文件；
接下来修改数据显示页面，例如：
程序代码：
content=Rs("conetnt")
修改为：

content=UnCheckStr(Rs("Content"))
pagecut="<div style=""PAGE-BREAK-AFTER: always""><span style=""DISPLAY: none"">[page]</span></div>"

If InStr(1,cstr(content),pagecut,1)<>0 Then    '注意去掉page和splitxx 中间的空格
    ArrContent=Split(content,pagecut)  '注意去掉page和splitxx 中间的空格
    PageCounter=UBound(ArrContent)
    Page=Request.QueryString("Page")
    If isnumeric(Page)=false Then Page=1
    If Page<1 Then Page=1
    If Page-1>PageCounter Then Page=1
    For x=1 To PageCounter+1
        xx=x
        If CInt(Page)=x Then xx="<font style='color:red;font-weight:bold'>"&x&"</font>"
        PageList=PageList&" "&"<a href='?Page="&x&"'>["&xx&"]</a>"
    Next
        content=ArrContent(Page-1)&"<div align='center' style='font-size:12px'>"&pagelist&"</div>"
End If

response.write (content)

'*************************************
'恢复特殊字符
'*************************************
Function UnCheckStr(ByVal Str)
        If IsNull(Str) Then
            UnCheckStr = ""
            Exit Function 
        End If
        Str = Replace(Str,"&#39;","'")
        Str = Replace(Str,"&#34;","""")
        Dim re
        Set re=new RegExp
        re.IgnoreCase =True
        re.Global=True
        re.Pattern="(w)(h&#101;re)"
        str = re.replace(str,"$1here")
        re.Pattern="(s)(el&#101;ct)"
        str = re.replace(str,"$1elect")
        re.Pattern="(i)(ns&#101;rt)"
        str = re.replace(str,"$1nsert")
        re.Pattern="(c)(r&#101;ate)"
        str = re.replace(str,"$1reate")
        re.Pattern="(d)(ro&#112;)"
        str = re.replace(str,"$1rop")
        re.Pattern="(a)(lt&#101;r)"
        str = re.replace(str,"$1lter")
        re.Pattern="(d)(el&#101;te)"
        str = re.replace(str,"$1elete")
        re.Pattern="(u)(p&#100;ate)"
        str = re.replace(str,"$1pdate")
        re.Pattern="(s)(o&#114;)"
        Str = re.replace(Str,"$1or")
        Set re=Nothing
        Str = Replace(Str, "&amp;", "&")
        UnCheckStr=Str
End Function

按照上面修改就可以实现分页，很不错的！