c_wai_chuli.asp

本系统其主要宗旨是让公司管理更轻松

<!--#include file="fun/conn.asp" -->
<% 

webchuli=cnshu(Trim(Request.QueryString("chuli")),20,1,"处理类型",2)
select case webchuli
'/////////////////////////////////////////////////////////////////////////////////////////////////
case "reg"
uname=cnshu(Trim(Request.Form("uname")),20,2,"真实姓名",2)
ubname=cnshu(Trim(Request.Form("ubname")),20,2,"平台登陆别名",2)
upass=cnshu(Trim(Request.Form("upass")),20,4,"平台登陆密码",2)
uzhiwei=cnshu(Trim(Request.Form("myzhiwei_text")),20,1,"录入职位",2)
un=cnshu(Trim(Request.Form("un")),1,1,"性别",1)
udate=cnshu(Trim(Request.Form("udate")),10,8,"出生年月日",2)
udianhua=cnshu(Trim(Request.Form("udianhua")),20,1,"联系电话",2)
ushouji=cnshu(Trim(Request.Form("ushouji")),20,1,"联系手机",2)
udizhi=cnshu(Trim(Request.Form("udizhi")),60,2,"联系地址",2)
uzhengjian=cnshu(Trim(Request.Form("uzhengjian")),20,2,"证件号码",2)
ujie=cnshu(Trim(Request.Form("ujie")),500,2,"个人简介",2)

set rs= Server.CreateObject("adodb.recordset")
rs.open ("select * from nnt_user where u_bname='"&ubname&"'  "),conn,3,3
'别名不能重复 真名可以
if not rs.eof then call cnerror("对不起，此登陆别名已经被其他用户使用，请返回修改！",0)
rs.addnew
rs("u_name")=uname
rs("u_bname")=ubname
rs("u_pass")=boo_md5(upass)
rs("u_zhiwei")=uzhiwei

rs("u_xinxi")=un&"||@@||"&udate&"||@@||"&udianhua&"||@@||"&ushouji&"||@@||"&udizhi&"||@@||"&uzhengjian&"||@@||"&ujie&"||@@||"
rs("u_bei")="|@|1|@|"&now()&"|@|"&uname&"资料进入本公司备用人才库。[|@@|]"
rs.update
rs.close
set rs=nothing


call cnerror("恭喜您 "&uname&"，您的信息已经录入并放进公司人才库，等待审核部门通过。","index.asp")

'/////////////////////////////////////////////////////////////////////////////////////////////////////////
case "login"
myname=cnshu(Trim(Request.Form("myname")),20,4,"登陆别名",2)
mypass=cnshu(Trim(Request.Form("mypass")),20,4,"登陆密码",2)

'验证用户名
set rs= Server.CreateObject("adodb.recordset")
rs.open ("select * from nnt_user where u_bname='"&myname&"' and u_zhuangtai=1"),conn,1,1
if rs.eof then call cnerror("没有查询到您的登陆别名,或您的信息未通过审核，请返回重新输入。",0)
if boo_md5(mypass)<>rs("u_pass") then call cnerror("您输入的密码不正确，请返回重新输入。",0)

'登陆成功，给予身份
session("myname")=myname
session("myzhiwei")=rs("u_zhiwei")
session("myzname")=rs("u_name")
'session("myshangji")=rs("q_lei")
rs.close

'读拥护类
rs.open ("select * from nnt_quan "),conn,1,1
for s=1 to int(rs.recordcount)
Response.cookies("q_"&rs("q_id")&"")("qname")=rs("q_name")
'
if rs("q_id")=int(session("myzhiwei")) then 
session("myshangji")=rs("q_lei")
session("quanxian")=rs("q_quanxian")
end if
'///批量读部门和职位ID
if rs("q_s")=0 then
bumens=bumens&"|"&rs("q_id")&"|"
else
zhiweis=zhiweis&"|"&rs("q_id")&"|"
end if
rs.movenext
next
Response.cookies("company")("bumens")=bumens
Response.cookies("company")("zhiweis")=zhiweis
rs.close
set rs=nothing
Response.redirect "x_mian.asp"

'////////////////////////////////////////////////////////////////////////////////////////////////////////////

case "out"
session.abandon
Response.redirect "index.asp"
Response.end

'////////////////////////////////////////////////////////////////////////////////////
case "edituser"
call userok()
uid=cnshu(Trim(Request.QueryString("uid")),20,1,"人员ID",1)
uname=cnshu(Trim(Request.Form("uname")),20,2,"真实姓名",2)
upass=cnshu(Trim(Request.Form("upass")),35,4,"平台登陆密码",2)
uzhiwei=cnshu(Trim(Request.Form("myzhiwei_text")),20,1,"录入职位",2)
unn=cnshu(Trim(Request.Form("unn")),1,1,"性别",1)
ushengri=cnshu(Trim(Request.Form("ushengri")),10,8,"出生年月日",2)
udianhua=cnshu(Trim(Request.Form("udianhua")),20,1,"联系电话",2)
ushouji=cnshu(Trim(Request.Form("ushouji")),20,1,"联系手机",2)
udizhi=cnshu(Trim(Request.Form("udizhi")),60,2,"联系地址",2)
uzhengjian=cnshu(Trim(Request.Form("uzhengjian")),20,2,"证件号码",2)
ujianjie=cnshu(Trim(Request.Form("ujianjie")),500,2,"个人简介",2)
uzhuangtai=cnshu(Trim(Request.Form("uzhuangtai")),1,1,"人员状态",1)

