首页 服务器 编程 必备知识 搜索引擎 圩日手册
站内搜索
最近浏览
推荐文章
热文排行

asp版百度编辑器上传图片错误(权限问题修复)


UEeditor是个很好的编辑器,但是Uploader.class.asp中的一个函数却让UEeditor成为了一个很不友好的编辑器。


    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:\wwwroot\guomiaojidi.cn\web,那么一个正常的虚拟主机的权限最多只能读取到D:\wwwroot\guomiaojidi.cn,如果再读取D:\wwwroot,就会出现无权限的错误了,这样就会导致了图片无法上传。

解决的办法就是,把网站目录的以上的检测去掉,这样就会正常了,所以,把该函数修改成下面这样就不成问题了。

Private Function CheckOrCreatePath( ByVal path )
        Set fs = Server.CreateObject("Scripting.FileSystemObject")
        Dim parts,serverpath
        serverpath=lcase(Server.MapPath("/"))
        path=replace(lcase(path),serverpath,"")        
        parts = Split( path, "\" )
        path = ""        
              
        For Each part in parts
            path = path + part + "\"           
            If fs.FolderExists( serverpath & path ) = False Then
                fs.CreateFolder(serverpath & path )
            End If
        Next
    End Function


[ly70041]
添加时间:2015-12-18
版权所有(C)2005-2015