 |
|
|
 首页 |
名片设计 CorelDRAW Illustrator AuotoCAD Painter 其他软件 Photoshop Fireworks Flash |
|
5.3.2 Dictionary对象示例 本书提供了一系列示例文件可用来试验脚本运行时间库的各种属性。 本章代码的缺省页面提供了一系列可使用的VBScript示例链接。有些示例对JScript同样有效。这些示例存放在Chapter05目录下相应的子目录里，显示的界面如图5-2所示： 图5-2 ASP脚本运行期对象示例页面 要查看Dictionary对象的运行，在菜单页面点击第一个链接，打开名叫show_dictionary.asp的页面。这个页面显示了我们提供的Dictionary对象的内容，答应试验其属性和方式。屏幕如图5-3所示： 图5-3 Dictionary对象的属性和方式 1． Dictionary的global.asa文件 随Dictionary对象示例页面提供的文件之一是global.asa。它创建并预先填充了一个会话层作用域的Dictionary对象，因此其内容在页面哀求之间不会丢失。一般说来（考虑到可扩展性），这不是一个理想的做法。在这个例子里，可以看到Dictionary的属性和方式的效果。 假如在自己的服务器上下载并安装示例，必须创建一个基于此global.asa文件的虚拟应用程序。或者将其内容添加到缺省站点的根文件夹中的global.asa文件里。在第3章讲述了如何用向导创建虚拟应用程序。然而对于本示例，创建一个虚拟应用程序最简朴的方式是在Chapter05示例文件夹内右击dictionary子文件夹，在Properties对话框的Home Directory选项卡里，点击Create按钮，如图5-4所示： 图5-4 创建虚拟应用程序 在这个global.asa文件里，代码使用<OBJECT>元素创建一个会话层作用域的Scripting.Dictionary对象实例。然后在Session_onStart事件处理程序里将一系列值用Add方式放入Dictionary中，并将对Dictionary对象的引用指定给ASP会话变量MyDictionary： <OBJECT ID="objBookList" RUNAT="SERVER" SCOPE="SESSION" PROGID="Scripting.Dictionary"> </OBJECT> <SCRIPT LANGUAGE="VBScript" RUNAT="SERVER"> Sub Session_onStart() objBookList.Add "2610", "Professional Active Server Pages 3.0" objBookList.Add "1274", "Instant JavaScript" objBookList.Add "2882", "Beginning ASP Components" objBookList.Add "1797", "Professional ASP Techniques" objBookList.Add "1835", "AD0 2.0 Programmer\\\'s Reference" Set Session("MyDictionary") = objBookList End Sub </SCRIPT> 2． Dictionary示例页面 在“Scripting.Dictionary Object”主页面里，首要的任务是得到一个会话层作用域的Dictionary对象实例的引用。注重，这个引用是一个对象变量，因此必须在VBScript里使用Set要害字。 然后，检查一下是否得到了一个对象（这是个好习惯），假如没有准确地建立包含global.asa文件的虚拟应用程序，检查一下问题出在哪里。你将看到我们自己的消息代替了ASP的错误消息（但是注重，对于这一操作必须关闭缺省的错误处理）。 <% on error resume next \\\' turn off error handling to test if object exists \\\'retrieve Dictionary object from user\\\'s session Set objMyData = Session("MyDictionary") If IsObject(objMyData) Then \\\'found Dictionary object in Session … %> <P><DIV CLASS="subhead">Iterating the Dictionary with Arrays</DIV> <% arrKeysArray = objMyData.Keys \\\'get all the keys into an array arrItemsArray = objMyData.Items \\\'get all the items into an array For intLoop = 0 To objMyData.Count - 1 \\\'iterate through the array Response.Write "Key: <B>" & arrKeysArray(intLoop) & "</B> Value: <B>" _ & arrItemsArray(intLoop)& "</B><BR>" Next %> … … Other code and controls go here … … <% Else \\\'could not find Dictionary object in the session Response.Write "Dictionary object not available in global.asa for session" End If %> 显示在页面上的Dictionary内容列表是使用Dictionary对象的Key和Items方式创建的两个数组，可使用前面的代码遍历它们。 3． Dictionary页面控件 在Dictionary的内容列表下是一系列的HTML控件，可用于设定Dictionary对象的某些属性和执行各种方式。这些控件全部在一个<FORM>内，其ACTION属性值是本页面，所以窗体的内容提交回本页面。在前面的章节的示例里使用了同样的技术。 在<FORM>段中，改变属性或执行一个方式是通过一个按钮（没有标题）实现的。用于属性和方式的值放入按钮旁的文本框或列表框中。 该页的第一个按钮用于设定Dictionary里的条目的Key属性。这里使用了一个下拉列表，可以选择一个已经存在的Key值。下面的代码创建了页面内该部分的控件。为了填充列表，使用了另外一个遍历Dictionary对象的技术，即For Each … Next语句。代码如下： … <FORM ACTION="<% = Request.ServerVariables("SCRIPT_NAME") %>" METHOD="POST"> <P><DIV CLASS="subhead">The Dictionary Properties</DIV> <INPUT TYPE="SUBMIT" NAME="cmdChangeKey" VALUE=" "> Dictionary.Key (" <SELECT NAME="lstChangeKey" SIZE="1"> <% For Each objItem in objMyData Response.Write "<OPTION>" & objItem Next %> </SELECT> ") = " <INPUT TYPE="TEXT" NAME="txtChangeKey" SIZE="15" VALUE="New Key Name"> " <BR> … … Other controls go here … … </FORM> … 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）由指定的“受信任的”页面组成，在页面的<HEAD>段里包含<HTA: APPLICATION>元素。例如： <HTA:APPLICATION ID=”objMyApp” APPLICATIONNAME=”myApp”> 这些页面可以使用客户端脚本引擎中的一些不常用特性，这些特性中有FileSystemObject对象和TextStream对象。关于超级文本应用程序的更多信息，请访问Microsoft Workshop网站。 可以使用下面的程序创建一个FileSystemObject对象实例： ‘ In VBScript: Dim objMyFSO Set objMyFSO = Server.CreateObject(“Scripting.FileSystemObject”) // In JScript: var objMyFSO = Server.CreateObject(‘Scripting.FileSystemObject’); <!-- Server-side with an OBJECT element --> <OBJECT RUNAT=”SERVER” SCOPE=”PAGE” ID=”objFSO” PROGID=”Scripting.FileSystemObject”> </OBJECT> 在ASP页面里，增加一个对于FileSystemObject类型库的引用是异常有用的。这答应使用它直接定义的内置常数，不用像过去那样用数字等效表达式代替。整个脚本运行期库的类型库可以增加到任何ASP页面中，代码如下： <!-- METADATA TYPE=”typelib” FILE=”C:WinNTSystem32scrrun.dll” -->假如你是在另一个目录下安装Windows，必须编辑FILE的属性值。 返回类别: 教程 上一教程: 网上考试系统编制中的随机抽取试题的四种算法 下一教程: 一个提供用户输入时期的绝好程序之(二) 您可以阅读与"ASP 3.0高级编程(十九)"相关的教程: · ASP 3.0高级编程（二十九） · ASP 3.0高级编程(二十九) · ASP 3.0高级编程(三十九) · ASP 3.0高级编程(二) · ASP 3.0高级编程(三十四) |
  |
| 快精灵印艺坊 版权所有 |
首页 会员中心在线印刷在线编辑付款方式索取样品设计指南连锁门店
|
||
