教程(视频,书籍)下载:  ASP.NET AutoCAD 数据库 C# ASP java photoshop 网页设计 delphi 3dmax Flash C++ VB 张孝祥 实例   更多请进入BIBIDU搜索

检测是否还有黑客代码的ASP.net函数    ouwx（原作）  
  
关键字     黑客
  


查询是否还有黑客代码的ASP.net函数，非常适合留言簿、bbs、聊天室

<%@ Page language="vb"%>
<script runat="server">
dim heike(2) as string
dim i as integer
'定义黑客代码
public Sub heikeword(a as string)
heike(0)="1234"
heike(1)="125"
dim re as System.Text.RegularExpressions.Regex

for i=0 to 1
re=new System.Text.RegularExpressions.Regex(heike(i))
if(re.Match(a).Success)
response.write (heike(i)+"  ")
response.write ("success")
end if
next
end sub
</script>
<%

dim a as string="1234345"  '就是要检测的内容
heikeword(a)
%>