<%
Set MyLocalObj1 = Session("Obj1")
MyLocalObj1.MyObjMethod
%>
登入後複製
建立有會話作用域的物件的另一種方法是在global.asa 檔案中使用
<%
Set Session("var1") = Session
Set Session("var2") = Request
Set Session("var3") = Response
Set Session("var4") = Server
Set Session("var5") = Application
%>
<%
'Creating and initializing the array
Dim MyArray()
Redim MyArray(5)
MyArray(0) = "hello"
MyArray(1) = "some other
string
"
'Storing the array in the Session object
Session("StoredArray") = MyArray
Response.Re
dir
ect("file2.asp")
%>
---file2.asp---
<%
'Retrieving the array from the Session Object
'and mod
if
ying its second element
LocalArray = Session("StoredArray")
LocalArray(1) = " there"
'
print
ing out the string "hello there"
Response.Write(LocalArray(0)&LocalArray(1))
'Re-storing the array in the Session object
'This overwrites the values in StoredArray with the new values
Session("StoredArray") = LocalArray
%>
