为什么说我无权删除文件!!急急急!!!!!!!请大哥们帮帮
id=request.Form("hiddle")
if id<>"" then
sq2="select * from news where newsID="&id
set za=conn.execute(sq2)
pic8=trim(za("pic"))
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
if pic8<>"" then
upfilename=Server.MapPath(pic8)
if objFSO.FileExists(upfilename) then
objFSO.DeleteFile(upfilename)
set objfso = nothing
za.close
end if
end if
为什么说我无权删除啊!!!!请各位帮帮忙,急啊!!!想老半天了.是程序问题还是哪里没设置好?
当我把这些代码,拿掉,数据库可以删除,从这可以证明数据库删除是正常的....当把这些放进去,就显示
Microsoft VBScript 运行时错误 错误 '800a0046' 没有权限
从而证明了文件删除出现了问题
[此贴子已经被作者于2005-10-19 16:38:48编辑过]
