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

文章來源于領測軟件測試網 http://www.kjueaiud.com/