| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 520 人关注过本帖
标题:第一次写class,有点问题,请指教下!
只看楼主 加入收藏
dh2007
Rank: 1
等 级:新手上路
帖 子:228
专家分:0
注 册:2007-2-28
结帖率:0
收藏
 问题点数:0 回复次数:5 
第一次写class,有点问题,请指教下!

<!--#include file="conn.asp" -->
<!--#include file="Cls_InfSort.asp" -->
<%
set OperationSort=new InfSort
OperationSort.list="test"
OperationSort.FieldId="id"
OperationSort.FieldName="aaa"
OperationSort.FieldSn="bbb"

'OperationSort.add1()
set OperationSort=nothing
%>
我这样
OperationSort.list="test"
赋值给class的属性用问题吗

Microsoft VBScript 运行时错误 (0x800A01B6)
对象不支持此属性或方法: 'OperationSort.FieldId'
/web/cls/aaa.asp, 第 6 行

搜索更多相关主题的帖子: class 指教 
2007-07-06 11:43
dh2007
Rank: 1
等 级:新手上路
帖 子:228
专家分:0
注 册:2007-2-28
收藏
得分:0 

醉了!!!,没人吗


2007-07-06 13:24
阳光白雪
Rank: 7Rank: 7Rank: 7
等 级:贵宾
威 望:39
帖 子:2220
专家分:0
注 册:2005-11-18
收藏
得分:0 

[QUOTE]<%
class CFoo
private pvt

'属性写
public property let propName(v)
pvt = v
end property

'属性读
public property get propName()
PropName = pvt
end property
end class
dim obj
set obj = new CFoo
obj.propName = "属性值"
response.Write(obj.propName) '显示“属性值”
set obj = nothing
%>
可以看出属性值相当于是在私有成员变量与外界之间架了一座桥梁,使双方可以互相通信。
有人就会问属性跟公有成员变量一样,它的存在又有什么独立的意义呢?
1、可以在赋值的同时执行其它功能
如下代码,相当于同时为两个成员变量赋值
public property let propName(v)
pvt = v
另一个私有成员变量名 = "pvt 的值:" & v
end property
2、可以确定赋值范围
假如上例中的属性写改为如下:
public property let propName(v)
if Len(v) <= 5 then
pvt = v
end if
end property
执行 obj.propName = "个十百千万亿" 将不会为 pvt 赋值成功,因为该字符串的长度超过了 5。
3、可以将设定只读、只写属性
如上例中,假如我们将 let 函数去掉,调用 obj.propName = "属性值" 就会出错,因为这时候函数只可读。</body>[/QUOTE]


专注于WEB前端交互平台开发:[url=http://blog./]blog.[/url](富客户端技术(RIA)交流平台)
2007-07-06 14:14
dh2007
Rank: 1
等 级:新手上路
帖 子:228
专家分:0
注 册:2007-2-28
收藏
得分:0 
那如何直接从外部传参数到类的方法
set obj = new CFoo
obj.方法(参数,参数)
这样行吗????

2007-07-09 12:33
dh2007
Rank: 1
等 级:新手上路
帖 子:228
专家分:0
注 册:2007-2-28
收藏
得分:0 

asp class 能直接冲外部传递参数到类的方法吗
如:
set obj = new CFoo
obj.方法(参数,参数)
如果行,请具个例子示范下
谢谢了!


2007-07-17 10:42
yms123
Rank: 16Rank: 16Rank: 16Rank: 16
等 级:版主
威 望:209
帖 子:12488
专家分:19042
注 册:2004-7-17
收藏
得分:0 
<%
Class TestCls
Private Pvt
public property let propName(v)
pvt = v
end property

'属性读
public property get propName()
PropName = pvt
end property
Public Function getString(Name)
getString="Hello "&Name
End Function
End Class
Dim tObj
Set tObj=New TestCls
Response.Write tObj.getString("dh2007")
'注意:外部调用的内容(包括属性[变量]和方法[函数]等)在类里一定要声明Public关键字,否则是无法被外部调用的。
%>
2007-07-17 11:01
快速回复:第一次写class,有点问题,请指教下!
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.029651 second(s), 8 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved