程序代码 订阅所有【程序代码】的日志

PJ3富文本编辑器FCKeditor换成UEditor

作者:admin 日期:2024-09-17

在UEditor官网github.com/fex-team/ueditor/releases下载ASP版本文件(ueditor1_4_3_3-utf8-asp.zip)，解压到PJBlog根目录UEditor文件夹中，然后按照下边方法修改即可。

第一步：创建一个新的asp文件(UEditor.asp)

ASP/Visual Basic代码
  1. <%  
  2. Class UEditor  
  3.   
  4.     private sBasePath  
  5.     private sInstanceName  
  6.     private sWidth  
  7.     private sHeight  
  8.     private sToolbarSet  
  9.     private sValue  
  10.   
  11.     Private Sub Class_Initialize()  
  12.         sBasePath        = "/UEditor"  
  13.         sWidth            = "100%"  
  14.         sHeight            = "200px"  
  15.         sToolbarSet        = "Default"  
  16.         sValue            = ""  
  17.     End Sub  
  18.   
  19.     Public Property Let BasePath( basePathValue )  
  20.         sBasePath = basePathValue  
  21.     End Property  
  22.   
  23.     Public Property Let InstanceName( instanceNameValue )  
  24.         sInstanceName = instanceNameValue  
  25.     End Property  
  26.   
  27.     Public Property Let Width( widthValue )  
  28.         sWidth = widthValue  
  29.     End Property  
  30.   
  31.     Public Property Let Height( heightValue )  
  32.         sHeight = heightValue  
  33.     End Property  
  34.   
  35.     Public Property Let ToolbarSet( toolbarSetValue )  
  36.         sToolbarSet = toolbarSetValue  
  37.     End Property  
  38.   
  39.     Public Property Let Value( newValue )  
  40.         If ( IsNull( newValue ) or IsEmpty( newValue ) ) Then  
  41.             sValue = ""  
  42.         Else  
  43.             sValue = newValue  
  44.         End If  
  45.     End Property  
  46.   
  47.     ' Generates the instace of the editor in the HTML output of the page.  
  48.     Public Sub Create( instanceName )  
  49.         response.write CreateHtml( instanceName )  
  50.     end Sub  
  51.   
  52.     ' Returns the html code that must be used to generate an instance of UEditor.  
  53.     Public Function CreateHtml( instanceName )  
  54.         dim html  
  55.   
  56.         html = ""  
  57.   
  58.         '加载编辑器的容器  
  59.         html = html &  Replace(Replace(Replace(Replace("<script id=""{0}"" name=""{0}"" type=""text/plain"" style=""width:{1};height:{2};"">{3}</script>", "{0}", instanceName), "{1}", sWidth), "{2}", sHeight), "{3}", sValue)  
  60.         '实例化编辑器  
  61.         If sToolbarSet="Basic" Then  
  62.             html = html & Replace("<script type=""text/javascript"">UE.getEditor('{0}', {toolbars: [['fullscreen', 'source', 'undo', 'redo', 'bold']]});</script>", "{0}", instanceName)  
  63.         Else  
  64.             html = html & Replace("<script type=""text/javascript"">UE.getEditor('{0}', {toolbars: [['fullscreen', 'source', '|', 'customstyle', 'paragraph', 'fontfamily', 'fontsize', '|','indent', 'justifyleft', 'justifycenter', 'justifyright', 'justifyjustify', '|','undo', 'redo', '|','bold', 'italic', 'underline', 'fontborder', 'strikethrough', 'superscript', 'subscript', 'removeformat', 'formatmatch', 'autotypeset', 'blockquote', 'pasteplain', '|', 'forecolor', 'backcolor', 'selectall', 'cleardoc', '|','link', 'unlink', 'anchor', '|','simpleupload', 'insertimage', 'emotion', 'insertvideo', 'music', 'attachment', 'map', 'pagebreak', 'template', 'background', '|','date', 'time', 'spechars', 'snapscreen', '|','touppercase', 'tolowercase', '|','inserttable', 'deletetable', 'insertparagraphbeforetable', 'insertrow', 'deleterow', 'insertcol', 'deletecol', 'mergecells', 'mergeright', 'mergedown', 'splittocells', 'splittorows', 'splittocols']]});</script>", "{0}", instanceName)  
  65.         End If  
  66.   
  67.         CreateHtml = html  
  68.   
  69.     End Function  
  70.   
  71.     Public Sub LoadScript()  
  72.         dim html  
  73.         html = ""  
  74.         html = html & "<script type=""text/javascript"" charset=""utf-8"" src=""" & sBasePath & "/ueditor.config.js""></script>"  
  75.         html = html & "<script type=""text/javascript"" charset=""utf-8"" src=""" & sBasePath & "/ueditor.all.min.js""> </script>"  
  76.         html = html & "<script type=""text/javascript"" charset=""utf-8"" src=""" & sBasePath & "/lang/zh-cn/zh-cn.js""></script>"  
  77.         Response.Write(html)  
  78.     End Sub  
  79. End Class  
  80.   
  81. %>  

 

 

第二步：修改blogpost.asp

  1. 删除
ASP/Visual Basic代码
  1. <!--#include file="FCKeditor/fckeditor.asp" -->  

         2.添加

ASP/Visual Basic代码
  1. <!--#include file="UEditor/UEditor.asp" -->  

        3.修改

找到下面代码

ASP/Visual Basic代码
  1. <label title="FCK在线编辑器" for="ET2" accesskey="K">  
  2. <input name="log_editType" type="radio" id="ET2" value="0" />         FCKeditor</label></td>  

替换

