ASP 怎样删除文章的图片!最好是有实例.

<%
if request("action")="del" then
set rs=server.createobject("adodb.recordset")
sql="select annal_content from new where annal_id="&request("annal_id")&""
rs.open sql,conn,1,1
content=rs("annal_content")
'删除图片函数
Function DelImagesFile(Images)
FileName=server.MapPath(Images) '必须转换成绝对路径的
dim Fso
Set Fso = CreateObject("scripting.filesystemobject")
if Fso.FileExists(filename) then '判断文件是否存在
Fso.DelImagesFile filename
end if
Set Fso = nothing
End Function

'取得所有文件路径
Function GetPicUrl(Content)
Dim ImagesType'要获取的图片后缀名
ImagesType="jpg|gif|png|bmp"
Set RE=NEW REGEXP
RE.GLOBAL=TRUE
RE.Pattern = "(src=)('|"&CHR(34)&"| )?(.[^'| |"&CHR(34)&"]*)(\.)("&ImagesType&")('|"&CHR(34)&"| |>)?" '

<%
friendsid=request("id")
set rs=server.createobject("adodb.recordset")
sql="select * from friends where id="&friendsid
rs.open sql,db,1,3
%>

<%
if rs("f_image")<>"" then '判断是否有记录
photopath=rs("f_image") '取得路径
FiLePaTh = Server.MapPath(photopath)
Set fso = CreateObject("Scripting.FileSystemObject")
if fso.Fileexists(filepath) then
fso.DeleteFile(filepath)
end if
Set fso = nothing
End If

'---------------------文件删除结束---------------
db.execute("delete from friends where ID in ("&friendsid&")")
db.close
set db=nothing
response.write "<script language='javascript'>"
response.write "alert('删除成功，请单击“确定”返回！');"
response.write "location.href='friends.asp';"
response.write "&

ASP图片的删除 怎样删除不要的文章？ 删除图片的ASP代码是什么啊！ 用ASP删除指定文件名的图片 asp删除多个上传的图片 asp 图片删除问题 [asp] 怎样获得文章所在的分类？ asp:如何删除数据库的数据同时并删除图片? 关于删除信息时删除图片的ASP! 怎样通过asp删除access数据库中信息的同时一道删除这个信息的对应图片？