在VBScript中使用类

  1

前言

  2

首先，在我进入实质性主题并解释如何建立类之前，我希望保证你知道“对象”。虽然你可以在程序中使用对象而不用知道其正确的规则，但我并不建议如此！对于对象的初学者，接下来的部分将让你了解其概念及内容。已经了解面向对象编程（OOP）的读者可以跳过这章节。 

  3

      导论

  4

        “对象是什么？”——对象通常代表某种实体，主要是一个变量和函数的集合。

  5

        “实体是什么？”——字面上说，实体是一个“事物”，我的意思是一个概念或者任何一个物体。例如，一辆汽车是一个实体，因为它是一个物体。你公司销售部门销售产品也是一个实体，当然，你也可以将其拆开来看，销售人员、客户、产品等都是实体。

  6

让我们更深入的来看“销售”这个实体（对象）。为了使你更准确地有一个销售的“映像”，你需要知道客户买了什么，是哪个客户，谁是销售人员等等……这看来是一个简单的事件，但假设所有信息是存储在单独的数据库表中的，那么当你需要获得某个销售过程所有相关信息时，你必须在你的数据库中做多次独立查询，再将所有的数据集拢。有没有更简便的办法而一次获得销售的所有信息呢？“对象”。

  7

     在对象中，你可以植入代码以从其他表中获得数据，你也可以保存对象属性的所有信息，这样，你可以轻松地使用代码管理你的销售数据。例如：

  8

  9

' Open the database connection

 10

Set  objConn  =  Server. CreateObject ( " ADODB.Connection " )

 11

objConn.Open 

" MyDSN"

 12

 13

' Create the recordset object

 14

Set  objRS  =  Server. CreateObject ( " ADODB.Recordset " )

 15

 16

' Define the SQL query

 17

strComplexSQLQuery  =   " 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

 22

objRS.Open strComplexSQLQuery, objConn, adOpenForwardOnly, _

 23

               adLockReadOnly, adCmdText

 24

 25

' Take the customer and sales person names from the recordset

 26

strCustomerName  =  objRS( 0 )

 27

strSalesPersonName 

=  objRS( 1 )

 28

 29

' Tidy up the objects

 30

objRS.Close

 31

objConn.Close

 32

Set  objRS  =   Nothing

 33

Set  objConn  =   Nothing

 34

 35

' Output the data

 36

Response.Write  " This sale was made by  "   &  strSalesPersonName  &  _

 37

               

"  to  "   &  strCustomerName

 38

 39

 40

可以使用“对象”来替代：

 41

 42

' Create the "Sale" object

 43

Set  objSale  =   New  Sale

 44

 45

' Lookup the correct sale

 46

objSale.ID  =  strIDOfThisSale

 47

 48

' Output the data

 49

Response.Write  " This sale was made by  "   &  objSale.SalesPersonName  &  _

 50

               

"  to  "   &  objSale.CustomerName

 51

 52

' Tidy up the objects

 53

objSale.Close

 54

Set  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，所有的对象定义写在中间部门。现在我们可以用所学的来建立第一个类，不实现任何功能的类。

 65

Class 4GuysTestObject

 66

' 你的ASP代码

 67

End  Class

 68

     这看上去不是那么回事，但当你写入下面的代码后，你将创建一个对象的实例：

 69

Dim  objTestObject

 70

Set  objTestObject  =   New  4GuysTestObject

 71

Set  objTestObject  =   Nothing

 72

    显然，我们现在还不能用对象做任何事，现在我将解释如何在对象中定义属性和方法。

 73

   使用对象可以做的最基础的，是建立一组数据。例如，假如要将时间、日期及视频程序标题建立在一起，你可以创建一个包含属性“StartTime”， “ProgramDate”和“ProgramTitle”的对象。代码如下：

 74

 75

Class TVProgram

 76

 77

Public  StartTime

 78

Public  ProgramDate

 79

Public  ProgramTitle

 80

 81

End  Class

 82

 83

Dim  objTVShow

 84

Set  objTVShow  =   New  TVProgram

 85

 86

objTVShow.StartTime 

=   CDate ( " 17:30 " )

 87

objTVShow.ProgramDate 

=   DateSerial ( 1999 , 9 , 17 )

 88

objTVShow.ProgramTitle 

