ASP 3.0高级编程（十八）

5.2.5 引用对象类型库;;;;在早先的ASP版本中，在脚本中使用对象或组件时，组件内定义的公共常数（如果有的话）在ASP里将不再有效。这意味着我们需要自己声明它们（或等价物）并指定相应的值。;;;;例如，当在早期版本的ASP中使用ActiveX数据库对象（ADO）组件时（将在第8章进行详细的研究），不得不用记录集的Open方法加入预定义常数声明。例如：;;;;Const adOpenKeyset = &H0001;;;;Const adLockPessimistic = &H0003;;;;Const adCmdTable = &H0002;;;;…;;;;rs.Open “Contact”,”DSN=GlobalExampleData;UID=examples;Password=;”, _;;;;adOpenKeyset, adLockPessimistic, adCmdTable;;;;…;;;;另一种方法是使用#include指令在页面插入一个名为adovbs.inc的文件。该文件由IIS/ASP提供，包含ADO所需的所有预定义常数。更新代码时，必须确认使用的是最新版本，并检查它对于所有的页面请求都可用。;;;;对于IIS 5.0，有一个更好的方法，通过在HTML注释元素内使用METADATA指令，可以给组件或对象的类型库增加引用（IIS 4.0不支持这一功能）。;;;;<!-- METADATA TYPE=”TypeLib”;;;FILE=”path_and_name_of_file”;;;UUID=”type_library_uuid”;;;VERSSION=”major_version_number.minor_version_number”;;;LCID=”locale_id”;;;;-->;;;;其中：;;;;· path_and_name_of_file是某一类型库文件（.tlb）或ActiveX DLL的绝对物理路径，必须提供这一参数或者是type_library_uuid参数。· type_library_uuid是该类型库的唯唯一标识符，必须提供这一参数或者是path_and_name_of_file参数。;;;;· major_version_number.minor_version_number（可选）定义了所需组件的版本。如果没有该版本则使用最近的版本。;;;;· locale_id（可选）是区域标志符。如果在该区域没有发现类型库，计算机将使用缺省的（安装时定义的）区域。;;;;因此，使用这一技术，通过使用下面的代码，能使内置的ADO预定义常数在ASP页面可用：;;;;<!-- METADATA TYPE=”TypeLib”FILE=”C:Program FilesCommon FilesSystemadomsado15.dll”;;;;-->;;;;文件名msado15.dll还可用于更高版本（2.50以后）的ADO组件。;;;;如果ASP不能装载类型库，就返回一个错误并停止该页的执行。可能的错误提示如表5-1所示：表5-1;;错误提示代码及说明错 误;;;;说 明ASP 0222;;;;无效的类型库说明ASP 0223;;;;未找到类型库ASP 0224;;;;类型库不能加载ASP 0225;;;;类型库不能打包（即ASP不能从指定的类型库中创建类型库包装对象）5.2.6 在客户端上创建对象实例;;;;在ASP中讨论在服务器上实例化对象和组件的技术时，值得强调的是在浏览器中运行客户端页面而完成同样工作的方式。如果你使用ASP创建包含客户端脚本程序的页面，或者使用<OBJECT>元素创建客户端组件实例，将会发现这是非常有用的。在大多数情况下，脚本运行期对象可在客户端上实例化和使用，效果与服务器上的ASP相同。1．;;;;VBScript CreateObject方法在客户端使用CreateObject时，在浏览器的环境内创建组件或对象实例，它们与浏览器运行在相同的内存空间里（即进程内），除非实现的对象是带有.exe扩展文件名的可执行文件。通常指定对象的ClassID，而不是使用ProgID字符串，这样就不可能与其他安装在客户端的对象发生冲突。<SCRIPT LANGUAGE=”VBScript”>Dim objThisSet objThis = CreateObject(“clsid:892D6DA7-E0F9-00105A42AF30”)…</SCRIPT>当然也可以使用ProgID，并且使用通用的对象或组件（特别是标准安装提供的对象或组件），那么得到错误的组件的风险是很小的：<SCRIPT LANGUAGE=”VBScript”>Dim objThisSet objThis = CreateObject(“Scripting.Dictionary”)…</SCRIPT>2．;;;;Jscript ActiveXObject方法为了在客户端上实例化Jscript的对象和组件，必须使用ActiveXObject方法和new操作符：<SCRIPT LANGUAGE=”JScript”>;;;;var objMyData = new ActiveXObject(‘clsid: 892D6DA7-E0F9-00105A42AF30’);</SCRIPT>或：<SCRIPT LANGUAGE=”JScript”>;;;;var objMyData = new ActiveXObject(‘this.object’);</SCRIPT>3．;;;;<OBJECT>元素技术也可使用<OBJECT>元素创建客户端对象或组件的实例。应省略RUNAT属性或者将其设定为“CLIENT”。然而，这个属性在客户端上是被忽略的，因此设置这个属性的唯一目的就是，在ASP页面使用<OBJECT>元素实例化服务器端的组件实例时防止混淆。<OBJECT ID=”objThis” RUNAT=”CLIENT”CLASSID=”clsid: 892D6DA7-E0F9-00105A42AF30”CODEBASE=”http://yourserver.com/components/mycomponent.cab”>;;;;<PARAM NAME=”param1” VALUE=”value1”>;;;;<PARAM NAME=”param2” VALUE=”value2”></OBJECT>注意，这里出现的CODEBASE属性，表示允许下载并安装来自URL的组件（如果该组件没有安装）。IE 3.0以上的版本有此功能。对于使用<OBJECT>元素的方法、可使用的属性、在客户端使用的值，可查看网站http://msdn.Microsoft.com/workshop/author/dhtml/reference/objects/OBJECT.asp，或者Windows 2000 Platform SDK文档中的<OBJECT> tags，或者看看《IE5 Dynamic HTML Programmer’ Reference》一书，ISBN 1-861001-74-6，Wrox出版社。5.3 Scripting.Dictionary对象;;;;许多Microsoft的编程语言，如Visual Basic、VBScript和Jscript，都提供集合（collection）。可以把集合想象为数组，可以使用其中内建的函数完成存储和操纵数据等基本任务。无须担心数据是在哪些行列，而是使用唯一的键进行访问。;;;;VBScript和Jscript都提供类似的对象，通称Scripting.Dictionary对象或Dictionary对象。它类似于二维数组，把键和相关条目的数据存放在一起。然而真正的面向对象的方法，不应直接访问数据条目，必须使用Dictionary对象支持的方法和属性来实现。;;;;本章提供了一些示例页面，允许试验脚本运行期对象的方法和属性。这些实例在下载的文件的文件的Chaper05子目录里。5.3.1 创建和使用Dictionary对象;;;;创建一个Dictionary对象的示例如下：;;;;‘In VBScript:;;;;Dim objMyData;;;;Set objMyData = Server.CreateObject(“Scripting.Dictionary”);;;;//In Jscript:;;;;var objMyData = Server.CreateObject(‘Scripting.Dictionary’);;;;;<!-- Server-Side with an OBJECT element -->;;;;<OBJECT RUNAT=”SERVER” SCOPE=”PAGE” ID=”objMyData”;;;;PROGID=”Scripting.Dictionary”>;;;;</OBJECT>;;;;Dictionary对象还可用于客户端的IE中。1．;;;;Dictionary对象的成员概要表5-2和表5-3列出了Dictionary对象的属性和方法及相应的说明。当增加一个键/条目对时，如果该键已存在；或者删除一个键/条目对时，该关键字/条目对不存在，或改变已包含数据的Dictionary对象的CompareMode，都将产生错误。表5-2;;Dictionary对象的属性和说明属 性;;;;说 明CompareMode;;;;（仅用于VBScript）设定或返回键的字符串比较模式Count;;;;只读。返回Dictionary里的键/条目对的数量Item(key);;;;设定或返回指定的键的条目值Key(key);;;;设定键值表5-3;;Dictionary对象的方法和说明方 法;;;;说 明Add(key,item);;;;增加键/条目对到DictionaryExists(key);;;;如果指定的键存在，返回True，否则返回FalseItems();;;;返回一个包含Dictionary对象中所有条目的数组Keys();;;;返回一个包含Dictionary对象中所有键的数组Remove(key);;;;删除一个指定的键/条目对RemoveAll();;;;删除全部键/条目对2．;;;;对Dictionary中增加和删除条目一旦得到一个新的（空的）Dictionary，可以对其添加条目，从中获取条目以及删除条目：‘ In VBScript:objMyData.Add “MyKey”, “MyItem”;;;;‘Add Value MyItem with key MyKeyobjMyData.Add “YourKey”, ”YourItem”‘Add value YourItem with key YourKeyblnIsThere = objMyData.Exists(“MyKey”)‘Returns True because the item existsstrItem = objMyData.Item(“YourKey”);;;;‘Retrieve value of YourKeystrItem = objMyData.Remove(“MyKey”)‘Retrieve and remove YourKeyobjMyData.RemoveAll‘Remove all the items在JScript中，等价的代码为：// In JScript;objMyData.Add (‘MyKey’, ‘MyItem’);;;;;//Add Value MyItem with key MyKeyobjMyData.Add (‘YourKey’, ‘YourItem’);//Add value YourItem with key YourKeyvar blnIsThere = objMyData.Exists(‘MyKey’);;;;;//Returns True because the item existsvar strItem = objMyData.Item(‘YourKey’);//Retrieve value of YourKeyvar strItem = objMyData.Remove(‘MyKey’);;;;;//Retrieve and remove YourKeyobjMyData.RemoveAll();;;;;//Remove all the items3．;;;;修改键或条目的值可以通过修改键的值，或通过修改与特定的键关联的条目的数据，来改变存储在Dictionary内的数据。下面的代码改变键为MyKey的条目中的数据。ObjMyData.Item(“MyKey”) = “NewValue”‘ In VBScriptObjMyData.Item(‘MyKey’) = ‘NewValue’;// In JScript如果指定的键在Dictionary未找到，将在Dictionary中创建一个以MyKey为键，以New Value为其条目值的新的键/条目对。有意思的是，如果使用一个不存在的键来检索条目，不仅得到一个空的字符串（这是可以想到的），而且还在Dictionary里添加一个新的键/条目对，键即是指定的键，但条目的数据为空。可以使用Key属性仅改变键的值而不改变与之对应的条目的数据。将一个已存在的键MyKey改变为MyNewKey，可以用：objMyData.Key(“MyKey”) = “MyNewValue”‘ In VBScriptobjMyData.Item(‘MyKey’) = ‘MyNewValue’;// In JScript如果指定的键未找到，则产生运行期错误。4．;;;;设置比较模式Dictionary的CompareMode属性仅适用于VBScript，不能在JScript中使用。当比较字符串键时，允许指定比较的方式。两个允许的值为BinaryCompare(0)和TextCompare(1)。BinaryCompare(0)为二进制数对照（即区分大小写）；TextCompare(1)为文本对照（即不区分大小写）。5．;;;;遍历Dictionary研究Dictionary时，有两个方法和一个属性需要特别注意，它们允许我们遍历存储在Dictionary里的所有键/条目对。Items方法用一个一维数组的形式返回Dictionary里所有的条目数据，而keys方法用一个一维数组返回所有已存在的键值。可以使用Count属性得到键或条目的数量。例如，可以使用下列代码得到名称为objMyData的Dictionary中所有的键和条目值。注意，虽然Count属性保存了在Dictionary里的键/条目数量，但VBScript和JScript的数组总是从下标0开始的。因此，数组下标应从0到Count-1。‘In VBScript:arrKeys = objMyData.Keys;;;;‘Get all the keys into an arrayarrItems = objMyData.Items;;;;‘Get all the items into an arrayFor intLoop = 0 To objMyData.Count –1‘Iterate through the array;;;;StrThisKey = arrKeys(intLoop);;;;‘This is the key value;;;;StrThisItem = arrItems(intLoop);;;;‘This is the item (data) valueNext// In JScript// Get VB-style arrays using the Keys() and Items() methodsvar arrKeys = new VBArray(objMyData.Keys()).toArray();var arrItems = new VBArray(objMyData.Items()).toArray();for (intLoop = 0; intLoop < objMyData.Count; intLoop++) {;;;;// Iterate through the arrays;;;;strThisKey = arrKeys[intLoop];;;;;// This is the key value;;;;strThisItem = arrItems[intLoop];;;;;// This is the item (data) value}在VBScript里也可以使用For Each … Next语句完成同样的功能：‘ Iterate the dictionary as a collection in VBScriptFor Each objItem in arrItems;;;;Response.Write objItem & “ = “ & arrItems(objItem) & “<BR>”Next