站内搜索
最近浏览
- WinCE Security...
- xdebug配置说明
- VC++ 获取文件的创建、修...
- ASP进度条
- 简单代理服务器C代码实现(S...
- 程序设计竞赛试题选(02)
- 如何在ASP程序中打印Acc...
- UTF-8和16进制区间
- ASP实用技巧:强制刷新和判...
- 运行中程序删除自己的方法
- asp提高首页性能的一个技巧
- [J2EE]J2EE 应用服务器技术
- VB变量命名规范
- C语言常见错误小结
- (摘自网络)如何在IIS中调...
推荐文章
热文排行
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