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

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

%26lt;%@ Page language="vb"%%26gt;
%26lt;script runat="server"%26gt;
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
%26lt;/script%26gt;
%26lt;%

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