当前位置: 首页 > 图文教程 > 网络编程 > ASP > ASP开发中的(VBScript)类基础学习

ASP
Access 2000 数据库 80 万记录通用快速分页类
Microsoft JET Database Engine 错误 ''80004005'' 未指定的错误的完美解决方法
收藏的ASP常用的函数集
asp分页的一个类
ASP开发网页牢记注意事项
ASP下操作Excel技术总结分析
ASP数据岛操作类
ASP经典分页类
asp论坛在线人数统计研究
ASP调用SQL SERVER存储程序
asp输出bmp
ASP连接数据库的全能代码
ASP面向对象编程探讨及比较
web文件管理器的后续开发
一小偷类!!有兴趣的可以看看
利用ASP实现事务处理的方法
大数量查询分页显示 微软的解决办法
如何把ASP编写成DLL
asp实现树型结构
超级ASP大分页_我的类容我做主

No. « 56 57 58 59 »

技术文章搜索

关键字

ASP开发中的(VBScript)类基础学习

出处:互联网   整理: 软晨网（RuanChen.com）   发布: 2009-08-14   浏览: 208 ::
收藏到网摘: n/a

关于ASP的(VBScript)类，首先ASP的(VBScript)类是由事件和方法(它们就是构成类的成员了)构成的。

在 Class 块中，成员通过相应的声明语句被声明为 Private(私有成员，只能在类内部调用) 或 Public(公有成员，可以在类内外部调用) 。被声明为 Private 的将只在 Class 块内是可见的。被声明为 Public 不仅在 Class 块的内部是可见的，对 Class 块之外的代码也是可见的。没有使用 Private 或 Public 明确声明的被默认为 Public。在类的块内部被声明为 Public 的过程(Sub 或 Function)将成为类的方法。Public 变量将成为类的属性，同使用 Property Get、Property Let 和 Property Set 显式声明的属性一样。类的缺省属性和方法是在它们的声明部分用 Default 关键字指定的。

下面我们来看一个例子

以下为引用的内容：

<script language=vbscript runat=server> 

Class myClass 
'//----声明（声明就是定义）myClass类的类内部（私有的[Private]）变量 
Private strAuthor 
Private strVersion 
Private strExample 

'//---------------------------定义类的事件-------------------------------// 
'//----Class_Initialize()是类的初始化事件，只要一开始使用该类，首先会触发该部分的执行，下面我们会在该成员中初始化该类的作者和版本以及在屏幕上显示一下该类已经开始了 

Private Sub Class_Initialize() 
strAuthor = "思源" 
strVersion = "1.0" 
Response.Write "<br>myClass开始了<br>" 
End Sub 
'//----Class_Terminate()是类的结束事件，只要一退出该类，就会触发该事件，下面我们会该事件中设定退出该类时会在屏幕上显示该类已结束了。 

Private Sub Class_Terminate() 
Response.Write "<br>myClass结束了<br>" 
End Sub 

'//---------------------------用户自己定义的方法-------------------------------// 

'//----该方法返回一个版本信息 

Public Sub Information() 
Response.Write "<br>Coding By <a href='[email protected]'>Maxid_Zen</a> @ 

<a href='http://www.design60s.com'>www.design60s.com</a>.<br>" 
End Sub 

'//---------------------------定义类的输出属性-------------------------------// 

'//----定类的属性，该属性是让用户初始化strExapmle变量 

Public Property Let setExapmle(ByVal strVar) 
strExapmle = strVar 
End Property 

'//---------------------------定义类的输出属性-------------------------------// 

'//----定义类的属性，该属性是返回一个版本号 

Public Property Get Version 
Version = strVersion 
End Property 

'//----定义类的属性，该属性是返回该类的作者号 

Public Property Get Author 
Author = strAuthor 
End Property 

'//----定义类的属性，该属性是返回一个版本号 

Public Property Get Exapmle 
Exapmle = strExapmle 
End Property 

End Class 

</script> 
<% 

'//-------这里是使用该类的例子 

Dim oneNewClass 

Set oneNewClass = New myClass 

Response.Write "作者：" & oneNewClass.Author & "<br>" 
Response.Write "版本：" & oneNewClass.Version & "<br>" 

oneNewClass.setExapmle = "这是一个简单类的例子" 

Response.Write "用户自定义：" & oneNewClass.Exapmle & "<br>" 

oneNewClass.Information 

Set oneNewClass = Nothing 

%>

ASP中的Session本身是可以储存对象的，它可以保存基本变量，数组，自动化对象(Automation Object)等，但在储存自定义类的对象时会碰到问题。

　　如下面的代码：

以下为引用的内容：

<%
If isempty(Session("node")) Then Set Session("node")=New ListNode
Set n=Session("node")
Response.Write n.Content
%>

还是上面的ListNode这个类，这段代码意图在一个用户会话中只保留一个ListNode的对 象。所以在用户第一次访问该网页时，会生成ListNode的一个对象，并保存在Session("node")中;后面访问该网页时，因为 Session("node")不为空了，所以不会生成一个新的对象，而是到 Session("node")中取出保存的对象。

　　理论上应该也会输出100，但是问题来了，ASP一直会报错：

　　Microsoft VBScript runtime error '800a01b6'

　　Object doesn't support this property or method: 'n.Content'

　　用n.Type也会出错。同样的代码翻译成PHP，运行却是可以通过的。为什么?

个人分析下来，认为Session可以保存对象是没错，只是VBScript中类型转换的机制太 弱，而且没有显式的强制类型转换供用户使用，无法将 Session("node")正确转换为ListNode类型。因为是自定义的类，我们只能在每个页面中都出现类的定义语句，这样在ASP看来，每次读 取这个页面时，ListNode类都是一个新类，所以就不认得Session中的这个类的对象了。

结论：尽量不要想到用Session或Application来存储ASP中自定义类的对象。如果 确实需要，可以考虑用COM来编写类，然后在VBScript中用：Set Session("obj") = Server.CreateObject("YourApp.YourClass")来创建一个对象，然后即可实现上面预想的功能了。