<%
'*******************************************************





'SQL防止网站被注入程序(2011年12月17日 晓伟修改)






'易达CMS中小企业快速建站系统
'软件开发 黑龙江省世纪伟成网络科技有限公司
'网址：http://yidacms.com
'软件享有著作权，未经公司或开发者同意禁止更改以下代码。
'*******************************************************

Function IsObjInstalled(strClassString)
 On Error Resume Next
 IsObjInstalled = False
 Err = 0
 Dim xTestObj
 Set xTestObj = Server.CreateObject(strClassString)
 If 0 = Err Then IsObjInstalled = True
 Set xTestObj = Nothing
 Err = 0
End Function
if IsObjInstalled("Scripting.FileSystemObject") = False Then
response.write ("<center><font color='#ff0000'>注意!</font>服务器不支持FSO组件,程序无法正常运行。</center>")
response.end
End If

Dim YIDAcmsData,YIDAcmsName,Name
YIDAcmsData="'|''|;|,|*|=|%|and|exec|insert|select|update|count|master|truncate|char|declare|where|set|declare|mid|chr|set|chr(37)|net"
YIDAcmsBY = " - |p|o|we|red| b|y| Y|i|d|a|C|m|s"
Title = replace(YIDAcmsBY,"|","")
'对 get query 值 的过滤.
if request.QueryString<>"" then
	adoData=split(YIDAcmsData,"|")
	FOR EACH YIDAcmsName IN Request.QueryString
		for i=0 to ubound(adoData)
			If Instr(LCase(request.QueryString(YIDAcmsName)),adoData(i))<>0 Then
				Response.Write "<Script Language=javascript>alert('请不要提交非法字符');location.href='/index.asp';</Script>"
				Response.end
			End If
		NEXT
	NEXT
End if
%>