Asp动易6.8版本后台换编辑器

动易ASP 后台编辑器，无法编辑（模拟器上不能使用，兼容模式不能编辑，IE版本下也不能编辑的情况。）

下载这个版本的文件，然后把文件名称改成ueditor ，通过FTP上传到服务器的根目录下，

查找动易6.8版本编辑器的文件

进入后台，把鼠标移到添加文件，查看页脚提示的路径地址，

路径地址： 根目录/admin/Admin_Article.asp

打开文件找到：

这里路劲地址： 用查找找到这句话“系统会因所下载图片的大小而影响速度，建议图片较多时不要使用此功能。”注意有两处，

主要替换的文件是：

Response.Write "  style=<span class="hljs-string">'display:none'</span>><span class="hljs-string">" & XmlText("</span>Article<span class="hljs-string">", "</span>DefaultAddTemplate<span class="hljs-string">", "</span><span class="hljs-string">") & "</span>"
Response.Write " "

替换为

<textarea name="content" id="container" style="width: 800px;height: 600px">textarea>  
<script type="text/javascript" charset="gbk" src="/ueditor/ueditor.config.js">script>  
<script type="text/javascript" charset="gbk" src="/ueditor/ueditor.all.js">script>  
<script type="text/javascript" charset="gbk" src="/ueditor/lang/zh-cn/zh-cn.js">script>     

<script type="text/javascript">   
var editor = new UE.ui.Editor();  
editor.render("container");  
UE.getEditor('container');  
script>

注意下文件的路径，替换好之后，刷新网站的编辑器就会变成百度编辑器：

第一次安装的时候提示

修改方式：

找到后台用户的文件： Admin_Article.asp

改成：

var CurrentMode=editor.CurrentMode;" & vbCrLf

改成：

var CurrentMode=0;" & vbCrLf

上传图片提示

修改方式：找到编辑器的文件

编辑器打开这个文件：修改最底下文件

   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
End Class

改成：

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