如何在两个页面中成批的传递变量值

dim a(9)
for i=0 to 9
a(i)=i
next
session("num")=a

在另页面：

dim b
b=session("num")
for j=0 to ubound(b)
response.write b(j)&"<br>"
next