会员管理系统中会员类的实现

第一:数据库设计:(数据库为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 = "普通会员"