在VBScript中使用类(四)
来源:互联网 发布:魔兽数据库手机版7.25 编辑:程序博客网 时间:2024/04/30 02:06
现在的代码离我们想要的还是有些不太实用,我们将在其他页使用类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中调用我们定义的类了,语法如下:
<!-- #include virtual="TVProgramClass.asp" -->
<%
Dim objTVShow
Set objTVShow = New TVProgram
objTVShow.StartTime = CDate("
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>中,那么就算有人猜到了你包含文件的文件名,也没办法看见里面的内容!
- 在VBScript中使用类(四)
- 在VBScript中使用类(一)
- 在VBScript中使用类(二)
- 在VBScript中使用类(三)
- 在VBScript中使用类
- 在VBScript中使用类
- 在VBScript中使用类
- 学习ASP之在VBScript中使用类
- 在VBA中使用JAVASCRIPT和VBSCRIPT
- 如何在C++中使用VBScript(使用Qt)--How to use VBScript in C++ (Using Qt)
- 在Powershell中调用VBScript
- VBscript 中使用正则表达式
- (转载)在Web网页上使用VBScript 和JScript
- 在 VC6 中使用 GdiPlus(四)
- VBscript在word中添加图片!!!
- 如何在VBScript中调用其他应用程序
- 在VBScript中启动IE浏览器
- 怎么在IE11中运行VBScript
- 在ASP中使用均速分页法提高分页速度
- 如何使用ASP产生象安装向导的主页
- 在VBScript中使用类(一)
- 在VBScript中使用类(二)
- 在VBScript中使用类(三)
- 在VBScript中使用类(四)
- ASP中一个用VBScript写的随机数类
- 可以把文章标题中的英文单词的首字母变成大写的函数
- ASP中令人震撼的Debug类(VBScript)
- ASP中一个字符串处理类(VBScript)
- ASP中一个字符串处理类(加强)(VBScript)
- ***用VS2003调试ASP的方法和体会***
- 推荐openssl专业论坛http://gdwzh.126.com
- openssl之BIO系列之1---抽象的IO接口