zuopin_del.asp

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

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