Iterating the Dictionary with Arrays 显示在页面上的Dictionary内容列表是使用Dictionary对象的Key和Items方法创建的两个数组,可使用前面的代码遍历它们。 3. Dictionary页面控件 在Dictionary的内容列表下是一系列的HTML控件,可用于设定Dictionary对象的某些属性和执行各种方法。这些控件全部在一个内,其ACTION属性值是本页面,所以窗体的内容提交回本页面。在前面的章节的示例里使用了同样的技术。 在段中,改变属性或执行一个方法是通过一个按钮(没有标题)实现的。用于属性和方法的值放入按钮旁的文本框或列表框中。 该页的第一个按钮用于设定Dictionary里的条目的Key属性。这里使用了一个下拉列表,可以选择一个已经存在的Key值。下面的代码创建了页面内该部分的控件。为了填充列表,使用了另外一个遍历Dictionary对象的技术,即For Each … Next语句。代码如下: …
The Dictionary Properties Dictionary.Key (" ) = … … Other controls go here … … … 4. 使用Dictionary的属性和方法 在“Scription.Dictionary Object”页面,点击用来检查并改变条目的Key属性的按钮,如图5-5所示: 图5-5 使用Dictionary的Key属性 把窗体再次提交给页面。该页面包含一个脚本段,检查被点击的按钮的值。它通过在Resquest.Form集合里查找按钮的名字来断定单击的是哪个按钮。如果发现一个对应于cmdChangKey的值,则从列表中或文本框中得到相应的值并用来改变Key属性: … 'look for a command sent from the FORM section buttons If Len(Request.Form("cmdChangeKey")) Then strKeyName = Request.Form("lstChangeKey") 'Existing key from list box strNewKey = Request.Form("txtChangeKey") 'New key value from text box objMyData.Key(strKeyName) = strNewKey 'Set key property of this item End If … 页面重新载入后,在Dictionary的内容列表里能看到相应的结果,如图5-6所示: 图5-6 页面重载后的结果 页面的其余代码用来设定一个条目的Item属性,或者执行Dictionary对象的方法。下面是这些操作的代码,每段代码与演示Key属性的代码非常类似。每次都将结果显示在Dictionary的内容列表中: … If Len(Request.Form("cmdChangeItem")) Then strKeyName = Request.Form("lstChangeItem") 'Existing key from list box strNewValue = Request.Form("txtChangeItem") 'New item value from text box objMyData.Item(strKeyName) = strNewValue 'Set the Item property End If If Len(Request.Form("cmdAdd")) Then strKeyName = Request.Form("txtAddKey") 'New key value from text box strItemValue = Request.Form("txtAddItem") 'New item value from text box objMyData.Add strKeyName, strItemValue 'Execute the Add method End If If Len(Request.Form("cmdRemove")) Then strKeyName = Request.Form("lstRemove") 'Existion key from list box objMyData.Remove strKeyName 'Execute the Remove method End If If Len(Request.Form("cmdRemoveAll")) Then objMyData.RemoveAll 'Execute the RemoveAll method End If … 例如,如果现在点击Add方法的按钮,在Dictionary的内容列表里将增加一个新的条目,如图5-7所示: 图5-7 增加一个新方法 结果如图5-8所示: 图5-8 Add方法的结果 可以在这个页面中试验Dictionary对象的属性和方法,你将会发现什么因素及在什么环境下能引起Dictionary对象错误。例如,尝试用与已经存在的一个条目相同的键值增加一个条目,看看会出现什么结果。 5.4 Scripting.FileSystemObject对象 FileSystemObject对象提供对计算机文件系统的访问,它允许我们在代码内操作文本文件、文件夹及驱动器。它是脚本运行期库提供的对象之一,对于服务器ASP页面内的VBScript和JScript都有效。如果页面的扩展名为.hta(表示它们是HTA的一部分),它也可用在客户端的IE 5中。本节仅讨论在服务器上的ASP脚本如何使用FileSystemObject对象。 超级文本应用程序(HTA)由指定的“受信任的”页面组成,在页面的段里包含元素。例如: 这些页面可以使用客户端脚本引擎中的一些不常用特性,这些特性中有FileSystemObject对象和TextStream对象。关于超级文本应用程序的更多信息,请访问Microsoft Workshop网站。 可以使用下面的程序创建一个FileSystemObject对象实例: ‘ In VBScript: Dim objMyFSO Set objMyFSO = Server.CreateObject(“Scripting.FileSystemObject”) // In JScript: var objMyFSO = Server.CreateObject(‘Scripting.FileSystemObject’); 在ASP页面里,增加一个对于FileSystemObject类型库的引用是非常有用的。这允许使用它直接定义的内置常数,不用像过去那样用数字等效表达式代替。整个脚本运行期库的类型库可以增加到任何ASP页面中,代码如下: 如果你是在另一个目录下安装Windows,必须编辑FILE的属性值。