在VBScript中使用类

  1前言
  2首先，在我进入实质性主题并解释如何建立类之前，我希望保证你知道“对象”。虽然你可以在程序中使用对象而不用知道其正确的规则，但我并不建议如此！对于对象的初学者，接下来的部分将让你了解其概念及内容。已经了解面向对象编程（OOP）的读者可以跳过这章节。 
  3      导论
  4        “对象是什么？”——对象通常代表某种实体，主要是一个变量和函数的集合。
  5        “实体是什么？”——字面上说，实体是一个“事物”，我的意思是一个概念或者任何一个物体。例如，一辆汽车是一个实体，因为它是一个物体。你公司销售部门销售产品也是一个实体，当然，你也可以将其拆开来看，销售人员、客户、产品等都是实体。
  6让我们更深入的来看“销售”这个实体（对象）。为了使你更准确地有一个销售的“映像”，你需要知道客户买了什么，是哪个客户，谁是销售人员等等……这看来是一个简单的事件，但假设所有信息是存储在单独的数据库表中的，那么当你需要获得某个销售过程所有相关信息时，你必须在你的数据库中做多次独立查询，再将所有的数据集拢。有没有更简便的办法而一次获得销售的所有信息呢？“对象”。
  7     在对象中，你可以植入代码以从其他表中获得数据，你也可以保存对象属性的所有信息，这样，你可以轻松地使用代码管理你的销售数据。例如：
  8
  9'Open the database connection
 10Set objConn = Server.CreateObject("ADODB.Connection")
 11objConn.Open "MyDSN"
 12
 13'Create the recordset object
 14Set objRS = Server.CreateObject("ADODB.Recordset")
 15
 16'Define the SQL query
 17strComplexSQLQuery = "SELECT C.Name, S.Name FROM Customers C, " & _
 18        "Salespeople S, Sales Sl WHERE Sl.CustomerID=C.ID AND " & _
 19         "Sl.SalespersonID=S.ID AND Sl.ID=" & strIDOfThisSale & ";"
 20
 21'Open the recordset
 22objRS.Open strComplexSQLQuery, objConn, adOpenForwardOnly, _
 23               adLockReadOnly, adCmdText
 24
 25'Take the customer and sales person names from the recordset
 26strCustomerName = objRS(0)
 27strSalesPersonName = objRS(1)
 28
 29'Tidy up the objects
 30objRS.Close
 31objConn.Close
 32Set objRS = Nothing
 33Set objConn = Nothing
 34
 35'Output the data
 36Response.Write "This sale was made by " & strSalesPersonName & _
 37               " to " & strCustomerName
 38
 39
 40可以使用“对象”来替代：
 41
 42'Create the "Sale" object
 43Set objSale = New Sale
 44
 45'Lookup the correct sale
 46objSale.ID = strIDOfThisSale
 47
 48'Output the data
 49Response.Write "This sale was made by " & objSale.SalesPersonName & _
 50               " to " & objSale.CustomerName
 51
 52'Tidy up the objects
 53objSale.Close
 54Set objSale = Nothing
 55如果你使用“Sale”对象做比打印更多的事，可以让你省去很多的打字时间。
 56
 57计算中，对象包括“属性”和“方法”。属性主要是储存在对象中的一个变量，其用法与变量相同。唯一的区别在于参数赋值为：strMyVar = "This is a string variant", 而对象属性为 objObject.Property="This is a string variant"。这点非常简单而有用处。方法可以理解为植入对象中的函数与过程，可以使用strMyVar = objObject.MethodName(strMyVar)来代替strMyVar =FunctionName(strMyVar)。写法不同，但功能相同。属性的一个例子是对象Response中的ExpireAbsolute，Response.ExpiresAbsolute = CDate("1 September 1999")。方法的一个例子是对象Response中的Write方法，Response.Write "Hello world!"。
 58    VBScript的一个新特性就是其可以创建新的对象而不需要求诸于花销时间都极大的编译器。我将向读者展示如何创建对象的类，并希望提供一个良好的开端。
 59
 60    在VBScript中使用类（二）
 61     创建对象
 62在VBScript中创建对象类型（类）时，你首先要知道，这真的很容易！我在一个下午自学，只是阅读了Microsof VB Script 的参考书，但必须承认，这书不是最容易阅读的文档。
 63    初学者需要安装VBScript 5.0引擎，可以在Microsoft's Scripting Site下载。
 64我们来看代码。类的定义与函数和子过程非常类似。起始行为Class <MyClassName>，结尾是End Class，所有的对象定义写在中间部门。现在我们可以用所学的来建立第一个类，不实现任何功能的类。
 65Class 4GuysTestObject
 66'你的ASP代码
 67End Class
 68     这看上去不是那么回事，但当你写入下面的代码后，你将创建一个对象的实例：
 69Dim objTestObject
 70Set objTestObject = New 4GuysTestObject
 71Set objTestObject = Nothing
 72    显然，我们现在还不能用对象做任何事，现在我将解释如何在对象中定义属性和方法。
 73   使用对象可以做的最基础的，是建立一组数据。例如，假如要将时间、日期及视频程序标题建立在一起，你可以创建一个包含属性“StartTime”， “ProgramDate”和“ProgramTitle”的对象。代码如下：
 74
 75Class TVProgram
 76
 77Public StartTime
 78Public ProgramDate
 79Public ProgramTitle
 80
 81End Class
 82
 83Dim objTVShow
 84Set objTVShow = New TVProgram
 85
 86objTVShow.StartTime = CDate("17:30")
 87objTVShow.ProgramDate = DateSerial(1999,9,17)
 88objTVShow.ProgramTitle = "The Jerry Springer Show"
 89
 90Response.Write objTVShow.ProgramTitle & " is on at " & _
 91objTVShow.StartTime & " on " & objTVShow.ProgramDate
 92
 93代码工作的方式是，我们定义StartTime，ProgramDate和ProgramTitle为类TVProgram的属性。这样，这些属性就像其他变量一样来处理，没有设置值则不会执行代码。属性名字前的Public字段有其真实含义，而且非常重要。如果你不特指一个方法或属性为public或private，系统默认值为public，但最好养成定义任何值的良好书写习惯（也方便你之后自己的阅读）。
 94
 95    上面程序的结果大致如下（决定于你的本地服务器配置）：
 96
 97The Jerry Springer Show is on at 5:30pm on 17/09/99.
 98
 99    我在英国，所以日期现实如上。不论你跑什么工程，它的效果都不错，但只有你开始使用其他对象的功能，为你可能需要的所有信息和功能，创建一个完美的接口，以支持你所建对象包围的实体，你才会体会到对象的真正实力。
