Asp列出session所有變數

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