<%@ Language=VBScript %>
<% Option Explicit %>
您的sessionID號是：<%=session.sessionid%><br>
<%
Response.Write "在你的程序中一共使用了 " & Session.Contents.Count & _
" 個Session變量<P>"
Dim strName, iLoop
For Each strName in Session.Contents
'判斷一個Session變量是否為數(shù)組
If IsArray(Session(strName)) then
'如果是數(shù)組，那么羅列出所有的數(shù)組元素內(nèi)容
For iLoop = LBound(Session(strName)) to UBound(Session(strName))
Response.Write strName & "(" & iLoop & ") - " & _
Session(strName)(iLoop) & "<BR>"
Next
Else
'如果不是數(shù)組，那么直接顯示
Response.Write strName & " - " & Session.Contents(strName) & "<BR>"
End If
Next

Response.Write "在你的程序中一共使用了 " & application.Contents.Count & _
" 個application變量<P>"
%>
------------------------------
本站的檢測結(jié)果：
在你的程序中一共使用了 3 個Session變量
在你的程序中一共使用了 4 個application變量