广告：
网页制作参考
千千学园
雨路开发频道
雨路技术文档
技术问答
编程技术

作者： 整理

第一:数据库设计:(数据库为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
%>
不是很完善,请大家指点.