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

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