检测是否还有黑客代码的asp.net函数

查询是否还有黑客代码的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.Regexfor 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)
 %>