在VBScript中使用类（四）,在VBScript中使用类（四）
【 tulaoshi.com - ASP 】
现在的代码离我们想要的还是有些不太实用，我们将在其他页使用类TVProgram，因此最好将其独立定义，以便所有也面都可以调用。创建一个ASP页面，并命名为TVProgramClass.asp，我们在其中定义类TVProgram。
--TVProgramClass.asp--
<%
Class TVProgram
Private internal_StartTime
（本文来源于图老师网站，更多请访问http://www.tulaoshi.com/asp/）（本文来源于图老师网站，更多请访问http://www.tulaoshi.com/asp/）
Public Property Get StartTime
StartTime = Hour(internal_StartTime) & _
":" & Minute(internal_StartTime)
End Property
（本文来源于图老师网站，更多请访问http://www.tulaoshi.com/asp/）（本文来源于图老师网站，更多请访问http://www.tulaoshi.com/asp/）
Public Property Let StartTime(ByVal varTimeIn)
If IsDate(varTimeIn) Then
internal_StartTime = varTimeIn
End If
End Property
（本文来源于图老师网站，更多请访问http://www.tulaoshi.com/asp/）（本文来源于图老师网站，更多请访问http://www.tulaoshi.com/asp/）
Private internal_ProgramDate
（本文来源于图老师网站，更多请访问http://www.tulaoshi.com/asp/）（本文来源于图老师网站，更多请访问http://www.tulaoshi.com/asp/）
Public Property Get ProgramDate
ProgramDate = Day(internal_ProgramDate) & _
" " & MonthName(Month(internal_ProgramDate)) & _
" " & Year(internal_ProgramDate)
End Property
（本文来源于图老师网站，更多请访问http://www.tulaoshi.com/asp/）（本文来源于图老师网站，更多请访问http://www.tulaoshi.com/asp/）
Public Property Let ProgramDate(ByVal varDateIn)
If IsDate(varDateIn) Then
internal_ProgramDate = varDateIn
End If
End Property
（本文来源于图老师网站，更多请访问http://www.tulaoshi.com/asp/）（本文来源于图老师网站，更多请访问http://www.tulaoshi.com/asp/）
Public ProgramTitle
End Class
%
这样就可以在任何ASP中调用我们定义的类了，语法如下：
<!-- #include virtual="TVProgramClass.asp" --
<%
Dim objTVShow
来源:http://www.tulaoshi.com/n/20160129/1510461.html
看过《在VBScript中使用类（四）》的人还看了以下文章 更多>>
