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

　　

上一页  [1] [2] [3] 

在google里搜索更多在VBScript中使用类（四）

	Web www.51ec.org

上一篇信息学院： ASP：网上通讯簿1.00

下一篇信息学院： 在VBScript中使用类（三）