- ·上一篇文章:一种效率极高的分类算法(转--非常好,帮助很大对于想做好asp的朋友)
- ·下一篇文章:实现文件下载而不是由ie打开的代码
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>
a
<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>
a
