Ueditor关于asp版本传到虚拟空间后无法上传图片

发表于 2015-05-20 16:48 - 只看楼主

1 2 3 4 5

[查看评级用户]

楼主

.字号较小字号正常字号较大字号

.IP 42.228.*.*

asp版本很多童鞋发现，在本地测试的好好的，但是传到服务器就无法上传图片的问题，经过反复测试，发现确实是权限的问题，也可以说是asp后端的bug。
先看代码，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

这个函数是根据路径自动创建多层次的目录，如：D:\WebSite\Demo\web\asp\upload\image\20150426\ 这个目录，创建的时候会一层一层的创建。
D:\WebSite\Demo\web 这个是我们的网站根目录，这个以上的目录，一般我们都没有读写的权限
这个函数创建目录如下：
D:\

D:\WebSite\

D:\WebSite\Demo\

D:\WebSite\Demo\web\

D:\WebSite\Demo\web\asp\

D:\WebSite\Demo\web\asp\upload\

D:\WebSite\Demo\web\asp\upload\image\

D:\WebSite\Demo\web\asp\upload\image\20150426\
创建的时候，没有权限访问到的目录
D:\

D:\WebSite\

D:\WebSite\Demo\
所以运行到这里就会出错了，但是没有任何错误消息返回。。
我把这个函数改了一下，但是感觉还不够完美，如下：

代码复制 - 运行

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 and instr(path,split(rsFilePath,"/")(1))>0 Then
           fs.CreateFolder( path )
        End If
    Next
End Function

也就是新添加了一个判断： and instr(path,split(rsFilePath,"/")(1))>0 这个判断是有局限性的。。
rsFilePath 是从config.json 中读取来的，我的配置是这样的：

代码复制 - 运行

"imageUrlPrefix": "", /* 图片访问路径前缀 */
"imagePathFormat": "/upload/image/{yyyy}{mm}{dd}/{time}{rand:6}", /* 上传保存路径,可以自定义保存路径和文件名

instr(path,split(rsFilePath,"/")(1))>0 判断是否包含字符串 upload
通过加个这样的判断，就不会再访问上级没有权限的目录了。
还有就是，config_loader.asp 这个文件要保存成 utf-8 包含Unicode 签名（BOM）格式的。。。这个弄不明白是为啥。。但是保存成这个格式就可以上传，去掉签名，就出错。。