檢測是否還有黑客代碼的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).Suclearcase/" target="_blank" >ccess)
response.write (heike(i)+" ")
response.write ("success")
end if
next
end sub
</script>
<%

dim a as string="1234345" '就是要檢測的內容
heikeword(a)
%>

原文轉自：http://www.kjueaiud.com