关于删除图片的代码.

来源:百度知道 编辑:UC知道 时间:2024/05/31 16:15:36
以下为我的删除文件的页面,但是删除之后图片依然还在空间里面,请问怎么样实现数据删除后图片一并删除.
<%@language=vbscript%>
<%
set conn=server.createobject("adodb.connection")
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("/up/data/photo.mdb")
%>
<%
exec="delete * from guest where id="&request.querystring("id")
conn.execute exec
conn.close
set conn=nothing
Response.Write("<script language=javascript>alert('恭喜您,删除成功!')</script>")
Response.Write("<script language=javascript>window.location.href='right.asp'</script>")
%>
<%end if%>
图片绝对图径是:\up\upload\*.jpg
因为我不太会ASP语言,能告诉我怎么改吗?
梦想窗口,你的答案我试过了,但是不知道哪的错误,删除的时候无法显示该页!

用360或优化大师优化一下`````清除文件碎片```

使用FileSystemObject对象,例如:

<%@language=vbscript%>
<%
set conn=server.createobject("adodb.connection")
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("/up/data/photo.mdb")
%>
<%
exec="delete * from guest where id="&request.querystring("id")
conn.execute exec
conn.close
set conn=nothing
Response.Write("<script language=javascript>alert('恭喜您,删除成功!')</script>")
Response.Write("<script language=javascript>window.location.href='right.asp'</script>")

Set fso = Server.CreateObject("Scripting.FileSystemObject")
fso.DeleteFile(server.mappath("\up\upload\*.jpg")
Set fso = nothing

%>
<%end if%>