图5-1用户登陆界面
点击提交后 后台将进入验证登录信息的“yanzhen.asp”程序进行验证主要代码：
<% userid=request("mima")
username=request("name")
zhenjianid=request("zenjianid")
session("zenjianid")=request("zenjianid")
set con=server.createobject("adodb.connection")
con.open "dsn=dd;uid=aa;pwd=aa"rs="select * from denglu where username='"&username&"'and userid='"&userid&"'and zhenjianid='"&zhenjianid&"'"
set s=con.execute(rs)
if s.eof then
response.write" 对不起! 用户名 或 密码错误 或者 你没有登录权限! 若你还没有注册请先注册!"
elseif username=""or userid=""or zhenjianid="" then
response.write"对不起! 你还没有输入你的资料"
else
response.redirect"all.htm"
end if %>
这里用到了 ASP的request对象和response对象，VBSCRIPT的条件语句。当输入的资料在表“denglu”中存在就验证成功导向all.html 网页。进入到此界面我们就可以看到作为一个普通用户有哪些权限。首先我们在普通用户中可以查看个人资料如图5-2
图5-2资料查看界面
在图4-2中就可以看到显示的信息与我们刚刚输入的信息是一致的。
因为在上面验证资料的时候我们用到session对象，比如“session("zenjianid")” 在这里我们就不用request对象来接收获取。我们就可以直接用session继承下来的值做变量来查询。主要代码如下：
<%s="select * from "&denglu&" where zhenjianid='"&session("zenjianid")&"'"
set rs=con.execute(s) %>
<td><%=rs("banji")%> </td>
图5-3创建部队
点击“创建”后就会显示成功。在这里创建一个部队是一个表的形式存在
因此必须在数据库创建一个表创建表的SQL代码是：
set objj=con.Execute("create table "&bname&"(id char(10),name char(10) ,email varchar(50),dianhua varchar(50),time varchar(50))")
set objs=con.execute("insert into banji values('"&bname&"','"&id&"','0','')")
用户更新
点击修改个人资料，可以修改自己的注册信息注册成功后如下图：
图5-4更新界面
你就会看到显示的信息跟你刚才输入的信息完全一致说明修改成功。在这里我们是对数据库中的两张表进行了更新。即“denglu”表和资料表。这样我们就既完成了对自己登录系统的资料做了修改 ，也对存储的个人信息做了修改。主要部分代码如下：
<% dname=request("dengluming")
sex=request("sex")
email=request("email")
----连接到数据库后就对所涉及的表做更新操作--------
set obj=con.execute("update denglu set username='"&dname&"',userid='"&password&"',zhenjianid='"&zjid&"'where zhenjianid='"&session("zenjianid")&"'") set obj=con.execute("update ziliao set name='"&xingming&"',mima='"&password&"',sex='"&a
