首页 / 软件开发 / VB / 在VBScript中使用类（四）

在VBScript中使用类（四）2010-01-29现在的代码离我们想要的还是有些不太实用，我们将在其他页使用类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

%>