检测是否还有黑客代码的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.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)

%>