查看ASP Session 变量的小工具,查看ASP Session 变量的小工具
<%@ LANGUAGE="VBSCRIPT" %
<%
#####################################################
Function:
List server Session variable & Application variable
Author: Hardy He
Date: -3-12 23:30
Memo: Be care for diffrent virtul path show diffrent Session
#####################################################
%
<table cellspacing="0" bordercolor="#800000" width="100%" bordercolorlight="#808080" bordercolordark="#FFFFFF" height="37"
<%
Dim sessitem
"SessionID: " & & "<br"
"List of " & & " items in Session contents collection: "
intItem=1
For Each sessitem in
"<tr"
If IsObject((sessitem)) Then
"<td"+CStr(intItem) + "</td"
"<td"+sessitem+ "</td"
"<td"+"Session object"+ "</td"
Else
If IsArray((sessitem)) Then
"<td"+CStr(intItem) + "</td"
"<td"+"Array Object "+ "</td" + "<td"
For each objArray in (sessitem)
"***;"
Next
"</td"
Else
"<td"+CStr(intItem) + "</td"
"<td"+ sessitem + "</td"
"<td"+ CStr((sessitem)) + "</td"
End If
End If
"</tr"
intItem=intItem+1
Next
%
</table
<br
<hr
LIST Application
<hr
<table cellspacing="0" bordercolor="#800000" width="100%" bordercolorlight="#808080" bordercolordark="#FFFFFF" height="37"
<%
intItem=1
For Each Key in
"<tr"
If IsObject((intItem)) Then
"<td"+CStr(intItem) + "</td"
"<td"+CStr(Key) + "</td"
"<td"+"Object" + "</td"
Else
"<td"+CStr(intItem) + "</td"
"<td"+CStr(Key) + "</t
如果觉得《查看ASP Session 变量的小工具》对你有帮助,请点赞、收藏,并留下你的观点哦!