<%@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/"
%>
“讲党性、重品行、作表率”活动专题——象山党建
