使用百度開源ueditor編輯器不能上傳圖片並報伺服器500錯誤。

初看是 Uploader.Class 的 fs.CreateFolder( path ) 這條語句不能建立目錄，懷疑許可權問題，提供所有許可權後，依然不行。

最後參考百度官方文件將該程式碼內函式

修改ASP/Uploader.Class.asp配置檔案 大約在 248 行

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")
        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
 

重新上傳到伺服器上，問題完美解決。