标题:关于Properties
只看楼主
无诲今生
Rank: 8Rank: 8
来 自:桂林理工大学
等 级:蝙蝠侠
威 望:2
帖 子:373
专家分:726
注 册:2009-5-11
结帖率:93.48%
已结贴  问题点数:20 回复次数:2 
关于Properties
Properties这个不知它有哪些方面的作用,有谁知道的说说啊!
搜索更多相关主题的帖子: Properties 
2009-09-09 23:28
yms123
Rank: 16Rank: 16Rank: 16Rank: 16
等 级:版主
威 望:209
帖 子:12488
专家分:19042
注 册:2004-7-17
得分:20 
VBScript类里面的Properties属性过程?
属性过程的作用用在验证输入上
比如不用Class你的用户注册页面要验证
IF Request("UserName")<>"" Then
   Response.Write "用户名不能为空"
End IF
IF Request("IDCard")<>"" Then
   Response.Write "身份证不能为空"
End IF
。。。。。
等等
而在你的用户信息修改页面又得写一次,如果用属性过程
Class UserInfo
   Private mUserName
   Private mIDCard
   Private mErrMag
     Public Property Get ErrMsg()  
        ErrMsg=mErrMsg
     End Property   
     Public Property Let mUserName(vData)
        if vData="" Then
           mErrMsg="用户名不能为空"
        Else
           mUserName=vData
        End IF
     End Property
     Public Property Get UserName()
        UserName=mUserName
     End Property  
     Public Property Let IDCard(vData)
        IF vData="" Then
           mErrMsg="密码不能为空"
        Else
           mIDCard=vData
        End IF
     End Property
     Public Property Get IDCard()  
        IDCard=mIDCard  
     End Property  
End Class
只在Class里写一次输入验证

其他地方
Dim oUser
Set oUser=New UserInfo
oUser.UserName=Request("UserName")
oUser.IDCard=Request("IDCard")
IF oUser.ErrMsg<>"" Then
   Response.Write oUser.ErrMsg
End IF
只用写极短的代码就可以完成验证而无需重复写相同的输入验证。
2009-09-10 12:07
无诲今生
Rank: 8Rank: 8
来 自:桂林理工大学
等 级:蝙蝠侠
威 望:2
帖 子:373
专家分:726
注 册:2009-5-11
得分:0 
谢谢版主了!

顺境逆境切莫止境,得意失意切莫在意。
2009-09-11 12:48



参与讨论请移步原网站贴子:https://bbs.bccn.net/thread-285272-1-1.html




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

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