delete.asp

asp+access开发的网上购物程序

<%@ codepage ="936" %>
<%
if instr(session("flag"),"61")=0 then
response.redirect "../login.asp"
response.end
end if
%>
<!--#include file="../../conn/dbconn2.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"
%>