在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

%>