ASP会员管理

来源：互联网发布：eclipse java 界面编辑：程序博客网时间：2024/04/28 22:20

1.数据库的建立(查询分析器)：

create database member

use member

create table user(

u_id int identity not null,

u_user varchar(50),

u_code varchar(50)

u_vip int,

u_admin int

)

create table info(

i_uid int identity not null,

i_name varchar(50),

i_sex varchar(5),

i_age int

)

2.页面制作

首页登陆框：

注册页面：
<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.管理页面：