asp版本中ueditor的目录权限判断问题
[ 2014-03-29 13:07:47 | 作者: admin ]
ueditor采用遍历目录每个节点来判断目录是否存在，不存在就建立一个，而根目录 f:\ 这样的往往不会赋予i_usr的权限，所以容易报 权限不足
打开config.asp，只设置一个主目录upload,并且建立后赋予读写权限
config.Add "imageSavePath", Array("upload1","upload2","upload3")
改为
config.Add "imageSavePath", Array("upload")
Uploader.Class.asp 修改路径判断，只建立一层目录，这样就会产生 upload/20140329的目录
评论Feed: http://blog.xg98.com/feed.asp?q=comment&id=2182
打开config.asp，只设置一个主目录upload,并且建立后赋予读写权限
config.Add "imageSavePath", Array("upload1","upload2","upload3")
改为
config.Add "imageSavePath", Array("upload")
Uploader.Class.asp 修改路径判断，只建立一层目录，这样就会产生 upload/20140329的目录
Private Function CheckOrCreatePath( ByVal path )
'response.write path
Set fs = Server.CreateObject("Scripting.FileSystemObject")
If fs.FolderExists( path ) = False Then
fs.CreateFolder( path )
End If
if false=true then
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 if
End Function
End Class
'response.write path
Set fs = Server.CreateObject("Scripting.FileSystemObject")
If fs.FolderExists( path ) = False Then
fs.CreateFolder( path )
End If
if false=true then
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 if
End Function
End Class
[最后修改由 admin， 于 2014-03-29 13:13:41]
评论Feed: http://blog.xg98.com/feed.asp?q=comment&id=2182
这篇日志没有评论。
此日志不可发表评论。
