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

如何在 dataGrid 上的第一列加上 CheckBox ASP.NET 的状态管理

评论 (0) All