＜!-- Declare instance of the ASPCounter component
with application-level scope //--＞ ＜OBJECT ID=”ASPCounter”
RUNAT=”Server”
SCOPE=”Applicatoin” PROGID=”MSWC.Counters”＞ ＜/OBJECT＞ ... ... ＜SCRIPT
LANGUAGE=”VBScript” RUNAT=”Server”＞ Sub
Application_onStart() ‘Create an instance of an ADO Connection with
application-level scope Set Application(“ADOConnection”) =
Server.CreateObject(“ADODB.Connection”) Dim varArray(3) ‘Create a
Variant array and fill it varArray(0) = “This is a” varArray(1) =
“Variant array” varArray(2) = “stored in the” varArray(3) =
“Application object” Application(“Variant_Array”) = varArray ‘Store it
in thd Application Application(“Start_Time”) = CStr(Now) ‘Store the
date/time as a string Application(“Visit_Count”) = 0 ‘Set counter
variable to zero End
Sub ... ... ＜/SCRIPT＞ (1)
遍历Contents集合的代码
为了遍历Contents集合，可使用一个For Each ...
Next结构。集合中的每一项可以是一个简单的Variant类型变量、一个Variant数组或者一个对象的引用。因为需要对每种类型的值进行不同的处理，所以就不得不对每一个进行检查来判别其类型。
For Each objItem in Application.Contents If
IsObject(Application.Contents(objItem)) Then Response.Write “Object
reference: ‘” & objItem & “’ ” ElseIf
IsArray(Application.Contents(objItem)) Then Response.Write “Array: ‘”
& objItem & “’ contents are: ” VarArray =
Application.Contents(objItem) ‘Note: the following only works with a
one-dimensional array For intLoop = 0 To
UBound(varArray) Response.Write “ Index(“ & intLoop & “) = “
& _ VarArray(intLoop) &
“ ” Next Else Response.Write “Variable: ‘” & objItem &
“’ = “ _ & Application.Contents(objItem) & “ ” End
If Next 注意程序如何从Application对象检索该数组。将其分配给一个局部（Variant）变量，使用下面的语句：
For Each objItem in Application.StaticObjects If
IsObject(Application.StaticObjects(objItem)) Then Response.Write
“＜OBJECT＞ element: ID=’” & objItem & “’ ” End
If Next 15a
没有相关教程
注：本站部分文章源于互联网，版权归原作者所有！如有侵权，请原作者与本站联系，本站将立即删除！ 本站文章除特别注明外均可转载，但需注明出处！ [MinTao学以致用网] 