ASP/Visual Basic代码
  1. <label title="UEditor" for="ET2" accesskey="E"><input name="log_editType" type="radio" id="ET2" value="0" />UEditor</label>  

      4.修改

ASP/Visual Basic代码
  1. Dim sBasePath  
  2. sBasePath = "FCKeditor/"  
  3. Dim oFCKeditor  
  4. Set oFCKeditor = New FCKeditor  
  5. oFCKeditor.BasePath = sBasePath  
  6. oFCKeditor.Config("AutoDetectLanguage") = False  
  7. oFCKeditor.Config("DefaultLanguage") = "zh-cn"  
  8. oFCKeditor.Value = ""  
  9. oFCKeditor.Height = "350"  
  10. oFCKeditor.Create "Message"  

替换成

ASP/Visual Basic代码
  1. Dim oUEditor  
  2. Set oUEditor = New UEditor  
  3. oUEditor.LoadScript '只加载一次脚本  
  4. oUEditor.Value = ""  
  5. oUEditor.Create "Message"  

    5.修改

ASP/Visual Basic代码
  1. Dim oFCKeditor1  
  2. Set oFCKeditor1 = New FCKeditor  
  3. oFCKeditor1.BasePath = sBasePath  
  4. oFCKeditor1.Height = "150"  
  5. oFCKeditor1.ToolbarSet = "Basic"  
  6. oFCKeditor1.Config("AutoDetectLanguage") = False  
  7. oFCKeditor1.Config("DefaultLanguage") = "zh-cn"  
  8. oFCKeditor1.Value = ""  
  9. oFCKeditor1.Create "log_Intro"  

替换

ASP/Visual Basic代码
  1. Dim oUEditor1  
  2. Set oUEditor1 = New UEditor  
  3. oUEditor1.height = "100px"  
  4. oUEditor1.ToolbarSet = "Basic"  
  5. oUEditor1.Value = ""  
  6. oUEditor1.Create "log_Intro"  

第三步：修改Blogedit.asp

1.删除

XML/HTML代码
  1. <!--#include file="FCKeditor/fckeditor.asp" -->  

2.添加

XML/HTML代码
  1. <!--#include file="UEditor/UEditor.asp" -->  

3.修改

XML/HTML代码
  1. Dim sBasePath  
  2. sBasePath = "FCKeditor/"  
  3. Dim oFCKeditor  
  4. Set oFCKeditor = New FCKeditor  
  5. oFCKeditor.BasePath = sBasePath  
  6. oFCKeditor.Config("AutoDetectLanguage") = False  
  7. oFCKeditor.Config("DefaultLanguage") = "zh-cn"  
  8. oFCKeditor.Value = UnCheckStr(lArticle.logMessage)  
  9. oFCKeditor.Height = "350"  
  10. oFCKeditor.Create "Message"  

替换

XML/HTML代码
  1. Dim oUEditor  
  2. Set oUEditor = New UEditor  
  3. oUEditor.LoadScript '只加载一次脚本  
  4. oUEditor.Value = UnCheckStr(lArticle.logMessage)  
  5. oUEditor.Create "Message"  

4.修改

XML/HTML代码
  1. Dim oFCKeditor1  
  2. Set oFCKeditor1 = New FCKeditor  
  3. oFCKeditor1.BasePath = sBasePath  
  4. oFCKeditor1.Height = "150"  
  5. oFCKeditor1.ToolbarSet = "Basic"  
  6. oFCKeditor1.Config("AutoDetectLanguage") = False  
  7. oFCKeditor1.Config("DefaultLanguage") = "zh-cn"  
  8. oFCKeditor1.Value = UnCheckStr(lArticle.logIntro)  
  9. oFCKeditor1.Create "log_Intro"  

替换

XML/HTML代码
  1. Dim oUEditor1  
  2. Set oUEditor1 = New UEditor  
  3. oUEditor1.Height = "100px"  
  4. oUEditor1.ToolbarSet = "Basic"  
  5. oUEditor1.Value = UnCheckStr(lArticle.logIntro)  
  6. oUEditor1.Create "log_Intro"  

第四步：修改Class/cls_logAction.asp

1.替换(有两个地方需要替换修改)

XML/HTML代码
  1. logIntro = closeHTML(CheckStr(SplitLines(logMessage, blog_introLine)))  

替换成

XML/HTML代码
  1. logIntro = closeHTML(SplitLines(logMessage, blog_introLine))  

 

2。依旧修改两个地方

XML/HTML代码
  1. weblog("log_Content") = CheckStr(logMessage)  

替换成

XML/HTML代码
  1. If Int(logEditType) =1 Then  
  2.     weblog("log_Content") = CheckStr(logMessage)  
  3. Else  
  4.     weblog("log_Content") = logMessage  
  5. End If  

第五步：修改ConContent.asp

删除

XML/HTML代码
  1. <!--#include file="FCKeditor/fckeditor.asp" -->  

完成

 



[本日志由 admin 于 2024-09-17 02:07 AM 更新]
上一篇: 身份证号码使用XLOOKUP COUNTIF SUMIF 函数问题和解决办法
下一篇: 测试UE编辑器
文章来自: 本站原创
Tags: 编辑器
发表评论
昵　称:
密　码: 游客发言不需要密码.
邮　箱: 邮件地址支持Gravatar头像,邮箱地址不会公开.
网　址: 输入网址便于回访.
内　容:
验证码:
选　项:
纵使发表评论不用注册，但是为鸟保护你滴发言权，建议您不要乱评论。.
 字数限制 1000 字 | UBB代码 开启 | [img]标签 关闭