|
copyright paper51.com
5 系统实现 内容来自论文无忧网 www.paper51.com 5.1 登录模块 copyright paper51.com http://www.paper51.com 图5-1 员工登录模块 内容来自论文无忧网 www.paper51.com 系统的登录模块分为员工端的和管理员端，以员工端的登录模块为例。当员工进入员工登录界面输入用户名和密码后，后台处理程序便进行验证。若成功则进入员工主界面，若输入信息有误则显示出错信息，提醒登录者重新输入正确的帐号和密码。关键代码如下： paper51.com <% 内容来自www.paper51.com setcon=server.createobject("adodb.connection") copyright paper51.com con.open"dsn=data;uid=sa;pwd=" copyright paper51.com
xingming=request("xingming") http://www.paper51.com session("xingming")=request("xingming") http://www.paper51.com
gonghao=request("gonghao") 内容来自论文无忧网 www.paper51.com session("gonghao")=request("gonghao") 内容来自www.paper51.com mima=request("mima") 内容来自论文无忧网 www.paper51.com
strsq="select xingming,gonghao,mima from gerenxinxiwhere xingming='"&xingming&" and gonghao ='"&gonghao&"''and mima ='"&mima&"' " paper51.com set rs = con.execute(strsql) paper51.com if rs.eof then http://www.paper51.com response.write"用户帐号或者密码错误" paper51.com %> 内容来自www.paper51.com <p><a href="yuangongdenglu.asp">返回上页</a></p> http://www.paper51.com <% http://www.paper51.com else http://www.paper51.com
response.redirect"yuangong0.htm" 内容来自www.paper51.com end if copyright paper51.com %> 内容来自论文无忧网 www.paper51.com
其中 内容来自www.paper51.com
<% setcon=server.createobject("adodb.connection") http://www.paper51.com con.open"dsn=data;uid=sa;pwd=" 内容来自www.paper51.com 为连接数据库的语句，利用request获取变量。利用if语句来判断输入是否为空或输入错误。 内容来自论文无忧网 www.paper51.com 应用 内容来自www.paper51.com strsql = "select xingming,gonghao,mima fromgerenxinxi where xingming='"&xingming&"'and mima='"&mima&"' " copyright paper51.com
set rs = con.execute(strsql) copyright paper51.com
这段程序来进行数据库的操作。其中的select为 数据库查询语句，在gerenxinxi表里相应的xingming,gonghao,mima字段中分别查询变量名为xingming,mima的变量值是否在xingming,gonghao,mima字段中存在。若存在则跳转至yuangong0.htm,否则显示“用户账号或者密码有误”。 paper51.com 5.2 信息管理模块 http://www.paper51.com 信息管理模块分为员工端和管理员端的。 http://www.paper51.com 5.2.1员工信息管理模块 内容来自论文无忧网 www.paper51.com 员工端信息管理模块中分为个人信息查看，修改密码，同事信息查看三个子模块。 copyright paper51.com
内容来自www.paper51.com
图5-2 员工端信息管理模块 内容来自论文无忧网 www.paper51.com 个人信息查看子模块界面如下： 内容来自www.paper51.com 内容来自论文无忧网 www.paper51.com 图5-3 个人信息查看子模块 paper51.com 在代码实现上，用session函数来继承在员工登陆后台处理程序的session函数来对应，以此来确定登陆员工的信息。关键代码入下： 内容来自论文无忧网 www.paper51.com <% 内容来自www.paper51.com setcon=server.createobject("adodb.connection") http://www.paper51.com
con.open"dsn=data;uid=sa;pwd=" 内容来自www.paper51.com s="select * from gerenxinxi wherexingming='"&session("xingming")&"'" http://www.paper51.com set rs=con.execute(s) 内容来自论文无忧网 www.paper51.com %> paper51.com <tablewidth="75%" border="1"> copyright paper51.com <tr> <td>姓名</td><td>工号</td> <td>性别</td><td>电话</td><td>部门</td><td>职位</td><td>E-MAIL</td></tr> copyright paper51.com <% http://www.paper51.com
if not rs.eof then 内容来自论文无忧网 www.paper51.com %> 内容来自论文无忧网 www.paper51.com <tr><td><%=rs("xingming")%> </td><td><%=rs("gonghao")%> </td><td><%=rs("xingbie")%> </td><td><%=rs("phone")%> </td><td><%=rs("bumenming")%> </td> <td><%=rs("zhiwei")%> </td><td><%=rs("email")%></td></tr> 内容来自www.paper51.com
<% 内容来自论文无忧网 www.paper51.com else http://www.paper51.com
response.write "q" paper51.com end if 内容来自www.paper51.com %> 内容来自论文无忧网 www.paper51.com 员工修改密码子模块中，先要求员工输入现在的密码，提交成功后进入下个页面，输入两次新密码，即修改成功。 内容来自www.paper51.com
http://www.paper51.com 图5-4 修改密码 内容来自www.paper51.com 当员工输入新密码后，即使用 copyright paper51.com sql="update gerenxinxi setmima='"&xinmima&"' wheremima='"&session("mima")&"'" 内容来自论文无忧网 www.paper51.com
这条SQL语句将新的密码插入对应的数据库中，关键代码入下。 内容来自论文无忧网 www.paper51.com
<% 内容来自www.paper51.com setcon=server.createobject("adodb.connection") paper51.com con.open "dsn=data;uid=sa;pwd=" 内容来自论文无忧网 www.paper51.com xinmima=request("xinmima") http://www.paper51.com querenxinmima=request("querenxinmima") http://www.paper51.com sql="updategerenxinxi set mima='"&xinmima&"' wheremima='"&session("mima")&"'" 内容来自www.paper51.com setrs=con.execute(sql) 内容来自www.paper51.com response.Write"修改成功" 内容来自论文无忧网 www.paper51.com endif 内容来自论文无忧网 www.paper51.com
%> 内容来自www.paper51.com
|