Question

求asp能删除数据库文件和图片文件的代码

要在后台产品管理里显示图片下方有可删除的工能，我在管理网页里的图片下加入<a href=Del.asp?ID=<%=rs("id")%>">删除</a>调用del.asp删除涵数.可是这个del.asp不能实现删除.access数据库里一个"ID"包括一个"small"和"big"图片.实际路径images\small和images\big.请求哪位高手帮我写出代码.能用我送分.另网上和百度知道的大部分这类代码我都试过不行.
问题已解决,楼下的两位兄弟的代码虽没有用上,但也谢谢两位的热心.经过高手指点得出了下面可用代码:
<!--#include file="conn.asp"-->
<%
Set fs = Server.CreateObject("Scripting.FileSystemObject")
fs.deleteFile("images/small")
Set fs = Nothing
%>
<%
conn.execute("Delete from [products] where id="&Request("id")&" ")
Response.redirect "admin_product.asp"
%>
分就送给2楼吧.谢谢你的热心.

Answer 1

下面的代码我可是下了大功夫来搞的：

<%if request("act")="del" then
call del
end if
sub del
dim rs,id,FileObject,photo
Set FileObject=Server.CreateObject("Scripting.FileSystemObject")
id=trim(request("selid"))
Set rs=conn.Execute("Select * From 表名 where id in ("&id&")")
do while not rs.Eof
big=Server.MapPath(trim(rs("big")))
small=Server.MapPath(trim(rs("small")))
'small=Server.MapPath("../../tt1188/user/"&trim(rs("small"))) 我电脑上的相当路径，你参考下
If (FileObject.FileExists(Trim(big))) and (FileObject.FileExists(Trim(small))) then
FileObject.DeleteFile Trim(big)
FileObject.DeleteFile Trim(small)
End If
rs.movenext
loop
conn.execute("delete from 表名 where id in ("&id&")")
response.write "<script>alert('删除成功！');</script>"
end sub
%>

Answer 2

del.asp页面写一句删除代码就够了
delete id from 表 where id=id
id数据类型你自己看着办
这样就会把整条符合id值的记录删了.不在乎有几个字段
要删图片文件的话,就要用fso对象进行对文件的操作
具体删除路径就可以用到small和big2个字段的值了,
注意要先删除文件,再删除记录.
如果你看不懂,就当我没说,
建议你先去查找什么叫fso.