求高手写一个“类”，急！在线等！！！！！！！

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是否有效。



哪位高手给写写呀！先谢谢了！！！！