%@LANGUAGE="VBSCRIPT"%> <% Ah_In = "'|;|and|exec|insert|select|delete|update|count|*|%|chr|mid|truncate|char|declare" autohost_Zx = "index.asp" '出错时转向的页面 '---------------------------------- Ah_Inf = split(Ah_In,"|") '--------POST部份------------------ If Request.Form<>"" Then For Each Ah_Post In Request.Form For Ah_Xh=0 To Ubound(Ah_Inf) If Instr(LCase(Request.Form(Ah_Post)),Ah_Inf(Ah_Xh))<>0 Then Response.Write "" Response.End End If Next Next End If '---------------------------------- '--------GET部份------------------- If Request.QueryString<>"" Then For Each Ah_Get In Request.QueryString For Ah_Xh=0 To Ubound(Ah_Inf) If Instr(LCase(Request.QueryString(Ah_Get)),Ah_Inf(Ah_Xh))<>0 Then Response.Write "" Response.End End If Next Next End If dim conn dim connstr db="data/nongcunbbs.asp" Set conn = Server.CreateObject("ADODB.Connection") connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(DB) '如果你的服务器采用较老版本Access驱动,请用下面连接方法 connstr="driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath(DB) conn.Open connstr Sub connclose() conn.close() set conn=nothing End Sub badstr="射精|奸|去死|吃屎|你妈|你娘|日你|尻|操你|干死你|王八|逼|傻B|贱人|狗娘|婊子|表子|靠你|叉你|叉死|插你|插死|干你|干死|日死|鸡巴|睾丸|死去|爬你达来蛋|撅你达来蛋|死你达来蛋|包皮|龟头|屄|赑|妣|肏|奶子|尻|屌|作爱|做爱|抱抱|鸡八|处女|打炮|十八摸|你爷|你爸|我儿|操你|妈|逼|我是站长|法轮功|falun|大法|江泽民|胡锦涛|共产党|国民党|独立|自由|打倒|统治|暴君|专政|专制|腐败|残酷|镇压|独裁|style|javascript|vbscript|object|param|embed|class|style|xml|marquee" footer="本站论坛无需注册即可发帖。论坛言论仅代表发帖者个人看法,不代表本站观点。" sitename="农村(社区)工作者论坛" siteurl="http://www.xszzb.com/" %>
![]() |
|
|
|
|
![]() |