阿七
级别: 未验证会员
精华:
0
发帖: 909
威望: 0 点
金钱: 2161 RMB
贡献值: 0 点
在线时间:512(小时)
注册时间:2006-03-29
最后登录:2008-08-07
|
Asp遍历服务器对象的代码
一 遍历Request x41t=E]( 方式1: `Sj8IxO <% ~Ty6]
A For Each r In Request.QueryString %z
@T / Response.Write "Request("""&r&""") = " & Request(r) ]?jmRk^. Response.Write "<p>" <(qdxdUp Next Uzn %> {5fq4AA6 方式2: zzKU s"u <% QX-M'ur99 For i = 1 To Request.QueryString.Count >\5ZgC Response.Write "Request("""&Request.QueryString.Key(i)&""") = " & Request.QueryString(Request.QueryString.Key(i)) z8};(I>) Response.Write "<p>" ."q8 YaW Next SYOU&* %> HOPsp 将QueryString改为Form,即可遍历Post变量。 L
GCeYXic 二 遍历Session y2C/DyuAY| <% L\<J|87p? Session("key1")="value1" @qsOWx`l$ Session("key2")="value2" C4C!
-12 For Each s In Session.Contents <DdzDbgax Response.Write "Session("""&s&""") = " & Session(s) Xb*>7U
/'T Response.Write "<p>" D
<Fl7QAb Next w?c~be$ %> N<lf,zGw
二 遍历Application yj`xOncE} <% ]JHY(
H2| Application("key1")="value1" 'seuO!5 Application("key2")="value2" -_Iuvw For Each a In Application.Contents p WKpc Response.Write "Application("""&a&""") = " & Application(a) YWa9|&m1 Response.Write "<p>" {S5D~A*a+ Next Rv+p4RgA %>
|
|
[楼 主]
|
Posted: 2006-04-04 14:28 |
| |