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