ITPub博客

首页 > 应用开发 > IT综合 > 在VBScript中使用类(四) (转)

在VBScript中使用类(四) (转)

原创 IT综合 作者:amyz 时间:2007-11-28 12:47:13 0 删除 编辑
在VBScript中使用类(四) (转)[@more@]

现在的代码离我们想要的还是有些不太实用,我们将在其他页使用类TVProgram,因此最好将其独立定义,以便所有也面都可以调用。创建一个ASP页面,并命名为TVProgramClass.asp,我们在其中定义类TVProgram。XML:namespace prefix = o ns = "urn:schemas-microsoft-com:Office: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_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>中,那么就算有人猜到了你包含文件的文件名,也没办法看见里面的内容!


来自 “ ITPUB博客 ” ,链接:http://blog.itpub.net/10752019/viewspace-985672/,如需转载,请注明出处,否则将追究法律责任。

请登录后发表评论 登录
全部评论