test.asp

所在类别： 随书资源/T 工业技术/TP 自动化技术、计算机技术/TP31 计算机软件 其他题名： 作者： 夏邦贵, 刘凡馨等编著 出版者： 机械工业出版社 出版年： 2006 I

<%
application("a")="aaaa"
application("b")="bbbb"
application("c")="cccc"
dim d(3)
d(0)="Zero"
d(1)="One"
d(2)="Two"
d(3)="Three"
application("dArray")=d
application("dArray")(2)=123
'输出数组元素值
for i=0 to 3
   response.write "d(" & i & ")=" & d(i) & "<br>"
next
'输出Application对象中保存的数据
for each key in application.contents
   if vartype(application(key))<8192 then
	response.write "application("+chr(34)+key+chr(34)+")="+application(key)+"<br>"
   else
	n=0
        for each i in application(key)
            response.write "application("+chr(34)+key+chr(34)+")(" & n & ")=" & i & "<br>"
            n=n+1
        next
   end if
next
%>