<%
For Each item IN Application.Contents
Response.write("<br>"&item&Application.Contents(item))
next
%>
Application的方法:
Application的方法只有兩個方法:一個是Lock,另一個是Unlock。其中Lock方法用於保證同一時刻只能一個使用者對Application操作。Unlock則用於取消Lock方法的限制。如:
<%
Application.Lock
Application("visitor_num")=Application("visitor_num")+1
Application.Unlock
%>
Application的事件:
1、Application_OnStart()
當事件應用程式啟動時觸發。
2、Application_OnEnd()
此事件應用程式結束時觸發。
這兩個事件程序都是必須定義在Global.asp檔案中,一般把串連資料的函數定義在這兩個事件,然後放在Global.asp中。例如:
Sub Application_OnStart
Application("tt18_ConnectionString") = "driver={SQL Server};server=jeff;uid=sa;pwd=;database=test"
End Sub
一個數組能夠被定義成Application對象,不過這個數組只能作為一個對象儲存,而不能用Application(0)取出其值。可以定義一個臨時數組實現這種功能。如:
<%
dim Array()
Array=Application("array")
for i = 0 to ubound(array)
Response.write Array(i)
next i
%>
同樣要修改這個Application對象也可以定義一個臨時數組,把Application對象賦給數組,然後修改這個數組的元素,最後把數組賦回Application對象。如: