1.数据库的建立(查询分析器):
create database member
go
use member
go
create table user(
u_id int identity not null,
u_user varchar(50),
u_code varchar(50)
u_vip int,
u_admin int
)
go
create table info(
i_uid int identity not null,
i_name varchar(50),
i_sex varchar(5),
i_age int
)
2.页面制作
首页登陆框:
<form id="form1" name="form1" method="post" action="index.asp?act=login">
<table class="t" align="center" cellspacing="0">
<tr>
<td>
用户名:<input name="f_user" type="text" id="f_user" />
密 码:<input name="f_code" type="password" id="f_code" />
<input type="submit" name="Submit" value="登录" />
<input type="reset" name="Submit2" value="重置表单" />
<a href="index.asp?act=reg">注册</a>
</td>
</tr>
</table>
</form>
注册页面:
<form id="form2" name="form2" method="post" action="index.asp?act=addreg">
<table class="t" align="center" cellspacing="0">
<tr>
<td colspan="3">请在下面填写您的注册资料,红色<span class="STYLE1">*</span>号所标示的选项为必填项</td>
</tr>
<tr>
<td align="right">用户名:</td>
<td align="left"><input name="f_user" type="text" id="f_user" /></td>
<td align="left"><span class="STYLE1">*</span></td>
<td align="left"><a href="index.asp?act=check">可用?</a></td>
</tr>
<tr>
<td align="right">密码:</td>
<td align="left"><input name="f_code" type="password" id="f_code" /></td>
<td align="left"><span class="STYLE1">*</span></td>
</tr>
<tr>
<td align="right">姓名:</td>
<td align="left"><input name="f_name" type="text" id="f_name" /></td>
<td align="left"><span class="STYLE1">*</span></td>
</tr>
<tr>
<td align="right">性别:</td>
<td align="left">
<select name="f_sex" id="f_sex">
<option value="男" selected="selected">男</option>
<option value="女">女</option>
</select>
</td>
<td align="left"><span class="STYLE1">*</span></td>
</tr>
<tr>
<td align="right">年龄:</td>
<td align="left"><input name="f_age" type="text" id="f_age" size="8" /></td>
<td align="left"><span class="STYLE1">*</span></td>
</tr>
<tr>
<td colspan="3" align="center">
<input type="submit" name="Submit" value="提交注册资料" />
<input type="reset" name="Submit2" value="重置表单" />
<a href="index.asp">登陆</a>
</td>
</tr>
</table>
</form>
3.写入数据库:
定义数据库连接:
dim conn,connstr
Set conn = Server.CreateObject("ADODB.Connection")'定义了一个adodb数据库连接组件
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("data/merber.mdb")
'connstr="DRIVER=Driver do Microsoft Access (*.mdb);UID=admin;PWD=;DBQ="&Server.MapPath("data/merber.mdb")
conn.Open connstr '连接了数据库
sub login()
exec="select * from [user] where [u_user]='"&username&"' and [u_code]='"&userpwd&"'"
rss.open exec,conn,1,1
if rss.recordcount>0 then
'session("user")=rss("u_user")
isadmin=rss("u_admin")
rss.close
call table("登陆成功,所有会员列表如下:","")
'用这个session变量表示用户是否已经登陆session("acc")=true
call adminpage()
else
rss.close
call table("用户名或密码错误,登陆不成功","返回")
end if
end sub
sub addreg()
if username="" or userpwd="" or fname="" or fsex="" or fage="" then
call table("请完成表单,注*为必填项,请点击后退按钮返回上一页!","")
response.end
end if
if checkcount>0 then
exec="select * from [user]"
rss.open exec,conn,1,3
rss.addnew
rss("u_user")=username
rss("u_code")=userpwd
rss("u_vip")=0
rss("u_admin")=0
rss.update
rss.close
'获取刚才插入数据的自动编号字段值,即u_id字段的值
set rst=conn.execute("select @@identity as uid")
uid=rst("uid")
exec="select * from [info]"
rss.open exec,conn,1,3
rss.addnew
rss("i_uid")=uid
rss("i_name")=fname
rss("i_sex")=fsex
rss("i_age")=fage
rss.update
rss.close
end if
end sub
sub checkuser()
exec="select * from [user] where u_user='"&username&"'"
rss.open exec,conn,1,1
checkcount=rss.recordcount
rss.close
call rssclose()
if checkcount>0 then
call table("用户名:"&username&"已被占用,请点击后退按钮返回上一页!","")
else
call table("用户名:"&username&"可用,请点击后退按钮返回上一页!","")
end if
response.end
end sub
4.管理页面: