<%@ 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) %>
