当前位置导航:炫浪网>>网络学院>>网页制作>>ASP教程

ASP在Scripting.Dictionary对象的作用是什么?

        <br>
  <b>5.3 Scripting.Dictionary</b><b>对象</b><br>
         许多Microsoft的编程语言,如Visual Basic、VBScript和Jscript,都提供集合(collection)。可以把集合想象为数组,可以使用其中内建的函数完成存储和操纵数据等基本任务。无须担心数据是在哪些行列,而是使用唯一的键进行访问。<br>
         VBScript和Jscript都提供类似的对象,通称Scripting.Dictionary对象或Dictionary对象。它类似于二维数组,把键和相关条目的数据存放在一起。然而真正的面向对象的方法,不应直接访问数据条目,必须使用Dictionary对象支持的方法和属性来实现。<br>
         本章提供了一些示例页面,允许试验脚本运行期对象的方法和属性。这些实例在下载的文件的文件的Chaper05子目录里。<br>
  <br>
  <b>5.3.1 </b><b>创建和使用Dictionary</b><b>对象</b><br>
         创建一个Dictionary对象的示例如下:<br>
         ‘In VBScript:<br>
         Dim objMyData<br>
         Set objMyData = Server.CreateObject(“Scripting.Dictionary”)<br>
  <br>
         //In Jscript:<br>
         var objMyData = Server.CreateObject(‘Scripting.Dictionary’);<br>
  <br>
         <!-- Server-Side with an OBJECT element --><br>
         <OBJECT RUNAT=”SERVER” SCOPE=”PAGE” ID=”objMyData”<br>
                       PROGID=”Scripting.Dictionary”><br>
         </OBJECT><br>
         Dictionary对象还可用于客户端的IE中。<br>
  1.  Dictionary对象的成员概要<br>
  表5-2和表5-3列出了Dictionary对象的属性和方法及相应的说明。<br>
  当增加一个键/条目对时,如果该键已存在;或者删除一个键/条目对时,该关键字/条目对不存在,或改变已包含数据的Dictionary对象的CompareMode,都将产生错误。<br>
  表5-2  Dictionary对象的属性和说明<table class=ubb cellspacing=0><tr><td class=ubb><br>
  属 性</td><td class=ubb><br>
  说 明</td></tr><tr><td class=ubb><br>
  CompareMode</td><td class=ubb><br>
  (仅用于VBScript)设定或返回键的字符串比较模式</td></tr><tr><td class=ubb><br>
  Count</td><td class=ubb><br>
  只读。返回Dictionary里的键/条目对的数量</td></tr><tr><td class=ubb><br>
  Item(<i>key</i>)</td><td class=ubb><br>
  设定或返回指定的键的条目值</td></tr><tr><td class=ubb><br>
  Key(<i>key</i>)</td><td class=ubb><br>
  设定键值</td></tr></table><br>
  表5-3  Dictionary对象的方法和说明<table class=ubb cellspacing=0><tr><td class=ubb><br>
  方 法</td><td class=ubb><br>
  说 明</td></tr><tr><td class=ubb><br>
  Add(<i>key,item</i>)</td><td class=ubb><br>
  增加键/条目对到Dictionary</td></tr><tr><td class=ubb><br>
  Exists(<i>key</i>)</td><td class=ubb><br>
  如果指定的键存在,返回True,否则返回False</td></tr><tr><td class=ubb><br>
  Items()</td><td class=ubb><br>
  返回一个包含Dictionary对象中所有条目的数组</td></tr><tr><td class=ubb><br>
  Keys()</td><td class=ubb><br>
  返回一个包含Dictionary对象中所有键的数组</td></tr><tr><td class=ubb><br>
  Remove(<i>key</i>)</td><td class=ubb><br>
  删除一个指定的键/条目对</td></tr><tr><td class=ubb><br>
  RemoveAll()</td><td class=ubb><br>
  删除全部键/条目对</td></tr></table><br>
  2.  对Dictionary中增加和删除条目<br>
  一旦得到一个新的(空的)Dictionary,可以对其添加条目,从中获取条目以及删除条目:<br>
  ‘ In VBScript:<br>
  objMyData.Add “MyKey”, “MyItem”                 ‘Add Value MyItem with key MyKey<br>
  objMyData.Add “YourKey”, ”YourItem”             ‘Add value YourItem with key YourKey<br>
  blnIsThere = objMyData.Exists(“MyKey”)          ‘Returns True because the item exists<br>
  strItem = objMyData.Item(“YourKey”)               ‘Retrieve value of YourKey<br>
  strItem = objMyData.Remove(“MyKey”)            ‘Retrieve and remove YourKey<br>
  objMyData.RemoveAll                                      ‘Remove all the items<br>
  在JScript中,等价的代码为:<br>
  // In JScript;<br>
  objMyData.Add (‘MyKey’, ‘MyItem’);               //Add Value MyItem with key MyKey<br>
  objMyData.Add (‘YourKey’, ‘YourItem’);           //Add value YourItem with key YourKey<br>
  var blnIsThere = objMyData.Exists(‘MyKey’);    //Returns True because the item exists<br>
  var strItem = objMyData.Item(‘YourKey’);         //Retrieve value of YourKey<br>
  var strItem = objMyData.Remove(‘MyKey’);      //Retrieve and remove YourKey<br>
  objMyData.RemoveAll();                                   //Remove all the items<br>
  3.  修改键或条目的值<br>
  可以通过修改键的值,或通过修改与特定的键关联的条目的数据,来改变存储在Dictionary内的数据。下面的代码改变键为MyKey的条目中的数据。<br>
  ObjMyData.Item(“MyKey”) = “NewValue”          ‘ In VBScript<br>
  ObjMyData.Item(‘MyKey’) = ‘NewValue’;          // In JScript<br>
  如果指定的键在Dictionary未找到,将在Dictionary中创建一个以MyKey为键,以New Value为其条目值的新的键/条目对。有意思的是,如果使用一个不存在的键来检索条目,不仅得到一个空的字符串(这是可以想到的),而且还在Dictionary里添加一个新的键/条目对,键即是指定的键,但条目的数据为空。<br>
  可以使用Key属性仅改变键的值而不改变与之对应的条目的数据。将一个已存在的键MyKey改变为MyNewKey,可以用:<br>
  objMyData.Key(“MyKey”) = “MyNewValue”              ‘ In VBScript<br>
  objMyData.Item(‘MyKey’) = ‘MyNewValue’;             // In JScript<br>
  如果指定的键未找到,则产生运行期错误。<br>
  4.  设置比较模式<br>
  Dictionary的CompareMode属性仅适用于VBScript,不能在JScript中使用。当比较字符串键时,允许指定比较的方式。两个允许的值为BinaryCompare(0)和TextCompare(1)。BinaryCompare(0)为二进制数对照(即区分大小写);TextCompare(1)为文本对照(即不区分大小写)。<br>
  5.  遍历Dictionary<br>
  研究Dictionary时,有两个方法和一个属性需要特别注意,它们允许我们遍历存储在Dictionary里的所有键/条目对。Items方法用一个一维数组的形式返回Dictionary里所有的条目数据,而keys方法用一个一维数组返回所有已存在的键值。可以使用Count属性得到键或条目的数量。<br>
  例如,可以使用下列代码得到名称为objMyData的Dictionary中所有的键和条目值。注意,虽然Count属性保存了在Dictionary里的键/条目数量,但VBScript和JScript的数组总是从下标0开始的。因此,数组下标应从0到Count-1。<br>
  ‘In VBScript:<br>
  arrKeys = objMyData.Keys                                ‘Get all the keys into an array<br>
  arrItems = objMyData.Items                              ‘Get all the items into an array<br>
  <br>
  For intLoop = 0 To objMyData.Count –1            ‘Iterate through the array<br>
         StrThisKey = arrKeys(intLoop)                   ‘This is the key value<br>
         StrThisItem = arrItems(intLoop)                 ‘This is the item (data) value<br>
  Next<br>
  <br>
  // In JScript<br>
  // Get VB-style arrays using the Keys() and Items() methods<br>
  var arrKeys = new VBArray(objMyData.Keys()).toArray();<br>
  var arrItems = new VBArray(objMyData.Items()).toArray();<br>
  <br>
  for (intLoop = 0; intLoop < objMyData.Count; intLoop++) {<br>
         // Iterate through the arrays<br>
         strThisKey = arrKeys[intLoop];                  // This is the key value<br>
         strThisItem = arrItems[intLoop];                // This is the item (data) value<br>
  }<br>
  在VBScript里也可以使用For Each … Next语句完成同样的功能:<br>
  ‘ Iterate the dictionary as a collection in VBScript<br>
  For Each objItem in arrItems<br>
         Response.Write objItem & “ = “ & arrItems(objItem) & “<BR>”<br>
  Next<br>
  <br>
  <b>5.3.2 Dictionary</b><b>对象示例</b><br>
         本书提供了一系列示例文件可用来试验脚本运行时间库的各种属性。<br>
         本章代码的缺省页面提供了一系列可使用的VBScript示例链接。有些示例对JScript同样有效。这些示例存放在Chapter05目录下相应的子目录里,显示的界面如图5-2所示:<br>
  <br>
  图5-2  ASP脚本运行期对象示例页面<br>
         要查看Dictionary对象的运行,在菜单页面点击第一个链接,打开名叫show_dictionary.asp的页面。这个页面显示了我们提供的Dictionary对象的内容,允许试验其属性和方法。屏幕如图5-3所示:<br>
  <br>
  图5-3  Dictionary对象的属性和方法<br>
  1.  Dictionary的global.asa文件<br>
  随Dictionary对象示例页面提供的文件之一是global.asa。它创建并预先填充了一个会话层作用域的Dictionary对象,因此其内容在页面请求之间不会丢失。一般说来(考虑到可扩展性),这不是一个理想的做法。在这个例子里,可以看到Dictionary的属性和方法的效果。<br>
  如果在自己的服务器上下载并安装示例,必须创建一个基于此global.asa文件的虚拟应用程序。或者将其内容添加到缺省站点的根文件夹中的global.asa文件里。在第3章讲述了如何用向导创建虚拟应用程序。然而对于本示例,创建一个虚拟应用程序最简单的方法是在Chapter05示例文件夹内右击dictionary子文件夹,在Properties对话框的Home Directory选项卡里,点击Create按钮,如图5-4所示:<br>
  <br>
  图5-4  创建虚拟应用程序<br>
  在这个global.asa文件里,代码使用<OBJECT>元素创建一个会话层作用域的Scripting.Dictionary对象实例。然后在Session_onStart事件处理程序里将一系列值用Add方法放入Dictionary中,并将对Dictionary对象的引用指定给ASP会话变量MyDictionary:<br>
  <OBJECT ID="objBookList" RUNAT="SERVER" SCOPE="SESSION"<br>
          PROGID="Scripting.Dictionary"><br>
  </OBJECT><br>
  <br>
  <SCRIPT LANGUAGE="VBScript" RUNAT="SERVER"><br>
  <br>
  Sub Session_onStart()<br>
    objBookList.Add "2610", "Professional Active Server Pages 3.0"<br>
    objBookList.Add "1274", "Instant JavaScript"<br>
    objBookList.Add "2882", "Beginning ASP Components"<br>
    objBookList.Add "1797", "Professional ASP Techniques"<br>
    objBookList.Add "1835", "AD0 2.0 Programmer''s Reference"<br>
    Set Session("MyDictionary") = objBookList<br>
  End Sub<br>
  <br>
  </SCRIPT><br>
  2.  Dictionary示例页面<br>
  在“Scripting.Dictionary Object”主页面里,首要的任务是得到一个会话层作用域的Dictionary对象实例的引用。注意,这个引用是一个对象变量,因此必须在VBScript里使用Set关键字。<br>
  然后,检查一下是否得到了一个对象(这是个好习惯),如果没有正确地建立包含global.asa文件的虚拟应用程序,检查一下问题出在哪里。你将看到我们自己的消息代替了ASP的错误消息(但是注意,对于这一操作必须关闭缺省的错误处理)。<br>
  <%<br>
  <br>
  on error resume next  '' turn off error handling to test if object exists<br>
  <br>
  ''retrieve Dictionary object from user''s session<br>
  Set objMyData = Session("MyDictionary")<br>
  <br>
  If IsObject(objMyData) Then  ''found Dictionary object in Session<br>
  …<br>
  %><br>
  <br>
  <P><DIV CLASS="subhead">Iterating the Dictionary with Arrays</DIV><br>
  <%<br>
  arrKeysArray = objMyData.Keys           ''get all the keys into an array<br>
  arrItemsArray = objMyData.Items         ''get all the items into an array<br>
  For intLoop = 0 To objMyData.Count - 1   ''iterate through the array<br>
      Response.Write "Key: <B>" & arrKeysArray(intLoop) & "</B>   Value: <B>" _<br>
                   & arrItemsArray(intLoop)& "</B><BR>"<br>
  Next<br>
  %><br>
  …<br>
  … Other code and controls go here …<br>
  …<br>
    <%<br>
  Else<br>
  <br>
    ''could not find Dictionary object in the session<br>
    Response.Write "Dictionary object not available in global.asa for session"<br>
  <br>
  End If<br>
  %><br>
  显示在页面上的Dictionary内容列表是使用Dictionary对象的Key和Items方法创建的两个数组,可使用前面的代码遍历它们。<br>
  3.  Dictionary页面控件<br>
  在Dictionary的内容列表下是一系列的HTML控件,可用于设定Dictionary对象的某些属性和执行各种方法。这些控件全部在一个<FORM>内,其ACTION属性值是本页面,所以窗体的内容提交回本页面。在前面的章节的示例里使用了同样的技术。<br>
  在<FORM>段中,改变属性或执行一个方法是通过一个按钮(没有标题)实现的。用于属性和方法的值放入按钮旁的文本框或列表框中。<br>
  该页的第一个按钮用于设定Dictionary里的条目的Key属性。这里使用了一个下拉列表,可以选择一个已经存在的Key值。下面的代码创建了页面内该部分的控件。为了填充列表,使用了另外一个遍历Dictionary对象的技术,即For Each … Next语句。代码如下:<br>
  …<br>
  <FORM ACTION="<% = Request.ServerVariables("SCRIPT_NAME") %>" METHOD="POST"><br>
  <br>
    <P><DIV CLASS="subhead">The Dictionary Properties</DIV><br>
    <INPUT TYPE="SUBMIT" NAME="cmdChangeKey" VALUE="   "><br>
      Dictionary.Key ("<br>
    <SELECT NAME="lstChangeKey" SIZE="1"><br>
    <%<br>
    For Each objItem in objMyData<br>
      Response.Write "<OPTION>" & objItem<br>
    Next<br>
    %><br>
    </SELECT> ") = "<br>
    <INPUT TYPE="TEXT" NAME="txtChangeKey" SIZE="15" VALUE="New Key Name"> "<br>
    <BR><br>
    …<br>
    … Other controls go here …<br>
    …<br>
  </FORM><br>
  …<br>
  4.  使用Dictionary的属性和方法<br>
  在“Scription.Dictionary Object”页面,点击用来检查并改变条目的Key属性的按钮,如图5-5所示:<br>
  <br>
  图5-5  使用Dictionary的Key属性<br>
  把窗体再次提交给页面。该页面包含一个脚本段,检查被点击的按钮的值。它通过在Resquest.Form集合里查找按钮的名字来断定单击的是哪个按钮。如果发现一个对应于cmdChangKey的值,则从列表中或文本框中得到相应的值并用来改变Key属性:<br>
  …<br>
  ''look for a command sent from the FORM section buttons<br>
  If Len(Request.Form("cmdChangeKey")) Then<br>
      strKeyName = Request.Form("lstChangeKey")           ''Existing key from list box<br>
      strNewKey = Request.Form("txtChangeKey")            ''New key value from text box<br>
      objMyData.Key(strKeyName) = strNewKey               ''Set key property of this item<br>
  End If<br>
  …<br>
  页面重新载入后,在Dictionary的内容列表里能看到相应的结果,如图5-6所示:<br>
  <br>
  图5-6  页面重载后的结果<br>
  页面的其余代码用来设定一个条目的Item属性,或者执行Dictionary对象的方法。下面是这些操作的代码,每段代码与演示Key属性的代码非常类似。每次都将结果显示在Dictionary的内容列表中:<br>
  …<br>
  If Len(Request.Form("cmdChangeItem")) Then<br>
      strKeyName = Request.Form("lstChangeItem")   ''Existing key from list box<br>
      strNewValue = Request.Form("txtChangeItem")   ''New item value from text box<br>
      objMyData.Item(strKeyName) = strNewValue     ''Set the Item property<br>
  End If<br>
  <br>
  If Len(Request.Form("cmdAdd")) Then<br>
  strKeyName = Request.Form("txtAddKey")         ''New key value from text box<br>
      strItemValue = Request.Form("txtAddItem")        ''New item value from text box<br>
      objMyData.Add strKeyName, strItemValue          ''Execute the Add method<br>
  End If<br>
  <br>
  If Len(Request.Form("cmdRemove")) Then<br>
      strKeyName = Request.Form("lstRemove")         ''Existion key from list box<br>
      objMyData.Remove strKeyName                        ''Execute the Remove method<br>
  End If<br>
  <br>
  If Len(Request.Form("cmdRemoveAll")) Then<br>
      objMyData.RemoveAll                                      ''Execute the RemoveAll method<br>
  End If<br>
  …<br>
  例如,如果现在点击Add方法的按钮,在Dictionary的内容列表里将增加一个新的条目,如图5-7所示:<br>
  <br>
  图5-7  增加一个新方法<br>
  结果如图5-8所示:<br>
  <br>
  图5-8  Add方法的结果<br>
  可以在这个页面中试验Dictionary对象的属性和方法,你将会发现什么因素及在什么环境下能引起Dictionary对象错误。例如,尝试用与已经存在的一个条目相同的键值增加一个条目,看看会出现什么结果。
  

 
相关内容
赞助商链接