【 tulaoshi.com - ASP 】
使用Form和QueryString集合
当用户填写页面<FORM内容时所提供的全部值，或在浏览器地址栏输入在URL后的值，通过Form和QueryString集合为ASP脚本所用。这是在ASP代码中访问值的一种简单方法。
1、 访问ASP集合的一般技术大多数ASP集合与在VB中见到的普通集合相差不多。实际上，它们是值的数组，但能通过使用一个文本字符串键（对大小不敏感）以及一个整型索引进行访问。因此，假如客户端Web页面包含的<FORM如下：
<FORM ACTION=”show_request.asp” METHOD=”POST”
FirstName:<INPUT TYPE=”TEXT” NAME=”FirstName”
LastName:<INPUT TYPE=”TEXT” NAME=”LastName”
<INPUT TYPE=”SUBMIT” VALUE=”Send”
</FORM
可通过访问ASP的Form集合来访问其控件内的值：
strFirstName = Request.Form(“FirstName”)
strLastName = Request.Form(“LastName”)
也可使用窗体中控件的整型索引，索引的范围从在HTML中第一个定义的控件开始，然后根据定义的顺序排序：
strFirstName = Request.Form(1)
strLastName = Request.Form(2)
然而，后面的这种以整型为索引的技术不推荐使用，因为一旦有HTML中的控件发生了变化，或者插入一个新的控件，则ASP代码将得到错误的值。进一步而言，对于阅读代码的人来讲，极容易混淆。
1) 访问集合的全部值可以通过引用集合把整个Form上的一系列值变成单个的字符变量，且不用提供键或索引。
StrAllFormContent = Request.Form
假如文本框包含值Priscilla和Descartes，则Request.Form语句将返回下列字符：
FirstName=Priscilla&LastName=Descartes
注意，提供的值是以名称/值对的形式出现的（即控件名称=控件值），并且每一对名称/值相互之间是用符号“&”相分隔的。假如打算把窗体中的内容传递单独的，希望得到值的标准格式的可执行应用程序或DLL，这个技术是很有用的。然而，一般说来，都是通过以窗体中控件的名称为文本键来访问集合中的内容。
2) 遍历一个ASP集合有两种方式遍历一个ASP集合中的所有成员，方式与普通VB集合的基本相同。每个集合提供一个Count属性，返回的是集合中条目数量。可通过使用一个整型索引使用Count属性来遍历。
For intLoop=1 To Request.Form.Count
Response.Write Request.Form(intLoop) & “<BR”
Next
假如先前的窗体包含Priscilla和Descartes值的两个文本框，将得到如下结果：
Priscilla
Descartes
然而，更好的方法是使用For Each...Next结构。
For Each objItem In Request.Form
Response.Write objItem & “=” & Request.Form(objItem) & “<BR”
Next
这带来的好处是既可以访问控件的名称又可访问其值。上述代码将得到如下结果：
FirstName = Priscilla
LastName = Descartes
注意，一些浏览器返回到ASP的<FORM值可能与页面上显示的顺序不尽相同。
3) 集合成员的多值性在某些情况下，ASP集合中的各个成员可能不止一个值，这种情况发生在HTML定义中有几个控件有相同Name属性时。例如：
<FORM ACTION=”Show_request.asp” METHOD=”POST”
<INPUT TYPE=”TEXT” NAME=”OtherHobby”
<INPUT TYPE=”TEXT” NAME=”OtherHobby”
<INPUT TYPE=”TEXT” NAME=”OtherHobby”
<INPUT TYPE=”SUBMIT” VALUE=”Send”
</FORM
在Form集合中，将为“OtherHobby”创建一个条目。然而，它将包括从三个文本框中得到的值。假如在提交时，用户留下了一个或多个为空，则返回的值为空字符串。假如用户在第一和第三个文本框分别输入Gardening和Mountaineering，第二个文本框为空，在我们的ASP代码中访问Request.Form(“OtherHobby”)，将返回字符串：
Gardening, ,Mountaineering
为了能够在这种情况下，访问单个值，可以用复杂一些的代码：
For Each objItem In Request.Form
If Request.Form(objItem).Count 1 Then ‘More than one value in this item
Response.Write objItem & “:<BR”
For intLoop = 1 To Request.Form(objItem).Count
Response.Write “Subkey” &
