当前位置: 首页 > 图文教程 > 网络编程 > ASP > ASP中的面向对象类

ASP
深入讲解 ASP+ 验证(一)
深入讲解 ASP+ 验证(二)
深入讲解 ASP+ 验证(三)
深入讲解 ASP+ 验证(四)
通过事例学习.net的WebForms技术(一)
通过事例学习.net的WebForms技术(二)
StripNonNumeric函数源程序
通过事例学习.net的WebForms技术(三)
通过事例学习.net的WebForms技术(四)
将HTML表单数据存储为XML格式 - 1
将HTML表单数据存储为XML格式 - 2
将HTML表单数据存储为XML格式 - 3
asp生日自动提醒小程式
WEB页面简单进度记时器
在主页中编制音频播放器
图片数据的存和取示例
用ASPMail组件实现E_mail自动反馈
读取目录下的所有文件(源码)
制作我们自己的Ebay(拍卖系统)(1)
制作我们自己的Ebay(拍卖系统)(2)

ASP中的面向对象类


出处:互联网   整理: 软晨网(RuanChen.com)   发布: 2009-09-13   浏览: 154 ::
收藏到网摘: n/a

大二给公司做的报表系统现在我打算重新修改优化一下,用的是ASP,用面向对象就得有类,还好VBS 支持

复制代码 代码如下:

<%
class MyClass
Dim var '公共变量必须使用Dim
Private var2'私有变量不需要
Sub sub1
response.write var2
End Sub
Private Sub sub2
response.write var
End Sub
Sub SetVar(v)
var2=v
End Sub
end class
Set cls = new MyClass'产生对象用set
cls.SetVar("asd")
cls.var = 1
cls.sub1'封装性比较强,不会提示没有权限,直接说不支持属性或方法
%>