前天用“一键清理未记录的垃圾文件”测试带会员带括号的文件夹出问题 后来弄好了 2号打上补丁又出这个问题  我照老样子弄不好了！

Microsoft VBScript 运行时错误 错误 '800a0046'

没有权限

/admin/KS.AdminFiles.asp，行 509

可能是上次我怕误删文件 把删除权限去了的 忘记了  不过感谢一生版主把"一键删除未关联垃圾文件"的bug弄好了 经过测试！

特意测试了一下,没有你上面的错误提示,你应该检查目录有没有权限吧,如删除权限

但有一小处BUG,就是中文名转换为[后,会将中文会员名所上传的文件清理掉.

所以要改下admin/KS.AdminFiles.asp,判断如果上传路径含有[时,要特殊处理下

找到568行左右

  Dim Rs,SQL,Param
  SQL = "SELECT TOP 1 ID FROM [KS_UploadFiles] WHERE FileName like '%" & FileName & "'"
  Set Rs = Conn.Execute(SQL)

改成

  Dim Rs,SQL,Param
  IF INSTR(FileName,"[")<>0 and Instr(FileName,"]")<>0 then
   FileName=Split(FileName,"[")(0) & "%" & Split(FileName,"]")(1)
  end if
  SQL = "SELECT TOP 1 ID FROM [KS_UploadFiles] WHERE FileName like '%" & FileName & "'"
  Set Rs = Conn.Execute(SQL)

这样改一下就不会误删除中文名上传的用户了