在VBScript中使用类（四）

来源：百度文库 编辑：神马文学网 时间：2024/04/29 22:18:30
现在的代码离我们想要的还是有些不太实用，我们将在其他页使用类tvprogram，因此最好将其独立定义，以便所有也面都可以调用。创建一个asp页面，并命名为tvprogramclass.asp，我们在其中定义类tvprogram。
--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中调用我们定义的类了，语法如下：

<%
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>中，那么就算有人猜到了你包含文件的文件名，也没办法看见里面的内容！
在VBScript中使用类（四） 在VBScript中使用类（一）,VBScript,脚本特效 在VBScript中使用类（一）,VBScript,脚本特效 在VBScript中使用类（二 在VBScript中使用类（二 在ASP中使用类class 在DLL中使用资源（一） 关于ASP的(VBScript)类 在Eclipse中使用CVS 在Eclipse中使用Hibernate 在Eclipse中使用Hibernate 在Blog中使用Tags？ 在struts2中使用JFreeChartdasdasd 在ASP中使用RSS 北京四中学习方法在 在jsp环境中配置使用FCKEditor（转载） 在JDK1.4中使用JAXP1.3 在jsp程序中使用com组件 在Eclipse中使用Hibernate插件 在非托管C++中使用GDI+ 在Servlet/SJP中使用Excel电子表格 在JSP中使用FCKeditor编辑器 - Norez 在Java SE中使用Hibernate框架 在PHP中使用SimpleTest进行单元测试