pic_del.asp

来自「个人网站系统 毕业论文 大家可以借鉴下」· ASP 代码 · 共 19 行

 <!--#include file="conn.asp"-->
 <%
 id=cint(request.QueryString("id"))
 set rs=server.CreateObject("adodb.recordset")
 sql="select * from dy_load where dy_id="&id
 rs.open sql,conn,3,3
 picurl=rs("dy_content")
 whichfile=Server.MapPath(""&picurl&"")
 Set fso = CreateObject("Scripting.FileSystemObject")
 Set f1 = fso.GetFile(whichfile)
 f1.delete 
 rs.delete
 response.Redirect("pic.asp")
 rs.close
 set rs=nothing
 conn.close
 set conn=nothing
 %>