asp高手看过来哦,(50分)

下面是我的全代码，看看帮我。我要晕了。
<!--#include file="pans.asp"-->
<%
set rs=server.createobject("adodb.recordset")
sql1="select * from com where id like '"&amp;request("id")&amp;"'"
rs.open sql1,conn,3,3
if not rs.eof then

'先删除图片
set objtools=server.createobject("mswc.tools")
if objtools.fileexists("comimg/"&amp;rs("imgadd"))=-1 then
'是否为空
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
fpath=server.mappath("comimg/"&amp;rs("imgadd"))
Set f2 = objFSO.GetFile(fpath)
f2.Delete
'---------------这里有误
end if

Set objFSO = Nothing
end if
'删除整条记录
set rs=server.createobject("adodb.recordset")
sql="delete * from com where id like '"&amp;request("id")&amp;"'"
rs.open sql,conn,3,1
response.redirect "commake.asp"
%>

试了一下删除文件没有问题，可能是你的文件名没有指定对，
fpath=server.mappath("comimg/"&amp;rs("imgadd"))
在这之后把fpath弹出来看看，是否正确
我的这么写没有问题
fpath=Server.MapPath("/")&amp;"/11.txt"
Set f = objFSO.GetFile(fpath)
f.delete

老大,忘了说明了,是上传了不能删除的,在本机是没问题的，

这就不知道了，我只在局域网内的服务器上试过是可以的

on error resume next
set fso=server.createobject("scripting.filesystemobject")
if trim(info_link)<>"" then

filepath=server.mappath("../info/"&amp;info_type&amp;"/"&amp;info_link)
else

filepath=server.mappath("../info/"&amp;info_type&amp;"/"&amp;info_filename&amp;".txt")

end if

fso.deletefile(filepath)
set fso=nothing

接受答案了.