高手看看下面的代码,为什么删除不了文件夹里的文件?谢谢!!
<%
   dim sql
   dim rs
   set rs=server.createobject("adodb.recordset")
   sql="select * from learning where resourceid="&request("ID")
   rs.open sql,conn,1,1
   if not rs.eof then
               call DeleteAFile(rs("address"))
               sql="delete learning where resourceid="&request("ID")
           conn.execute(sql)
   end if
   conn.close
   set conn=nothing
   response.write"<script language=javascript>alert('删除成功!');"
   response.write"this.location.href='MResource.asp';</script>"
     Sub DeleteAFile(filespec)
       filespec=server.MapPath("./")&"\"&filespec
       Set fso = CreateObject("Scripting.FileSystemObject")
       if (fso.FileExists(filespec)) then
       fso.DeleteFile filespec,true
       end if
     End Sub
%>
谢谢!!!!!!

'================================================= '过程名：Delimage '描 述：删除图片或文件 '参　数：imgpath(文件相对路径),num(可选参数，1为当前目录,0为父目录) '================================================= Sub Delimage(Byval imgpath,Byval num) if imgpath="" then exit sub num=checknum(num) dim openobject,filepath set openobject=server.createobject("scripting.filesystemobject") select case num case 0 filepath=server.MapPath("../"&imgpath) case 1 filepath=server.MapPath(imgpath) end select if openobject.FileExists(filepath)=true then openobject.deletefile filepath end if set openobject=nothing end sub ------------------------ 示例 call delimage("product/200612280340.jpg",0)