在VBScript中使用類（四） (轉)

在VBScript中使用類（四） (轉)[@more@]

現在的程式碼離我們想要的還是有些不太實用，我們將在其他頁使用類TVProgram，因此最好將其獨立定義，以便所有也面都可以。建立一個頁面，並命名為TVProgramClass.asp，我們在其中定義類TVProgram。:namespace prefix = o ns = "urn:schemas--com::office" />

--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_Prograte

  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" --&gt

  Dim objTVShow

  Set objTVShow = New TVProgram

  objTVShow.StartTime = CDate("17:30")

  objTVShow.ProgramDate = DateSerial(1999,9,17)

  objTVShow.ProgramTitle = "The Jerry er Show"

%>

is on at on .

這裡有一個建議。如果你重新命名你的包含.asp，並保證所有重要程式碼都在< CODE>中，那麼就算有人猜到了你包含檔案的檔名，也沒辦法看見裡面的內容！