查看ASP Session 变量的小工具

<%@ language="vbscript" %>

<%

#####################################################

function:

list server session variable & application variable

author: hardy he

date: 2003-3-12 23:30

memo: be care for diffrent virtul path show diffrent session

#####################################################

%>

<table border="2" cellspacing="1" bordercolor="#800000" width="100%" id="autonumber1" bordercolorlight="#808080" bordercolordark="#ffffff" height="37" bgcolor="#d6d3ce">

<%

dim sessitem

response.write "sessionid: " & session.sessionid & "<br>"

response.write "list of " & session.contents.count & " items in session contents collection: "

intitem=1

for each sessitem in session.contents

response.write "<tr>"

if isobject(session.contents(sessitem)) then

response.write "<td>"+cstr(intitem) + "</td>"

response.write "<td>"+sessitem+ "</td>"

response.write "<td>"+"session object"+ "</td>"

else

if isarray(session.contents(sessitem)) then

response.write "<td>"+cstr(intitem) + "</td>"

response.write "<td>"+"array object "+ "</td>" + "<td>"

for each objarray in session.contents(sessitem)

response.write "***;"

next

response.write "</td>"

else

response.write "<td>"+cstr(intitem) + "</td>"

response.write "<td>"+ sessitem + "</td>"

response.write "<td>"+ cstr(session.contents(sessitem)) + "</td>"

end if

end if

response.write "</tr>"

intitem=intitem+1

next

%>

</table>

<br>

<hr>

list application

<hr>

<table border="2" cellspacing="1" bordercolor="#800000" width="100%" id="autonumber1" bordercolorlight="#808080" bordercolordark="#ffffff" height="37" bgcolor="#d6d3ce">

<%

intitem=1

for each key in application.contents

response.write "<tr>"

if isobject(application.contents(intitem)) then

response.write "<td>"+cstr(intitem) + "</td>"

response.write "<td>"+cstr(key) + "</td>"

response.write "<td>"+"object" + "</td>"

else

response.write "<td>"+cstr(intitem) + "</td>"

response.write "<td>"+cstr(key) + "</td>"

response.write "<td>"+cstr(application.contents(intitem)) + "</td>"

end if

intitem=intitem+1

response.write "</tr>"

next

%>

</table>