Question

ASP中如何得到所有的session对象的值

在程序中我想知道ASP中已经建立的的SESSION对象的具体值的情况，如何实现?

Answer 1

用For Each语句对Session.Contents树组进行遍历。

代码：

<%@ LANGUAGE=VBScript codepage ="936" %>
<% Option Explicit %>
您的sessionID号是：<%=session.sessionid%><br>
<%
Response.Write "在你的程序中一共使用了 " & 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) & "<BR>"
Next
Else
'如果不是数组，那么直接显示
Response.Write strName & " - " & Session.Contents(strName) & "<BR>"
End If
Next
%>

Answer 2

用For
Each语句对Session.Contents树组进行遍历。
代码：
<%@
LANGUAGE=VBScript
codepage
="936"
%>
<%
Option
Explicit
%>
您的sessionID号是：<%=session.sessionid%><br>
<%
Response.Write
"在你的
程序
中一共使用了
"
&
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)
&
"<BR>"
Next
Else
'如果不是数组，那么直接显示
Response.Write
strName
&
"
-
"
&
Session.Contents(strName)
&
"<BR>"
End
If
Next
%>

Answer 3

<%response(session("id"))%>
或
<%=session("id")%>
输出session("id")的值

Answer 4

<%=Session("对象")%>