- 帖子
- 490
- 积分
- 1232
- 威望
- 1938
- 金钱
- 990
- 在线时间
- 9 小时
|
以下是ASP代码,并且使用了ip地址归属地查询。
--------------------------------------------------------------------------------------------------------------------------黑客
<%
Sub StopInjection_it_security(Values)网络安全
Dim regEx
Dim IP
Set regEx = New RegExp
regEx.IgnoreCase = True
regEx.Global = True
regEx.Pattern = "'|;|#|([\s\b+()]+([email=select|union|update|insert|delete|declare|@|exec|dbcc|alter|drop|create|backup|if|else|end|and|or|add|set|open|close|use|begin|retun|as|go|exists)[\s\b]select|union|update|insert|delete|declare|@|exec|dbcc|alter|drop|create|backup|if|else|end|and|or|add|set|open|close|use|begin|retun|as|go|exists)[\s\b[/email]+]*)"黑客
If regEx.Test(Values) Then
IP = Request.ServerVariables("HTTP_X_FORWARDED_F")网络安全
IF(IP="")THEN IP = Request.ServerVariables("REMOTE_ADDR")黑客
response.write("<span name=addr id=addr></span>")网络安全
response.write("<script src=http://whois.pconline.com.cn/jsLabel.jsp?ip=" & IP &"&id=addr></script>")
Response.Write "<script>alert('北京海淀网络**局警官张无(13021)提醒你:\n◇来自:'+document.getElementById('addr').innerHTML +' 的朋友\n◇你的非法访问已经被记录\n★非法IP=" & IP & "\n★请保持手机畅通,恭候**部门调查!')</script>"黑客
Response.End
End If
Set regEx = Nothing
End Sub
%> |
|