删除文章同时删除图片

发布的文章表为：wenzhang上传的图片字段为：tupian 我想在删除文章的同时删除图片！删除文章的页面代码为：

<!--#include file="conn.asp" -->
<!--#include file="inc.asp"-->
<%if session("admin")="" then
response.Write "<script language='javascript'>alert('网络超时或您还没有登陆！');window.location.href='index.asp';</script>"
response.End
end if
%>
<%
dim rs,sql
id=request.QueryString("id")
set rs=server.createobject("adodb.recordset")
sql="delete from wenzhang where id="&id
conn.execute sql

response.write "<script language='javascript'>"
response.write "alert('删除成功！');"
response.write "</script>"
response.write "<meta http-equiv='refresh' content='0;url=look.asp'>"
response.end
%>

怎么在删除文章时候删除它所属的图片？

id=Request("id")
if action="del" then

set rs=server.createobject("adodb.recordset")
sql="select * from wenzhang where id=" & id
rs.open sql,conn,3,3
if not rs.eof then

if rs("p_url")<>"" then
set mfso=server.CreateObject("scripting.FileSystemObject")
if mfso.fileExists(server.MapPath(rs("p_url"))) then
set myfile=mfso.getfile(server.MapPath(rs("p_url")))
myfile.delete
end if
end if

rs.delete
end if
rs.close
set rs=nothing

说明：p_url是通过隐藏域传进来的，你改成tupian即可。

action=del是通过链接传进来的。