求高手写一个“类”,急!在线等!!!!!!!
CbbsUser
Const USER_STATE_LOGOUT = 0 ‘ 用户未登录
Const USER_STATE_ONLINE = 1 ‘ 用户已登陆
Const USER_SEX_FEMALE = 0 ‘ 女性
Const USER_SEX_MALE = 1 ‘ 男性
Const USER_SEX_SECRET = 2 ‘ 保密
Class CbbsUser
‘ States
Dim m_resUsers ‘ 查询用户时使用
‘ 查询用户
Public Function AttachUsers(vArgs)
End Function
‘ 登陆
Public Function Login(strLoginID, strPassword)
End Function
‘ 注册新用户。
Public Function New(strLoginID, strPassword, strQuestion, strAnswer, strEmail)
End Function
‘ 得到密码,功能保留。
Public Function GetPasswordByID(strLoginID, strAnswer)
End Function
Public Function GetPasswordByEmail(strEmail, strAnswer)
End Function
‘检测账号是否可以注册
Const ID_OK 1
Const EMAIL_OK 2
Const ALL_OK 3
Public Function CheckID(strLoginID, strEmail)
End Function
End Class
实现简介:
返回的纪录集包含的字段为:
字段名 含义
ID 用户ID
LOGIN_ID 登陆ID
PASSWORD 登陆密码
SEX 性别
STATE 用户状态
QUESTION 密码问题
ANSWER 密码答案
EMAIL 邮件地址
SAYS 发言次数
LAST_IP 最后登陆IP
m_resUsers 为记录集,当用户调用AttachUsers的时候获得。
AttachUsers(vArgs) 函数的参数有三种形式,数字代表用户ID
字符串,代表查询语句(仅WHERE字句)
根据不同的情况设置不同的查询,得到结果,返回给记录集或直接设置变量。
Login 给出用户名,密码判断能否登陆,登录成功则设置各成员变量。
New 当用户调用时将当前成员变量加入到数据库中。
CheckID 检查ID申请的ID是否有效。
哪位高手给写写呀!先谢谢了!!!!