接下来是数据库对象模块
userinfo.asp
<%
Class UserInfo
'类属性
Private mUserName
Private mPassword
Private mAge
Private mSex
Private mRegDate
'封装过程
Private Sub ReadRecordSet(rsUInf)
mUserName=rsUInf("username")
mPassword=rsUInf("Password")
mSex=rsUInf("Sex")
mRegDate=rsUInf("RegDate")
End Sub
'公开过程
Public Sub Read(conn)
Dim rsUInf
Dim tSql
tSql="select * from [userinfo] where username='"&mUserName&"'"
rsUInf.Open tSql,conn,1,1
IF rsUInf.EOF Then
Read=False
Else
ReadRecordSet rsUInf
Read=True
End IF
rsUInf.Close
Set rsUInf=Nothing
End Sub
'属性过程
Public Property Let RegDate(vData)
mRegDate=vData
End Property
Public Property Get RegDate()
RegDate=mRegDate
End Property
Public Property Let Sex(vData)
mSex=vData
End Property
Public Property Get Sex()
Sex=mSex
End Property
Public Property Let Age(vData)
mAge=vData
End Property
Public Property Get Age()
Age=mAge
End Property
Public Property Let Password(vData)
mPassword=vData
End Property
Public Property Get Password()
Password=mPassword
End Property
Public Property Let UserName(vData)
mUserName=vData
End Property
Public Property Get UserName()
UserName=mUserName
End Property
End Class
%>
