<%@ page language="vb" %>
<script runat="server">
sub page_load(sender as object,e as eventargs)
dim a as string="hfinput1-=-测试1;=;hfinput2-=-sd;=;hfinput3-=-2006-07-07;=;hfinput4-=-2006-07-21;=;hfinput5-=-速度办理;=;hfselect1-=--1;=;"
a=a.substring(0,a.length-3)
dim b() as string=a.split(";=;")
dim i as integer
for i=0 to b.length-1
response.write(b(i) & "<br>")
next i