在VBScript中使用类（四）

现在的代码离我们想要的还是有些不太实用，我们将在其他页使用类TVProgram，因此最好将其独立定义，以便所有也面都可以调用。创建一个ASP页面，并命名为TVProgramClass.asp，我们在其中定义类TVProgram。

--TVProgramClass.asp--

<%

Class TVProgram

Private internal_StartTime

Public Property Get StartTime

StartTime = Hour(internal_StartTime) & _

":" & Minute(internal_StartTime)

End Property

Public Property Let StartTime(ByVal varTimeIn)

If IsDate(varTimeIn) Then

internal_StartTime = varTimeIn

End If

End Property

Private internal_ProgramDate

Public Property Get ProgramDate

ProgramDate = Day(internal_ProgramDate) & _

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

" " & Year(internal_ProgramDate)

End Property

Public Property Let ProgramDate(ByVal varDateIn)

If IsDate(varDateIn) Then

internal_ProgramDate = varDateIn

End If

End Property

Public ProgramTitle

End Class

%>

这样就可以在任何ASP中调用我们定义的类了，语法如下：

<!-- #include virtual="TVProgramClass.asp" -->

<%

Dim objTVShow

Set objTVShow = New TVProgram

objTVShow.StartTime = CDate("17:30")

objTVShow.ProgramDate = DateSerial(1999,9,17)

objTVShow.ProgramTitle = "The Jerry Springer Show"

%>

<%= objTVShow.ProgramTitle %> is on at <%= objTVShow.StartTime %> on <%= objTVShow.ProgramDate %>.

这里有一个建议。如果你重命名你的包含文件.asp，并保证所有重要代码都在<CODE><% ... %>< CODE>中，那么就算有人猜到了你包含文件的文件名，也没办法看见里面的内容！