<% ' Purpose: Display all the application collections %>
Application Variable Collection
<%
On Error Resume Next
For Each Item in Application.Contents
Response.Write Item & " = " & Application.Contents(Item) & "
"
For Each ItemKey in Application.Contents(Item)
Response.Write "Sub Item: " & Item & " (" & ItemKey & ") : " _
& Application.Contents(Item)(ItemKey) & "
"
Next
Next ' Key
if err.no > 0 Then Display "You must upgrade to IIS 4.0 in order to use the
Application Collection
"
%>
Session Variable Collection
<%
On Error Resume Next
For Each Item in Session.Contents
Response.write Item & " = " & Session.Contents(Item) & "
"
For Each ItemKey in Session.Contents(Item)
Response.Write "Sub Item: " & Item & " (" & ItemKey & ") : " _
& Session.Contents(Item)(ItemKey) & "
"
Next
Next
if err.no > 0 Then Display "You must upgrade to IIS 4.0 in order to use the
Session Collection
"
%>
QueryString Collection
<%
For Each Item in Request.QueryString
For iCount = 1 to Request.QueryString(Item).Count
Response.Write Item & " = " & Request.QueryString(Item)(iCount) & "
"
Next
Next
%>
Form Collection
<%
For Each Item in Request.Form
For iCount = 1 to Request.Form(Item).Count
Response.Write Item & " = " & Request.Form(Item)(iCount) & "
"
Next
Next
%>
Cookies Collection
<%
For Each Item in Request.Cookies
If Request.Cookies(Item).HasKeys Then
'use another For...Each to iterate all keys of dictionary
For Each ItemKey in Request.Cookies(Item)
Response.Write "Sub Item: " & Item & "(" & ItemKey & ")"
Response.Write " = " & Request.Cookies(Item)(ItemKey)
Next
Else
'Print out the cookie string as normal
Response.Write Item & " = " & Request.Cookies(Item) & "
"
End If
Next
%>
ClientCertificate Collection
<%
For Each Item in Request.ClientCertificate
For iCount = 1 to Request.ClientCertificate(Item).Count
Response.Write Item & " = " & Request.ClientCertificate(Item)(iCount) _
& "
"
Next
Next
%>
ServerVariables Collection
<%
For Each Item in Request.ServerVariables
For iCount = 1 to Request.ServerVariables(Item).Count
Response.Write Item & " = " & Request.ServerVariables(Item)(iCount) _
& "
"
Next
Next
%>
Modified code from Wrox Press Limited