关于Properties

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
只用写极短的代码就可以完成验证而无需重复写相同的输入验证。