'return the value for a given control name

For intLoop = 0 To intValCount

　　'see if the name of the control is in the array

　　If LCase(arrVals(0, intLoop)) = LCase(strControlName) Then

　　 'see if we have to match a particular value

　　 '(for use with a check box or an option button)

　　 If strMatchValue < > "" Then

　　　　'see if the value does match that specified

　　　　If LCase(strMatchValue) = LCase(arrVals(1, intLoop)) Then

　　　　 GetSavedValue = "CHECKED"

　　　　Else

　　　　 GetSavedValue = ""

　　　　End If

　　 Else

　　　　'just return the value from the array

　　　　GetSavedValue = arrVals(1, intLoop)

　　 End If

　　 Exit Function

　　End If

Next

End Function

　　在两个比较测试中，我们的检查与HTML语法是大小写不敏感的。如果需要大小写敏感，可以去掉LCase 函数调用。

使用GetSavedValue 函数
　　GetSavedValue 函数的结果是控制域值，或者--如果我们指明是第二个参数的匹配值的话--是字符串 "CHECKED" 或空字符串。我们可以用它预先填充我们的表单页面上的所有控制域值。以下是包含HTML控制域的部分：

< FORM ACTION="aspstate.asp" METHOD="POST" >

FirstName: < INPUT TYPE="TEXT" NAME="FirstName"

　　　　　　VALUE="< % = GetSavedValue("FirstName", "") % >" >

< BR >

LastName: < INPUT TYPE="TEXT" NAME="LastName"

　　　　 VALUE="< % = GetSavedValue("LastName", "") % >" >

< P >

I enjoy:

< INPUT TYPE="CHECKBOX" NAME="Swimming"

< % = GetSavedValue("Swimming", "on") % > > Swimming

< INPUT TYPE="CHECKBOX" NAME="Reading"

< % = GetSavedValue("Reading", "on") % > > Reading

< INPUT TYPE="CHECKBOX" NAME="Eating"

< % = GetSavedValue("Eating", "on") % > > Eating

< P >

OtherHobby: < INPUT TYPE="TEXT" NAME="OtherHobby"

　　　　　　 VALUE="< % = GetSavedValue("OtherHobby(1)", "") % >" >

< BR >

OtherHobby: < INPUT TYPE="TEXT" NAME="OtherHobby"

　　　　　　 VALUE="< % = GetSavedValue("OtherHobby(2)", "") % >" >

< BR >

OtherHobby: < INPUT TYPE="TEXT" NAME="OtherHobby"

　　　　　　 VALUE="< % = GetSavedValue("OtherHobby(3)", "") % >" >

< P >

I live in:

< INPUT TYPE="RADIO" NAME="Country" VALUE="America"

< % = GetSavedValue("Country", "America") % > > America

< INPUT TYPE="RADIO" NAME="Country" VALUE="Europe"

< % = GetSavedValue("Country", "Europe") % > > Europe

< INPUT TYPE="RADIO" NAME="Country" VALUE="Elsewhere"

< % = GetSavedValue("Country", "Elsewhere") % > > Elsewhere

< P >

< INPUT TYPE="SUBMIT" VALUE="Submit" >

< INPUT TYPE="RESET" VALUE="Reset" >

< /FORM >

文本框控制域
　　你可以看到我们在没有第二个参数的情况下，用这个函数填充一个文本控制：

　　FirstName: < INPUT TYPE="TEXT" NAME="FirstName" VALUE="< % = GetSavedValue("FirstName", "") % >" >

　　当它到达客户机，将会有文本值插入，例如:

　　FirstName: < INPUT TYPE="TEXT" NAME="FirstName" VALUE="Alex" >

　　同样对OtherHobby 文本框也适用，但是这次它们是一个集合的成员，所以 我们必须指明NAME和列数：

　　OtherHobby: < INPUT TYPE="TEXT" NAME="OtherHobby" VALUE="< % = GetSavedValue("OtherHobby(1)", "") % >" >

选择框控制域
　　对于选择框控制，我们将控制名作为第二个参数提供给函数。在我们的例子中，我们不必为选择框指明VALUE 属性，所以我们把" on " 当作匹配值。这是将要放在Request.Form 集合中的值，于是在我们的存储值数组中：

　　< INPUT TYPE="CHECKBOX" NAME="Swimming" < % = GetSavedValue("Swimming", "on") % > >

　　并且，由于当有第二个参数提供时，我们的函数返回" CHECKED "或空字符串，我们可以预见结束时客户机寻找一些东西，如下：

　　< INPUT TYPE="CHECKBOX" NAME="Swimming" CHECKED >

选项按钮控制域
　　选项按钮工作的方式与选择框大致相同。但是必须为它们提供一个VALUE属性，这样就可以破译出来哪个选项被选中。要记住有相同NAME 的选项按钮的完整设置在Request.Form 集合中只提供一个单一值。所以不需要在第一个参数NAME中增加按钮的列数，但是在第二个参数中必须使用VALUE。

　　< INPUT TYPE="RADIO" NAME="Country" VALUE="Europe" < % = GetSavedValue("Country", "Europe") % > > Europe

　　如果选择的地方是America，结果就是:

　　< INPUT TYPE="RADIO" NAME="Country" VALUE="America" CHECKED > America

这是全部需要做的
　　如果你尝试了样本页面，你可以看到我们得到了希望的结果。在当前用户session 持续的过程中，每个控制域值都正确地保持了。如果你还提供了浏览器的第二个版本，你会发现每个都单独保持它自己的值，因为它们都拥有自己的Session 对象。每次< FORM > 被提交，在那个session 过程中储存在动态数组中的值用表单中的新值更新。

　　如果你修改了值，点击了Reset 而没有提交表单，最后的值就会被恢复。这是因为HTML的Reset 控制将控制的值恢复成原始值--在这种情况下在页面中用ASP代码事先调整值。当然，当< FORM > 和处理< FORM > 中的值的代码在同一页上时这一技术就不能使用，这是没有道理的，也就是说这种情况是表单将页面提交回它自己的情况。

　　如果你在许多页面中都使用这个技术，你也许愿意考虑一些其它选择。这当然值得将创建数组并把它存储在session中、GetSavedValue 函数以及与恢复数列相关的代码提升到'include' 文件中。用一个SSI #include 指令可以轻易地把这些插入任何页面中。

　　你也许还愿意考虑创建一个Active Server 组件，它可以完成同样的任务，并且可以用 Server.CreateObject 声明插入适当的页面中。虽然这可能会导致一个更高的服务器负载（因为例示组件的需要），却可以提供更好的性能，因为组件在执行中比编译的ASP代码效率更高。