在VBScript中使用类(2)

''''''''Lookup the correct sale
objSale.ID = strIDOfThisSale
''''''''Output the data
Response.Write "This sale was made by " & objSale.SalesPersonName & _
" to " & objSale.CustomerName
''''''''Tidy up the objects
objSale.Close
Set objSale = Nothing
如果你使用“Sale”对象做比打印更多的事，可以让你省去很多的打字时间。
计算中，对象包括“属性”和“方法”。属性主要是储存在对象中的一个变量，其用法与变量相同。唯一的区别在于参数赋值为：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!"。
VBScript的一个新特性就是其可以创建新的对象而不需要求诸于花销时间都极大的编译器。我将向读者展示如何创建对象的类，并希望提供一个良好的开端。 
创建对象
在VBScript中创建对象类型（类）时，你首先要知道，这真的很容易！我在一个下午自学，只是阅读了Microsof VB Script 的参考书，但必须承认，这书不是最容易阅读的文档。
初学者需要安装VBScript 5.0引擎，可以在Microsoft''''''''s Scripting Site下载。
我们来看代码。类的定义与函数和子过程非常类似。起始行为Class ，结尾是End Class，所有的对象定义写在中间部门。现在我们可以用所学的来建立第一个类，不实现任何功能的类。
Class 4GuysTestObject
End Class
这看上去不是那么回事，但当你写入下面的代码后，你将创建一个对象的实例：
Dim objTestObject
Set objTestObject = New 4GuysTestObject
Set objTestObject = Nothing
显然，我们现在还不能用对象做任何事，现在我将解释如何在对象中定义属性和方法。
使用对象可以做的最基础的，是建立一组数据。例如，假如要将时间、日期及视频程序标题建立在一起，你可以创建一个包含属性“StartTime”， “ProgramDate”和“ProgramTitle”的对象。代码如下：
Class TVProgram
Public StartTime
Public ProgramDate
Public ProgramTitle
End Class
Dim objTVShow
Set objTVShow = New TVProgram
objTVShow.StartTime = CDate("17:30")