asp8a.asp

asp教程

<%
Dim  MyArray()
ReDim  MyArray(5)
MyArray(0)="hello"
MyArray(1)="someotherstring"
Application.Lock
Application("SToredArray")=MyArray
Application.Unlock
Response.Redirect"asp8b.asp"
%>