asp 删除文件为什么删不了

<%
listid=request("listid")
set rs=server.CreateObject("adodb.recordset")
rs.open "select * from book where id ="&listid,db,3,3
if rs("tupian")<>"" or rs("filename")<>"" then
if rs("tupian")<> "" then
call delfiles("../images/"&rs("tupian"))
end if
if rs("filename")<>"" then
call delfiles("../artical/"&rs("filename"))
end if
set fso=nothing
end if

rs.delete
rs.update
rs.close
set rs=nothing
db.close
set db=nothing
response.Redirect("manage.asp")
sub delfiles(struploadfiles)
if struploadfiles="" then
exit sub
end if
dim fso,arruploadfiles,i
set fso = createobjec("scripting.filesystemobject")
if fso.FileExists(server.mappath(st

为什么删除文件删不了 文件删除不了,为什么? 文件为什么删除不了？？ 为什么删除不了文件？ 为什么文件删除不了？ 文件为什么删除不了?? 文件为什么删除不了? 为什么删除不了文件? 为什么文件删除不了? 为什么有的文件删除不了