一 遍历Request
方式1:
<%
For Each r In Request.QueryString
 Response.Write "Request("""&r&""") = " & Request(r)
 Response.Write "<p>"
Next
%>

方式2:
<%
For i = 1 To Request.QueryString.Count
 Response.Write "Request("""&Request.QueryString.Key(i)&""") = " & Request.QueryString(Request.QueryString.Key(i))
 Response.Write "<p>"
Next
%>

将QueryString改为Form，即可遍历Post变量。

二 遍历Session
<%
Session("key1")="value1"
Session("key2")="value2"
For Each s In Session.Contents
 Response.Write "Session("""&s&""") = " & Session(s)
 Response.Write "<p>"
Next
%>

三 遍历Application
<%
Application("key1")="value1"
Application("key2")="value2"
For Each a In Application.Contents
 Response.Write "Application("""&a&""") = " & Application(a)
 Response.Write "<p>"
Next
%>