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

運作示例 正常批量上傳圖檔