<%@ Page language="vb"%> <script runat="server"> dim heike(2) as string dim i as integer '定义黑客代码 …