UC知道asp问题:跪求删除数据库的数据同时并删除图片的代码
来源：百度知道 编辑：UC知道 时间：2024/05/01 08:08:31
跪求删除数据库的数据并删除图片的代码.
表名url 图片地址列名url_image
图片的相对路径是images/upfile/2007062922270245382.jpg
下面是我删除数据的代码
<%
if action="no" then
conn.execute("delete * from url where id="&id)
response.Write "<script language='javascript'>alert('删除成功！');window.location.reload('admingugao.asp')</script>"
end if
%>
希望哪位高手能指点.如果能使用的话,在下另送50分!
表名url 图片地址列名url_image
图片的相对路径是images/upfile/2007062922270245382.jpg
下面是我删除数据的代码
<%
if action="no" then
conn.execute("delete * from url where id="&id)
response.Write "<script language='javascript'>alert('删除成功！');window.location.reload('admingugao.asp')</script>"
end if
%>
希望哪位高手能指点.如果能使用的话,在下另送50分!
<%
sub delfiles(struploadfiles)
if struploadfiles="" then exit sub
dim fso,arruploadfiles,i
set fso = createobject("scripting.filesystemobject")
fso.deletefile(server.mappath(struploadfiles))
set fso = nothing
response.write"<script language=javascript>alert('成功删除文件);</script>"
end sub
%>
上面的是删除文件的函数,你只要在删除数据的代码后面加上 "call delfiles(要删除文件的虚拟路径) " 就可以了
<script>
var fso, f1;
fso = new ActiveXObject("Scripting.FileSystemObject");
f1 = fso.Getfile(folderpath&filename);//此处填文件路径
f1.Delete();
</script>