set rs= Server.CreateObject("adodb.recordset")
rs.open ("select * from nnt_user where u_id="&uid&""),conn,3,3
if rs.eof then call cnerror ("没有此人员的ID信息，无法更改！",0)
if rs("u_zhiwei")<>uzhiwei then fujias="1|@|"&now()&"|@|职位从"&request.cookies("q_"&rs("u_zhiwei"))("qname")&"变更为"&request.cookies("q_"&uzhiwei)("qname")&".操作人："&sessname&"[|@@|]"

if rs("u_zhuangtai")<>int(uzhuangtai) then fujias=fujias&"1|@|"&now()&"|@|人员状态从"&replace(replace(replace(rs("u_zhuangtai"),"0","公司备用人才"),"1","公司职员"),"2","公司历史职员")&"变更为"&replace(replace(replace(uzhuangtai,"0","公司备用人才"),"1","公司职员"),"2","公司历史职员")&".操作人："&sessname&"[|@@|]"

if rs("u_pass")<>upass then rs("u_pass")=boo_md5(upass)
rs("u_zhiwei")=uzhiwei
rs("u_zhuangtai")=uzhuangtai
rs("u_xinxi")=unn&"||@@||"&ushengri&"||@@||"&udianhua&"||@@||"&ushouji&"||@@||"&udizhi&"||@@||"&uzhengjian&"||@@||"&ujianjie&"||@@||"
rs("u_name")=uname


rs("u_bei")="2|@|"&now()&"|@|"&sessname&"对人员["&uname&"]进行了资料修改操作.[|@@|]"&fujias&rs("u_bei")
rs.update
rs.close
set rs=nothing
call cnerror("人员信息更新完毕！您的操作已经记录。",1)

'/////////////////////////////////////////////////////
case "addbei"
call userok()
uid=cnshu(Trim(Request.QueryString("uid")),20,1,"人员ID",1)
ubei=cnshu(Trim(Request.Form("bnei")),200,1,"备注内容",2)
set rs= Server.CreateObject("adodb.recordset")
rs.open ("select * from nnt_user where u_id="&uid&" "),conn,3,3
if rs.eof then call cnerror("没有查询到此职员，无法进行添加。",0)
rs("u_bei")="1|@|"&now()&"|@|"&ubei&".备注人："&sessname&"[|@@|]"&rs("u_bei")
rs.update
rs.close
set rs=nothing
call cnerror("此人员的备注信息添加完毕！",1)

'////////////////////////////////////////////////////////
case "deluser"
call userok()
uid=cnshu(Trim(Request.QueryString("uid")),20,1,"人员ID",1)
conn.execute("delete from nnt_user where u_id="&uid&"")
call cnerror("此人员的删除完毕！","x_user.asp?chuli=zhiyuan&ul=1")

'//////////////////////////////////////////////////////
case "editziliao"
call userok()
editlei=Trim(Request.QueryString("editlei"))
uid=cnshu(Trim(Request.QueryString("uid")),20,1,"人员ID",1)

select case editlei
case "1"
unn=cnshu(Trim(Request.Form("unn")),1,1,"性别",1)
ushengri=cnshu(Trim(Request.Form("ushengri")),10,8,"出生年月日",2)
udianhua=cnshu(Trim(Request.Form("udianhua")),20,1,"联系电话",2)
ushouji=cnshu(Trim(Request.Form("ushouji")),20,1,"联系手机",2)
udizhi=cnshu(Trim(Request.Form("udizhi")),60,2,"联系地址",2)
uzhengjian=cnshu(Trim(Request.Form("uzhengjian")),20,2,"证件号码",2)
ujianjie=cnshu(Trim(Request.Form("ujianjie")),500,2,"个人简介",2)

upass=Trim(Request.Form("upass"))

case "2"
myshezhi=cnshu(Trim(Request.Form("myshezhi_text")),100,1,"选择按钮",2)
myshezhi=replace(myshezhi,"|",",")&"||"
case "3"
myshezhi=replace(Trim(Request.Form("kuaijie_nei")),"||, ","||")
'Response.Write(myshezhi)
'Response.end
end select

set rs= Server.CreateObject("adodb.recordset")
rs.open ("select * from nnt_user where u_id="&uid&" and u_bname='"&sessname&"'"),conn,3,3
if rs.eof then call cnerror("没有查询到您的信息，无法修改。",0)
select case editlei
case "1"
if u_pass<>"" then rs("u_pass")=boo_md5(u_pass)
rs("u_xinxi")=unn&"||@@||"&ushengri&"||@@||"&udianhua&"||@@||"&ushouji&"||@@||"&udizhi&"||@@||"&uzhengjian&"||@@||"&ujianjie&"||@@||"
case "2"
rs("u_index")=rs("u_index")&myshezhi
case "3"
rs("u_index")=myshezhi
end select
rs.update
rs.close
set rs=nothing
call cnerror("修改设置完毕！",1)
end select
call connclose
 %>