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

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