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