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.替换调用编辑器的代码

<%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"

'Default,AdminMode,Simple,UserMode,Basic
%>
<script type="text/javascript">
function SetEditorPage(EditorName, ContentStr) {
     var oEditor = FCKeditorAPI.GetInstance(EditorName) ;
     oEditor.Focus();
     //setTimeout(function() { oEditor.Focus(); }, 100);
     oEditor.InsertHtml(ContentStr);    
}
</script>

　　　　更换为

<textarea name="Content" id="myEditor" style="780px;"><%=content%></textarea>
<script type="text/javascript">
    UE.getEditor('myEditor')
</script>

    6.修改Uploader.Class.asp

　　行 203-215

Private Function CheckOrCreatePath( ByVal path )
    
    Set fs = Server.CreateObject("Scripting.FileSystemObject")
    Dim parts
    parts = Split( path, "/" )
    path = ""
    For Each part in parts
        path = path + part + "/"
        If fs.FolderExists( path ) = False Then
            fs.CreateFolder( path )
        End If
    Next
End Function

　　修改为：

Public Function CreateDir(ByVal crDirname) 
  Dim M_fso 
  CreateDir=False 
  Set M_fso = CreateObject("Scripting.FileSystemObject") 
  If (M_fso.FolderExists(crDirname)) Then 
   CreateDir=False 
  Else 
   M_fso.CreateFolder(crDirname) 
   CreateDir=True 
  End If 
  Set M_fso = Nothing 
 End Function 
 
 Function CheckOrCreatePath(byval LocalPath) '建立目录的程序，如果有多级目录，则一级一级的创建 
  on error resume next 
  LocalPath = replace(LocalPath,"","/") 
  set FileObject = server.createobject("Scripting.FileSystemObject") 
  patharr = split(LocalPath,"/") 
  path_level = ubound(patharr) 
  for i = 0 to path_level 
  if i=0 then pathtmp=patharr(0) & "/" else pathtmp = pathtmp & patharr(i) & "/" 
  cpath = left(pathtmp,len(pathtmp)-1) 
  if not FileObject.FolderExists(cpath) then FileObject.CreateFolder cpath 
  next 
  set FileObject = nothing 
  if err.number<>0 then 
  CreateDIR = false 
  err.Clear 
  else 
  CreateDIR = true 
  end if 
 End Function

　　7.修改config.json