100    现在，如果你不喜欢上面例子显示日期的方法，而希望以同一种格式现实日期，也没有不要在引用每个ProgramDate属性时加FormatDateTime(),你只需要将此类代码植入属性本身。
101
102    这样需要用另一种方法定义属性。同样，我们将使用ProgramDate为外部可见属性，但因为ProgramDate属性将成为一个函数而不是静态值，我们将实际日期保存在另一个属性中internal_ProgramDate。
103
104Class TVProgram
105
106Public StartTime
107Public internal_ProgramDate
108
109Public Property Get ProgramDate
110ProgramDate = Day(internal_ProgramDate) & _
111" " & MonthName(Month(internal_ProgramDate)) & _
112" " & Year(internal_ProgramDate)
113End Property
114
115               Public ProgramTitle
116        End Class
117
118Dim objTVShow
119Set objTVShow = New TVProgram
120
121objTVShow.StartTime = CDate("17:30")
122objTVShow.internal_ProgramDate = DateSerial(1999,9,17)
123objTVShow.ProgramTitle = "The Jerry Springer Show"
124
125Response.Write objTVShow.ProgramTitle & " is on at " & _
126objTVShow.StartTime & " on " & objTVShow.ProgramDate & "."
127
128
129程序的结果如下：
130
131The Jerry Springer Show is on at 5:30pm on 17 September 1999.
132
133   在VBScript中使用类（三）
134
135我们来分析一下（2）中的程序：
136
137Class TVProgram
138
139               Public StartTime
140
141               Public internal_ProgramDate
142
143               Public Property Get ProgramDate
144
145                       ProgramDate = Day(internal_ProgramDate) & _
146
147                               " " & MonthName(Month(internal_ProgramDate)) & _
148
149                               " " & Year(internal_ProgramDate)
150
151               End Property
152
153               Public ProgramTitle
154
155        End Class
156
157        Dim objTVShow
158
159        Set objTVShow = New TVProgram
160
161        objTVShow.StartTime = CDate("17:30")
162
163        objTVShow.internal_ProgramDate = DateSerial(1999,9,17)
164
165        objTVShow.ProgramTitle = "The Jerry Springer Show"
166
167        Response.Write objTVShow.ProgramTitle & " is on at " & _
168
169       objTVShow.StartTime & " on " & objTVShow.ProgramDate & "."
170
171当调用对象的属性ProgramDate时，实际上执行了函数ProgramDate，即如上定义的函数，而很快你也将习惯这种在声明部分使用Public或Private关键字的方式。关键字“Property”，告知了编译器如同调用属性一样在外部调用函数。接着的“Get”，表明该函数是输出还是获得一个值。
172
173Get的意思是“允许外部代码去‘获取’一个值”，与其类似的关键字还有“Let”和“Set”，但这两个比较复杂，因而我们以后再讨论。
174
175接下去的代码看来有点难度的，给objectname.internal_ProgramDate赋值并通过objectname.ProgramDate来调用它。如果可以使用相同关键字同时为其赋值并获得它的值不是更好吗？当然，那也可以。
176
177如果定义Get和Let属性的名称相同，可以将它们当作对象相同的属性，但这只限于它们定义了相同数量的成员。（以下代码看来不太相同，仅作为实例参考）
178
179Class TVProgram
180
181               Public StartTime
182
183               Public internal_ProgramDate
184
185               Public Property Get ProgramDate
186
187                       ProgramDate = Day(internal_ProgramDate) & " " _
188
189                               & MonthName(Month(internal_ProgramDate)) & _
190
191                               " " & Year(internal_ProgramDate)
192
193               End Property
194
195               Public Property Let ProgramDate(ByVal varDateIn)
196
197                       internal_ProgramDate = CDate(varDateIn)
198
199               End Property
200
201               Public ProgramTitle
202
203        End Class
204
205        Dim objTVShow
206
207        Set objTVShow = New TVProgram
208
209        objTVShow.StartTime = CDate("17:30")
210
211        objTVShow.ProgramDate = "17 Sept 99"
212
213        objTVShow.ProgramTitle = "The Jerry Springer Show"
214
215    Response.Write objTVShow.ProgramTitle & " is on at " & _
216
217       objTVShow.StartTime & " on " & objTVShow.ProgramDate & "."
218
219以上代码中Let的声明部分看来似乎是一个多余的元素，当我第一次看到时研究了很长时间。每次我使用“0”作为变量用在每个属性上，我总是得到这个错误信息，“元素数量必须相等”。“它们确实相等！”抓狂之后，我回过头去看程序才觉得自己的愚蠢！：）
220
221原因是，当你试图为ProgramDate赋值时，你会使用这样一行程序：
222
223objTVShow.ProgramDate = dtmMyDate
224
225为了方便，等号右边的值（这里指dtmMyDate）作为了一个程元赋给了函数。因此编译器可能会认为在Get ProgramDate行有0程元，而Let ProgramDate却多一个！分配的值总是被略过而作为属性的最后一个程元，所以即使你使用其他程元，所赋的值总是作为最后一个程元。
226
227现在看程序。无论通过ProgramDate设置日期为文本形式，还是用internal_ProgramDate译成日期变量，程序都没有问题。但能不能只使用一个入口呢？
228
229如果internal_ProgramDate只能在内部有效，而使用Let ProgramDate检查传输的数据类型，我们就可以作出选择。例如：
230
231Class TVProgram
232
233               Public StartTime
234
235               Private internal_ProgramDate
236
237               Public Property Get ProgramDate
238
239                       ProgramDate = Day(internal_ProgramDate) & " " & _
240
241                               MonthName(Month(internal_ProgramDate)) & _
242
243                               " " & Year(internal_ProgramDate)
244
245               End Property
246
247               Public Property Let ProgramDate(ByVal varDateIn)
248
249                       If IsDate(varDateIn) Then
250
251                               internal_ProgramDate = varDateIn
252
253                       Else
254
255                               'Place some error handling code in here.
256
257                       End If
258
259               End Property
260
261               Public ProgramTitle
262
263        End Class
264
265并同样声明StartTime属性：
266
267Class TVProgram
268
269               Private internal_StartTime
270
271               Public Property Get StartTime
272
273                       StartTime = Hour(internal_StartTime) & ":" _
274
275                               & Minute(internal_StartTime)
276
277               End Property
278
279               Public Property Let StartTime(ByVal varTimeIn)
280
281                       If IsDate(varTimeIn) Then
282
283                               internal_StartTime = varTimeIn
284
285                       End If
286
287               End Property
288
289               Private internal_ProgramDate
290
291               Public Property Get ProgramDate
292
293                       ProgramDate = Day(internal_ProgramDate) & " " _
294
295                               & MonthName(Month(internal_ProgramDate)) & _
296
297                               " " & Year(internal_ProgramDate)
298
299               End Property
300
301               Public Property Let ProgramDate(ByVal varDateIn)
302
303                       If IsDate(varDateIn) Then
304
305                               internal_ProgramDate = varDateIn
306
307                       End If
308
309               End Property
310
311               Public ProgramTitle
312
313        End Class
314        
315    现在的代码离我们想要的还是有些不太实用，我们将在其他页使用类TVProgram，因此最好将其独立定义，以便所有也面都可以调用。我们将在第四部分讨论这点。
316      在VBScript中使用类（四）
317
318现在的代码离我们想要的还是有些不太实用，我们将在其他页使用类TVProgram，因此最好将其独立定义，以便所有也面都可以调用。创建一个ASP页面，并命名为TVProgramClass.asp，我们在其中定义类TVProgram。
319--TVProgramClass.asp--
320<%
321        Class TVProgram
322               Private internal_StartTime
323               Public Property Get StartTime
324
325                       StartTime = Hour(internal_StartTime) & _
326
327                               ":" & Minute(internal_StartTime)
328
329               End Property
330               Public Property Let StartTime(ByVal varTimeIn)
331
332                       If IsDate(varTimeIn) Then
333
334                               internal_StartTime = varTimeIn
335
336                       End If
337
338               End Property
339               Private internal_ProgramDate
340               Public Property Get ProgramDate
341                       ProgramDate = Day(internal_ProgramDate) & _
342                              " " & MonthName(Month(internal_ProgramDate)) & _
343
344                               " " & Year(internal_ProgramDate)
345
346               End Property
347
348               Public Property Let ProgramDate(ByVal varDateIn)
349                       If IsDate(varDateIn) Then
350                               internal_ProgramDate = varDateIn
351                       End If
352               End Property
353
354               Public ProgramTitle
355
356        End Class
357%>
358这样就可以在任何ASP中调用我们定义的类了，语法如下：
359<!-- #include virtual="TVProgramClass.asp" -->
360<%
361        Dim objTVShow
362        Set objTVShow = New TVProgram
363
364        objTVShow.StartTime = CDate("17:30")
365        objTVShow.ProgramDate = DateSerial(1999,9,17)
366        objTVShow.ProgramTitle = "The Jerry Springer Show"
367
368%> 
369<%= objTVShow.ProgramTitle %> is on at <%= objTVShow.StartTime %> on <%= objTVShow.ProgramDate %>.
370这里有一个建议。如果你重命名你的包含文件.asp，并保证所有重要代码都在<CODE><%  %>< CODE>中，那么就算有人猜到了你包含文件的文件名，也没办法看见里面的内容！
371
372评论：
373    VBScript类在封装的层面上，还是有不少好处的，增加了代码的可读性与可维护性以及清晰度，但是，没有继承和重载等特性，并不是真正意义上的OOP。没有集合，但是据说可以用Scripting.Dictionary，据说更好用、更快。不过，感觉总是鸡类（肋）。