查詢是否還有黑客代碼的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)
%>