会员管理系统中会员类的实现(选择自 tigerlgf 的 Blog )

第一:数据库设计:(数据库为Access)

会员信息表user_info

字段	说明	类型(长度)	备注
Id	会员标识	自动编号	自增长
User_Name	用户名	文本
User_Password	密码	文本
Question	密码提示问题	文本
Answer	答案	文本
Name	称呼	文本
Sex	性别	文本
Birthday	出生年月	日期型
Region	地区	文本
City	城市	文本
Address	地址	文本
Phone	电话	文本
Email	e-mail	文本
Ciertified	是否认证	文本
CType	会员类型	文本
User_Grade	会员等级	文本

二:代码实现:
<%
dim Conn,connstring,dbfile
dbfile=server.MapPath("/Database/db.mdb")
set Conn = server.createobject("ADODB.Connection")
'connstring = "Provider=Microsoft.Jet.OLEDB.4.01;Data Source=" & dbfile
connstring = "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & dbfile
Conn.open connstring

'定义用户类
Class User_Info
dim ID,User_Name,User_Password,Question,Answer,Name,Sex,Birthday,Region,City,Address
dim Phone,Email,Ciertified,CType,User_Grade

'类初始化
Private Sub Class_Initialize
ID = 0
User_Name = ""
User_password = ""
Question = ""
Answer = ""
Name = ""
Sex = ""
Birthday = "1910-01-01"
Region = ""
City = ""
Address = ""
Phone = ""
Email = ""
Ciertified = "否"
CType = "普通会员"
User_Grade = "铜牌"
End Sub

'加载用户信息
Public Sub Load(ByVal UserName)
dim rs,sql
sql = "select * from User_Info Where User_Name='" & UserName & "'"
set rs =Conn.execute(sql)
if not (rs.bof and rs.eof) then
ID = rs("ID")
User_Name = rs("User_Name")
User_Password = rs("User_Password")
Question = rs("Question")
Answer = rs("Answer")
Name = rs("Name")
Sex = rs("Sex")
Birthday = rs("birthday")
Region = rs("Region")
City = rs("City")
Address = rs("Address")
Phone = rs("Phone")
Email = rs("Email")
Ciertified = rs("Ciertified")
CType = rs("CType")
User_Grade = rs("User_Grade")
end if
rs.close
set rs = Nothing
End Sub

'检测用户是否存在数据库中
'返回值:True存在,False不存在;
Public Function IsExist()
dim rs,sql,flag
sql = "SELECT * FROM User_Info Where User_Name='" & User_Name & "'"
Set rs = Conn.execute(sql)
if not (rs.bof and rs.eof ) then
flag = True
else
flag = False
end if
rs.close
set rs = Nothing
IsExist = flag
End Function

'登录时判断用户密码是否正确
'返回值:True正确,False返回
Public Function IsPassed()
dim rs,sql,Flag
if User_Name<>"" and User_Password<>"" then
sql = "select * from User_Info where User_Name='" & User_Name & "' and User_Password='" & Password & "'"
set rs = Conn.execute(sql)
if not (rs.bof and rs.eof ) then
Flag = True
else
Flag = False
end if
rs.close
set rs = Nothing
else
Flag = False
end if
IsPassed = Flag
End Function

'添加新用户
Public Function Add()
dim strSQL
if IsExist() = True then
Add = False
exit function
end if
if User_Name="" or User_Password="" or Question = "" or Answer = "" then
Add =False
exit function
end if
strSQL = "Insert into User_Info(User_Name,User_Password,Question,Answer,Name,Sex,Birthday,Region,City,Address,Phone,Email,Ciertified,CType,User_Grade)"
strSQL = strSQL & " Values('" & User_Name & "','"
strSQL = strSQL & User_Password & "',"
strSQL = strSQL & "'" & Question & "',"
strSQL = strSQL & "'" & Answer & "',"
strSQL = strSQL & "'" & Name & "',"
strSQL = strSQL & "'" & Sex & "',"
strSQL = strSQL & "#" & Birthday & "#,"
strSQL = strSQL & "'" & Region & "',"
strSQL = strSQL & "'" & City & "',"
strSQL = strSQL & "'" & Address & "',"
strSQL = strSQL & "'" & Phone & "',"
strSQL = strSQL & "'" & Email & "',"
strSQL = strSQL & "'" & Ciertified & "',"
strSQL = strSQL & "'" & CType & "',"
strSQL = strSQL & "'" & User_Grade & "')"
'response.write strSQL
Conn.Execute (strSQL)
Add = True
End Function

'用户修改资料
Public Sub Update()
dim strSQL
If ID = 0 then
exit sub
end if
strSQL = "Update User_Info set User_Password='" & User_Password & "'"
strSQL = strSQL & ",Question='" & Question & "'"
strSQL = strSQL & ",Answer='" & Answer & "'"
strSQL = strSQL & ",Birthday=#" & birthday & "#"
strSQL = strSQL & ",Sex='" & Sex & "'"
strSQL = strSQL & ",Region='" & Region & "'"
strSQL = strSQL & ",City='" & City & "'"
strSQL = strSQL & ",Address='" & Address & "'"
strSQL = strSQL & ",Phone='" & Phone & "'"
strSQL = strSQL & ",Email='" & Email & "'"
strSQL = strSQL & ",Ciertified='" & Ciertified & "'"
strSQL = strSQL & ",CType='" & CType & "'"
strSQL = strSQL & ",User_Grade='" & User_Grade & "'"
strSQL = strSQL & " where ID =" & ID
Conn.Execute(strSQL)
End Sub
'删除用户
Public Sub Delete()
dim strSQL
if IsExist = True then
strSQL = "Delete from User_Info where User_Name='" & User_Name & "'"
Conn.execute(strSQL)
ID = 0
end if
End Sub
'类终结
Private Sub Class_Terminate

End Sub
End Class
%>
不是很完善,请大家指点.

作者Blog：http://blog.csdn.net/tigerlgf/