<%for i=0 to UBound(yourArray)-1
str=str+yourArray(i)+","
next
str=left(str,len(str)-1)'去掉最后一个“,”
%>
<input type=hidden name=str value=<%=str%>>
next.asp
<%
str=request("str")
array=split(str,",")
for each item in array
'do your things here
next
nextpage.asp
<%
Dim array()
yourArrayLen=Request.Form("yourArrayLen")
Redim array(Cint(yourArrayLen))
for i=0 to Cint(yourArrayLen)-1
array(i)=Request.Form("yourArray("&i&")")