ASP中的Class以及用法 |
|
| 作者：Yousp - 发布：2010-4-22 17:35:38 - 来源：无忧技术网 |
<p>在ASP中竟然可以使用Class这是以前任何参考书上，甚至是MS的VB帮助上都没有提到过的。有了Class的封装ASP岂不是非常的强大.</p>
<p>使用方法如下：</p>
<p>1. 定义一个类：<br />
class MyClass</p>
<p>Private Sub Class_Initialize()<br />
End Sub<br />
<br />
Private Sub Class_Terminal()<br />
End Sub<br />
<br />
end class</p>
<p>2. 定义一个方法<br />
class MyClass<br />
public function aMethod1()<br />
end function<br />
end class</p>
<p>3. 定义一个属性<br />
class MyClass<br />
private m_strName '' 这是一个私有成员<br />
public function aMethod1()<br />
end function</p>
<p>'' 非常好理解，Name为属性名<br />
'' 实际上属性为一个函数<br />
Public Property Get Name() <br />
Name = m_strName<br />
End Property</p>
<p>Public Property Let Name(vIn)<br />
m_strName = vIn<br />
End Property<br />
end class</p>
<p>以下是我写的一个测试程序：<br />
Class MyClass<br />
private m_Name<br />
public function Create()<br />
Response.Write "Hello World!"<br />
m_Name = "我的类"<br />
end function</p>
<p>public Property Get Name()<br />
Name = m_Name<br />
end property</p>
<p>public Property Let Name(Value)<br />
m_Name = Value<br />
end property<br />
End Class</p>
<p>Set myObj = new MyClass<br />
myObj.Create()<br />
Response.Write myObj.Name</p>
<p>myObj.Name = "世界你好"<br />
Response.Write myObj.Name</p>
<p><br />
这些原本是VB里边的东西，想不到在VBScript里头也可以用，可是为什么所有的参考书上都没提到呢？可能是我看书太少！:)<br />
</p> |
| 责任编辑：liqwei |
|
|
| 【打印本页】【关闭本页】【返回列表】 |
·上一篇：ADO技巧精华10则
·下一篇：ASP＋Access的安全隐患及对策 |
|