=   " The Jerry Springer Show"

 89

 90

Response.Write objTVShow.ProgramTitle  &   "  is on at  "   &  _

 91

objTVShow.StartTime 

&   "  on  "   &  objTVShow.ProgramDate

 92

 93

代码工作的方式是，我们定义StartTime，ProgramDate和ProgramTitle为类TVProgram的属性。这样，这些属性就像其他变量一样来处理，没有设置值则不会执行代码。属性名字前的Public字段有其真实含义，而且非常重要。如果你不特指一个方法或属性为public或private，系统默认值为public，但最好养成定义任何值的良好书写习惯（也方便你之后自己的阅读）。

 94

 95

    上面程序的结果大致如下（决定于你的本地服务器配置）：

 96

 97

The Jerry Springer Show 

is   on  at  5 :30pm  on   17 / 09 / 99 .

 98

 99

    我在英国，所以日期现实如上。不论你跑什么工程，它的效果都不错，但只有你开始使用其他对象的功能，为你可能需要的所有信息和功能，创建一个完美的接口，以支持你所建对象包围的实体，你才会体会到对象的真正实力。

100

    现在，如果你不喜欢上面例子显示日期的方法，而希望以同一种格式现实日期，也没有不要在引用每个ProgramDate属性时加FormatDateTime(),你只需要将此类代码植入属性本身。

101

102

    这样需要用另一种方法定义属性。同样，我们将使用ProgramDate为外部可见属性，但因为ProgramDate属性将成为一个函数而不是静态值，我们将实际日期保存在另一个属性中internal_ProgramDate。

103

104

Class TVProgram

105

106

Public  StartTime

107

Public  internal_ProgramDate

108

109

Public   Property   Get  ProgramDate

110

ProgramDate 

=   Day (internal_ProgramDate)  &  _

111

"   "   &   MonthName ( Month (internal_ProgramDate))  &  _

112

"   "   &   Year (internal_ProgramDate)

113

End Property

114

115

               

Public  ProgramTitle

116

        

End  Class

117

118

Dim  objTVShow

119

Set  objTVShow  =   New  TVProgram

120

121

objTVShow.StartTime 

=   CDate ( " 17:30 " )

122

objTVShow.internal_ProgramDate 

=   DateSerial ( 1999 , 9 , 17 )

123

objTVShow.ProgramTitle 

=   " The Jerry Springer Show"

124

125

Response.Write objTVShow.ProgramTitle  &   "  is on at  "   &  _

126

objTVShow.StartTime 

&   "  on  "   &  objTVShow.ProgramDate  &   " ."

127

128

129

程序的结果如下：

130

131

The Jerry Springer Show 

is   on  at  5 :30pm  on   17  September  1999 .

132

133

   在VBScript中使用类（三）

134

135

我们来分析一下（

2 ）中的程序：

136

137

Class 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

173

Get的意思是“允许外部代码去‘获取’一个值”，与其类似的关键字还有“

Let ”和“ Set ”，但这两个比较复杂，因而我们以后再讨论。

174

175

接下去的代码看来有点难度的，给objectname.internal_ProgramDate赋值并通过objectname.ProgramDate来调用它。如果可以使用相同关键字同时为其赋值并获得它的值不是更好吗？当然，那也可以。

176

177

如果定义Get和Let属性的名称相同，可以将它们当作对象相同的属性，但这只限于它们定义了相同数量的成员。（以下代码看来不太相同，仅作为实例参考）

178

179

Class 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

223

objTVShow.ProgramDate 

=  dtmMyDate

224

225

为了方便，等号右边的值（这里指dtmMyDate）作为了一个程元赋给了函数。因此编译器可能会认为在Get ProgramDate行有0程元，而Let ProgramDate却多一个！分配的值总是被略过而作为属性的最后一个程元，所以即使你使用其他程元，所赋的值总是作为最后一个程元。

226

227

现在看程序。无论通过ProgramDate设置日期为文本形式，还是用internal_ProgramDate译成日期变量，程序都没有问题。但能不能只使用一个入口呢？

228

229

如果internal_ProgramDate只能在内部有效，而使用Let ProgramDate检查传输的数据类型，我们就可以作出选择。例如：

230

231

Class 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

267

Class 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，据说更好用、更快。不过，感觉总是鸡类（肋）。