监测你的站点使用多少session和application的程序

<%@ 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变量是否为数组

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

Response.Write "在你的程序中一共使用了 " & application.Contents.Count & _

" 个application变量<P>"

%>

------------------------------

本站的检测结果：

在你的程序中一共使用了 3 个Session变量

在你的程序中一共使用了 4 个application变量