Asp遍历服务器对象的代码

　　一 遍历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

　　%>