基于WEB的人事管理系统的开发与实现

MM_rsUser.Open　　　　　　                    //执行
If Not MM_rsUser.EOF Or Not MM_rsUser.BOF Then
Session("MM_Username") = MM_valUsername
response.Cookies("ID") = MM_rsUser("ID")
 response.Cookies("UserName") = MM_rsUser("UserName")
//缓存用户名和密码
If (MM_fldUserAuthorization <> "") Then
Session("MM_UserAuthorization") = CStr(MM_rsUser.Fields.Item(MM_fldUserAuthorization).Value)
//缓存登录权限
Else
Session("MM_UserAuthorization") = ""        //权限的设置
End If
if CStr(Request.QueryString("accessdenied")) <> "" And false Then
MM_redirectLoginSuccess = Request.QueryString("accessdenied")
End If                                 //失败操作
MM_rsUser.Close　                          //关闭数据库连接对象
Response.Redirect(MM_redirectLoginSuccess) //登录成功进主页面
End If
MM_rsUser.Close
Response.Redirect(MM_redirectLoginFailed)  //登录失败到登录页面
End If
5.2 用户权限模块：
如下图5.3是用户权限模块在这里管理员可以新增加用户名，设置用户名的权限和删除普通用户。
增加用户和修改用户权限代码如下：
UserID = request.form("UserID")   //对前台userid的数据收集
Set MM_editCmd = Server.CreateObject("ADODB.Command")
MM_editCmd.ActiveConnection = MM_EmpMain_STRING  //连接数据库
UserName = request.form("UserName")  //取前台界面数据信息
…
HolInfo = request.form("HolInfo")
 
图5.3系统界面
 PayInfo = request.form("PayInfo")
UserID = request.form("UserID") 

if trim(UserID) = "" then
MM_editQuery="insert into UserRight(UserName, password, payList, HolList, EmpList, overview, GeneralInfo, MarrInfo, EduInfo, EvenWork, Family, Work, HpInfo, HolInfo, PayInfo) " &_values  ('"&UserName&"', '"&password&"', '"&payList&"', '"&HolList&"', '"&EmpList&"', '"&overview&"', '"&General&"', '"&MarrInfo&"', '"&EduInfo&"', '"&EvenWork&"', '"&Family&"', '"&Work&"', '"&HpInfo&"', '"&HolInfo&"', '"&PayInfo&"')"
//把权限信息数据插入数据库中的UserRight表
else
MM_editQuery = "Update UserRight set " &_
                  "payList = '"& payList  &"',"  &_

                  "HolList = '"& HolList  &"',"  &_
                   "EmpList = '"& EmpList  &"',"  &_
                   "overview= '"& overview &"',"  &_
      "Generalinfo= '"& General &"',"  &_
      "MarrInfo= '"& MarrInfo &"',"  &_
      "EduInfo= '"& EduInfo &"',"  &_
      "EvenWork= '"& EvenWork &"',"  &_
      "Family= '"& Family &"',"  &_

      "Work= '"& Work &"',"  &_
      "HpInfo= '"& HpInfo &"',"  &_
      "HolInfo= '"& HolInfo &"',"  &_
      "PayInfo= '"& PayInfo &"'"  &_
      "where id=" & UserID &""
      isEdit = "1"
end if
MM_editCmd.CommandText = MM_editQuery　　｀
MM_editCmd.Execute　　//语句执行
5.3 修改用户密码模块
     用户密码修改模块如图６.４是提供登陆用户密码修改功能。
 
图5.4 密码修改模块转贴于 酷文网-论文下载中心 http://www.coolwen.net


共9页: 上一页 [1] [2] [3] [4] [5] [6] 7 [8] [9] 下一页

网摘收藏:

上一篇：基于WEB的网上购物系统的开发与设计
下一篇：基于jsp的Web通用考试系统的开发与设计

 -> 在百度中搜索：基于WEB的人事管理系统的开发与实现
 -> 在Google中搜索：基于WEB的人事管理系统的开发与实现