首页 > 代码库 > AspCms 升级百度编辑器

AspCms 升级百度编辑器

2024-07-19 15:03:28   224人阅读

     1.下载百度编辑器

　　　网址：http://ueditor.baidu.com/website/download.html

　　2.上传百度编辑器到admin下

　　3.修改调用编辑器的文件

　　　_content/_Content/AspCms_ContentAdd.asp
　　　_content/_Content/AspCms_ContentEdit.asp
　　　_content/_About/AspCms_AboutEdit.asp
　　　_content/_Sort/AspCms_SortEdit.asp
　　　_content/_Sort/AspCms_Sortadd.asp

　　4.依次引用ueditor.all.min.js    ueditor.config.js   euditor/themes/default/css/ueditor.css

        <script src="http://www.mamicode.com/ueditor/ueditor.all.min.js" type="text/javascript"></script>

        <script  src="http://www.mamicode.com/ueditor/ueditor.config.js" type="text/javascript"></script>

        <link rel="stylesheet" type="text/css" href="http://www.mamicode.com/ueditor/themes/default/css/ueditor.css" />

     5.替换调用编辑器的代码

 1 <%Dim oFCKeditor:Set oFCKeditor = New FCKeditor
　　　　:oFCKeditor.BasePath="../../editor/"
　　　　:oFCKeditor.ToolbarSet="AdminMode"
　　　　:oFCKeditor.Width="615"
　　　　:oFCKeditor.Height="300"
　　　　:oFCKeditor.Value=decodeHtml(Content)
　　　　:oFCKeditor.Create "Content" 2  3 ‘Default,AdminMode,Simple,UserMode,Basic 4 %> 5 <script type="text/javascript"> 6 function SetEditorPage(EditorName, ContentStr) { 7      var oEditor = FCKeditorAPI.GetInstance(EditorName) ; 8      oEditor.Focus(); 9      //setTimeout(function() { oEditor.Focus(); }, 100);10      oEditor.InsertHtml(ContentStr);    11 }12 </script>

　　　　更换为

1 <textarea name="Content" id="myEditor" style="width:780px;"><%=content%></textarea>2 <script type="text/javascript">3     UE.getEditor(‘myEditor‘)4 </script>

    6.修改Uploader.Class.asp

　　行 203-215

 1 Private Function CheckOrCreatePath( ByVal path ) 2      3     Set fs = Server.CreateObject("Scripting.FileSystemObject") 4     Dim parts 5     parts = Split( path, "/" ) 6     path = "" 7     For Each part in parts 8         path = path + part + "/" 9         If fs.FolderExists( path ) = False Then10             fs.CreateFolder( path )11         End If12     Next13 End Function

　　修改为：

 1 Public Function CreateDir(ByVal crDirname)  2   Dim M_fso  3   CreateDir=False  4   Set M_fso = CreateObject("Scripting.FileSystemObject")  5   If (M_fso.FolderExists(crDirname)) Then  6    CreateDir=False  7   Else  8    M_fso.CreateFolder(crDirname)  9    CreateDir=True 10   End If 11   Set M_fso = Nothing 12  End Function 13  14  Function CheckOrCreatePath(byval LocalPath) ‘建立目录的程序，如果有多级目录，则一级一级的创建 15   on error resume next 16   LocalPath = replace(LocalPath,"\","/") 17   set FileObject = server.createobject("Scripting.FileSystemObject") 18   patharr = split(LocalPath,"/") 19   path_level = ubound(patharr) 20   for i = 0 to path_level 21   if i=0 then pathtmp=patharr(0) & "/" else pathtmp = pathtmp & patharr(i) & "/" 22   cpath = left(pathtmp,len(pathtmp)-1) 23   if not FileObject.FolderExists(cpath) then FileObject.CreateFolder cpath 24   next 25   set FileObject = nothing 26   if err.number<>0 then 27   CreateDIR = false 28   err.Clear 29   else 30   CreateDIR = true 31   end if 32  End Function33 34 End Class

　　7.修改config.json

AspCms 升级百度编辑器


联系
我们