AspCms 升级百度编辑器

     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="../../ueditor/ueditor.all.min.js" type="text/javascript"></script>

        <script  src="../../ueditor/ueditor.config.js" type="text/javascript"></script>

        <link rel="stylesheet" type="text/css" href="../../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 Then
10             fs.CreateFolder( path )
11         End If
12     Next
13 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 Function
33 
34 End Class

  7.修改config.json

郑重声明:本站内容如果来自互联网及其他传播媒体,其版权均属原媒体及文章作者所有。转载目的在于传递更多信息及用于网络分享,并不代表本站赞同其观点和对其真实性负责,也不构成任何其他建议。