行政单位管理信息系统的设计与实现

行验证。

首先判断输入的用户编号和密码是否为空，如果是空，则显示“请输入用户名或密码”的提示信息，提示用户输入信息。

当用户编号和密码都不为空时，则到“address2.mdb”数据库的表中查询对应的记录，如果找到，则成功进入主界面，否则出现报错的提示信息，要求重新输入信息。

当输入的信息完全正确时，则进入主界面。

系统所有使用人员，进入系统首先进入登录界面，进行身份认证，系统登录界面如下图5-1所示：图5-1 用户登录界面管理员输入用户名和密码之后，选择“系统管理员”选项，单击“登陆”按钮，即进入了管理员登陆首页，管理员首页界面如下图5-2所示：图5-2 管理员主界面访客不需输入用户名和密码，直接选择“访客”选项，单击“登陆”按钮，即进入了访客登陆首页，访客首页界面如下图5-3所示：图5-3 访客主界面(3)“用户登录”代码：<table width="611" border="1" align="center" bordercolor="#FF0000"><tr><td width="600" height="150" bordercolor="#F6EED9"><form name="form1" method="post" action=""><p align="center"><strong> 用户登陆：</strong></p><p align="center"><strong>用户名：<input type="text" name="textfield" /></strong></p><p align="center"><strong><label>密码：<input type="password" name="textfield2" /></label></strong></p><p align="center"><input type="radio" name="user_type" value="admin" >系统管理员<input type="radio" name="user_type" value="teacher" >教职工<input type="radio" name="user_type" value="guest" />行登录。

如下图5-4所示：图5-4 “添加用户”界面（3）“用户添加”代码：<center><table width="35%" border="1" bordercolor="#009999"><form name="form1" method="post" action="tianjia.asp"><tr bgcolor="#006699"><td >用户名</td><td ><input type="text" name="user" size=10></td></tr><tr bgcolor="#006699"><td >密码</td><td bgcolor=" "><input type="text" name="password" size=10></td> </tr><tr bgcolor="#006699"><td >电话号码</td><td ><input type="text" name="tel" size=11></td></tr><tr bgcolor="#006699"><td ></td><td ><input type="submit" value=" 确定"></td></tr></form></table></center><%On Error Resume NextIf Trim(Request("user"))<>"" and Trim(Request("password"))<>""Thendim user,password,teluser=request.Form("user")password=request.Form("password")tel=request.Form("tel")dim rs,strSqlset rs=Server.CreateObject("ADODB.Recordset")strsql="insert into teacher (user,password,tel) values('"&user&"','"&password&"','"&tel&"')"rs.open strsql,db,1,1response.Write"您成功添加了下面的用户"%>5.2.2 用户删除设计删除用户窗体是用于对已存在的用户的密码进行修改。

（1）模块实现在删除界面中，输入需要删除的用户名，单击“确定”按钮，即可将所选择的用户信息进行删除。

如下图5-5所示：图5-5 “用户删除”界面(2) “删除用户”代码：If Trim(Request("user"))<>"" ThenDim strSqlstrSql ="Delete From teacher Where user='" & Request("user") & "'"Dim numberdb.Execute strSql,numberIf number=0 ThenResponse.Write "用户名输入错误，找不到记录"ElseResponse.Write "<p align='center'>共有" & number & "条数据被删除"response.Write "<br>"response.Write "请确认:"&request("user")&"用户已经被删除"End IfEnd If5.2.3 密码修改设计密码修改是用来修改个人登录密码。

（1）模块实现当用户需要对登录密码进行修改时，进入“密码修改”模块，输入用户旧密码和重新设置的新密码及确认密码，单击“确定”按钮，即可成功修改密码。

如下图5-6所示：图5-6“密码修改”界面（2）“修改密码”代码：<%password2=request.Form("password3")passwordnew2=request.Form("passwordnew3")passwordnew22=request.Form("passwordnew33")if password2<>"" and passwordnew2<>"" and passwordnew22<>"" then if password1=password2 and passwordnew2<>password2 andpasswordnew22=passwordnew2 thenSet rs=Server.CreateObject("ADODB.Recordset")strSql="update admin set password='"&passwordnew2&"'where user='"&user1&"'"rs.open strsql,db,1,1response.Write "修改成功,请牢记您的新密码："&passwordnew2 else response.Write "输入有误"end ifend if%>5.2.4 用户查看设计“用户查看”用来查看普通用户信息。

(1) 模块设计当管理员需要查看普通用户信息时，单击“查看用户”，即显示所有普通用户信息，如下图5-7所示：图5-7 “查看用户”界面(2)“用户查看”代码<%Dim rs,strSqlSet rs=Server.CreateObject("ADODB.Recordset")strSql="Select * From teacher "rs.open strsql,db,1,1%><table width="297" border="1" bordercolor="#009999"><% do while not rs.eof %><tr><td width="90" height="25" align="center"valign="middle"><%=rs("user")%></td><td width="90" height="25" align="center"valign="middle"><%=rs("password")%></td><td width="100" height="25" align="center"valign="middle"><%=rs("tel")%></td></tr><%rs.movenextloop%>5.3 人员信息管理行政人员信息管理包括人员信息的录入、修改、删除等功能。