ASP 3.0高级编程(二)
ASP 3.0高级编程(二),ASP 3.0高级编程(二)
当用户填写页面<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” &