测试你的站点用了多少个 Session 和 Application

<%
         Session("a") = 123
         Session("b") = "bbb"
         Session("c") = false
         Application("Count") = 100

         Response.Write "
您的sessionID号是：" & session.sessionid & "
" &_
                         "
你的程序共使用了 " & Session.Contents.Count & " 个Session变量
"

         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) & "
"
                         Next
                 Else
                         ’如果不是数组，那么直接显示
                         Response.Write strName & " - " & Session.Contents(strName) & "
"
                 End If
         Next

         Response.Write "
你的程序共使用了 " & application.Contents.Count & " 个application变量"
%>

次程序运行的结果为：
-----------------------------------------------------------
您的sessionID号是：612889999

你的程序共使用了 3 个Session变量
a - 123
b - bbb
c - False

你的程序共使用了 1 个application变量