在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>中，那么就算有人猜到了你包含文件的文件名，也没办法看见里面的内容！