delete.asp

就业信息服务网

<%
IF not(Session("KEY")="1" or session("KEY")="2") THEN
   response.redirect "../login.asp"
   response.end
END IF
%>
<!--#include file="dbconn.asp"-->
<!--#include file="../config.asp"-->
<%
   dim sql 
   dim rs
   dim sql1
   dim rs1
   Set Rs=server.createobject("adodb.recordset")
   Sql="Select * From banner Where linkid="&request("linkid")
   Rs.open Sql,conn,1,1
   File=picurl+rs("picurl")
   Set  FileObject=Server.createObject("Scripting.FileSystemObject")
   IF FileObject.FileExists("file")  
       FileObject.DeleteFile("file")
   END IF   
   Set RS1=Server.Createobject("adodb.recordset")
   Sql1="Delete From banner where linkid="&request("linkid")
   Rs1.open sql1,conn,1,1
   Rs1.close
   Set rs1=nothing  
   Conn.close
   Set conn=nothing
   Response.redirect "default.asp"
%>