在VBScript中使用类(7)

                      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>中，那么就算有人猜到了你包含文件的文件名，也没办法看见里面的内容！