图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")%>&nbsp;</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

首页 上一页 1 2 3 4 5 6 7 下一页 尾页 4/7/7

相关论文