delete.asp

OA最新破解2008版 全新 破解 希望大家用着舒服

<%@ codepage ="936" %>
<%on error resume next  
if not instr(1,Request.ServerVariables("http_Referer"),Request.ServerVariables ("SERVER_NAME"),1)=8 then
response.write "<b>请不要从非本服务器的页面提交信息</b>"
response.end
end if
%>
<%
if instr(session("flag"),"61")=0 then
response.write "<SCRIPT language=JavaScript>alert('对不起，你没有权限打开此页！');"
response.write"this.location.href='../login.asp';</SCRIPT>" 
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 "index.asp"
%>