conn.asp

露珠网站是一个以文章类、下载类、图片类、动画类、视频类为主的综合网站。我们的目标：麻雀虽小(223kb)

<!--#include file="md5.asp"-->
<% shujulx=1 
Dim Query_Badword,Form_Badword,i,Err_Message,Err_Web,name,luzhu
Query_Badword="'∥and∥%∥%20∥or∥&nbsp;∥ ∥union∥select∥update∥chr∥delete∥%20from∥;∥<∥>∥(∥)∥insert∥mid∥master.∥set∥chr(37)∥="     
luzhu="'∥and∥%∥union∥&nbsp;∥ ∥%20∥alert∥script∥你妈的∥儿子∥孙子∥姥姥∥法轮∥日∥黄∥三∥<∥>∥select∥update∥chr∥delete∥%20from∥;∥insert∥mid∥master.∥set∥chr(37)∥="     
On Error Resume Next
if request.QueryString<>"" then
Chk_badword=split(Query_Badword,"∥")
FOR EACH Query_Name IN Request.QueryString
for i=0 to ubound(Chk_badword)
If Instr(LCase(request.QueryString(Query_Name)),Chk_badword(i))<>0 Then
Response.Write "<Script Language=JavaScript>alert('老大别这样呀？？？？');this.top.location.href='index.html';</Script>"
Response.End
End If
NEXT
NEXT
End if
Response.Buffer = True  
	Response.ExpiresAbsolute = Now() - 1  
	Response.Expires = 0  
	Response.CacheControl = "no-cache"  
	Response.AddHeader "Pragma", "No-Cache" 

 dim conn,rs   
if shujulx=1 then
filtrate=true
myday=1
mydata="luzhu.mdb" 
on error resume next
   rs="DBQ="+server.mappath(mydata)+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};Pwd=lzjsq;"
     set conn=server.createobject("ADODB.CONNECTION")
     conn.open rs
end if
If Err Then
err.Clear
Set Conn = Nothing
Response.Write "网站暂时关闭中<p><a href=""http://wpa.qq.com/msgrd?V=1&amp;Uin=93065410&amp;Menu=yes"" target=""blank""><font color=""#FF0000"">请单击QQ留言</font></a></font >&nbsp;<br><br><br><a title=""给站长写信"" href=""mailto:[e-mail]""><font color=""#FF00FF"">请单击发E_mail</font></a>&nbsp;<br><br><br><font color=""#FF00FF"">电话：[phone]</font>" & vbCrLf 
Response.End
End If


%>