第一步，先去IIS 中，打开ASP 设置页面，把错误信息发送到浏览器，有助于找到问题。

使用百度开源ueditor编辑器不能上传图片并报服务器500错误

初看是 Uploader.Class 的 fs.CreateFolder( path ) 这条语句不能创建目录，怀疑权限问题，提供所有权限后，依然不行。

最后参考百度官方文档将该代码内函数

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

即可正常上传。