虚拟空间ASP程序添加百度编辑器ueditor,支持批量上传图片

ASP程序内容详情需要批量上传图片,自带的编辑器不支持批量上传图片，
下载了百度的UEDITOR,示例效果非常完美,支持批量上传图片.
在整合过程中,图片上传遇到了问题,记录解决过程
1.下载最新开发版UEDITOR,1.4.3.3 ASP gbk版本 http://ueditor.baidu.com/build/build_down.php?n=ueditor&v=1_4_3_3-gbk-asp
2.解压上传至网站目录ueditor
3.修改ueditor/asp 目录下的config.json文件,修改成适应自己网站的路径
   "imageUrlPrefix": "/ueditor/asp/", /* 图片访问路径前缀 */
    
  "imagePathFormat": "upload/image/{yyyy}{mm}{dd}/{time}{rand:6}", /* 上传保存路径,可以自定义保存路径和文件名格式 */
4.修改ueditor/asp 目录下的 MultiformProcessor.class.asp
找到public Function Process()
在语句 formBytes = Request.BinaryRead( Request.TotalBytes )后面加上

if Lenb(formBytes) <= 0  then

response.end

end if
5.修改ueditor/asp 目录下的 Uploader.Class.asp
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


替换成
Private Function CheckOrCreatePath( ByVal path )
        
Set fs = Server.CreateObject("Scripting.FileSystemObject")
               
If fs.FolderExists( path ) = False Then
              
 fs.CreateFolder( path )
          
End If
       
End Function

运行示例  正常批量上传图片 

ASP程序内容详情需要批量上传图片,自带的编辑器不支持批量上传图片，
下载了百度的UEDITOR,示例效果非常完美,支持批量上传图片.
在整合过程中,图片上传遇到了问题,记录解决过程
1.下载最新开发版UEDITOR,1.4.3.3 ASP gbk版本 http://ueditor.baidu.com/build/build_down.php?n=ueditor&v=1_4_3_3-gbk-asp
2.解压上传至网站目录ueditor
3.修改ueditor/asp 目录下的config.json文件,修改成适应自己网站的路径
   "imageUrlPrefix": "/ueditor/asp/", /* 图片访问路径前缀 */
    
  "imagePathFormat": "upload/image/{yyyy}{mm}{dd}/{time}{rand:6}", /* 上传保存路径,可以自定义保存路径和文件名格式 */
4.修改ueditor/asp 目录下的 MultiformProcessor.class.asp
找到public Function Process()
在语句 formBytes = Request.BinaryRead( Request.TotalBytes )后面加上

if Lenb(formBytes) <= 0  then

response.end

end if
5.修改ueditor/asp 目录下的 Uploader.Class.asp
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


替换成
Private Function CheckOrCreatePath( ByVal path )
        
Set fs = Server.CreateObject("Scripting.FileSystemObject")
               
If fs.FolderExists( path ) = False Then
              
 fs.CreateFolder( path )
          
End If
       
End Function

运行示例  正常批量上传图片