zuozhe varchar 否 10
neirong varchar 否 50
zhuti varchar 是 20
shijian datetime 是 8
战友录系统的实现
数据库的连接
设置数据库的身份验证模式
步骤为；打开sql企业管理器→右键单击控制台→选择属性→单击安全性→选择sql身份验证；另外还要新建一个登陆用户，这里直接用的系统帐号sa。
设置数据源
打开控制面板→选择管理工具→打开选择数据源→选择系统dsn→点击添加→选择server sql→设置数据源名（这里是dd）和设置服务器为(local) →在下一步中→选择使用用户输入登陆ID和密码的 SQL身份验证在下面输入登陆ID和密码→在下一步中选择更改默认数据库，选择你要连接的数据库（dd）→最后单击完成。你可以单击测试，如果显示测试成功，表明你已经建好了数据源，否则表示你在建的过程中设置错了值。
编写代码
这一步主要是在需要使用数据库的页面在程序头部编写连接代码，具体代码如下：
<%set conn=server.createobject("adodb.connection")
conn.open "dsn=dd;uid=sa;pwd=sa"%>
普通用户模块
用户登陆模块
当我们点击“用户登录”并输入你的登录信息如图5-1所示
图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