c_company.asp

人事管理系统。。。 包括了所有的基本功能

<!--#include file="fun/conn.asp" --><!--#include file="fun/f_fso.asp" -->
<% call userok()
select case Trim(Request.QueryString("chuli"))
case "shezhi"
asp1="<"&"%"&vbcrlf
asp2=""&vbcrlf&"%"&">"

'首先获得所有提交数据
tijiaoform=split(Request.Form,"&")
for tf=0 to ubound(tijiaoform)
'再次分割为表单名和数据2块
biaodanx=split(tijiaoform(tf),"=")
for bd=0 to ubound(biaodanx)
next
'处理数据
if biaodanx(0)<>"af" and biaodanx(0)<>"Submit" and biaodanx(0)<>"tourl" then 
gengxindata=gengxindata&biaodanx(0)&"="""&Trim(Request.Form(biaodanx(0)))&""""&vbcrlf
end if
next

companynei=asp1&gengxindata&asp2
call SaveText("fun/system.asp",companynei)

call cnerror("公司基本设置完毕！",1)

'///////////////////////////////////////////////////////////////////////////////////////////////////
case "bumenadd"
bname=cnshu(Trim(Request.Form("q_name")),50,2,"部门/职位名称",2)
blei=cnshu(Trim(Request.Form("q_lei_text")),15,1,"部门/职位类别",2)
bs=Trim(Request.Form("q_l"))
bjie=cnshu(Trim(Request.Form("q_jie")),3000,1,"部门/职位介绍",0)
bylei=Trim(Request.Form("y_lei"))
editid=Trim(Request.QueryString("editid"))

q_quanxian=Trim(Request.Form("q_quan"))


set brs= Server.CreateObject("adodb.recordset")

if editid<>"" then
brs.open ("select * from nnt_quan where q_id="&editid&""),conn,3,3
if brs.eof then call cnerror("您要修改的 部门/职位 不存在，无法修改！",0)
else
brs.open ("select * from nnt_quan"),conn,3,3
brs.addnew
end if
brs("q_s")=bs
brs("q_name")=bname
brs("q_lei")=blei
brs("q_new")=bjie&"[||@@@@||]"
brs("q_ylei")=bylei
brs("q_quanxian")=q_quanxian
Response.cookies("q_"&brs("q_id")&"")("qname")=bname
brs.update
brs.close
set brs=nothing
call cnerror("提交的 部门/职位 "&bname&" 处理完毕！！",1)


'////////////////////////////////////////////////////////////////////////////////////////////
case "delbumen"
delid=cnshu(Trim(Request.QueryString("delid")),20,1,"部门/职位ID",1)
fanid=cnshu(Trim(Request.QueryString("fanid")),20,1,"上级部门/职位ID",1)
if fanid<>"0" then fanid="|"&fanid&"|" else fanid=""
set drs= Server.CreateObject("adodb.recordset")
drs.open ("select * from nnt_quan where q_lei='"&delid&"'"),conn,1,1
if not drs.eof then call cnerror("此 部门/职位 下，还有下级，请先删除下级部门/职位！",1)
drs.close
drs.open ("delete from nnt_quan where q_id="&delid&""),conn,3,3
set drs=nothing
call cnerror("部门/职位 "&bname&" 成功删除！,确认后返回上级！","x_company.asp?chuli=bumen&l=0&qleiid="&fanid&"")
'//////////////////////////////////////////

case "addylei"
y_name=cnshu(Trim(Request.Form("y_name")),20,1,"业务类名称",2)
y_id=cnshu(Trim(Request.Form("y_id")),2,1,"业务类ID",1)
y_xuanze=Trim(Request.Form("xuanze"))
editid=Trim(Request.QueryString("editid"))

if y_xuanze="yes" then
y_zongshu=cnshu(Trim(Request.Form("y_zongshu")),2,1,"业务类数量",1)

for ys=0 to y_zongshu
if Trim(Request.Form("xuan_x_"&ys))<>"" then
y_xuan=y_xuan&"[|@|]"&Trim(Request.Form("xuan_x_"&ys))
end if
next
else
y_xuan=""
end if
set rs= Server.CreateObject("adodb.recordset")
if editid<>"" then
rs.open ("select * from nnt_ylei where y_lid="&editid&""),conn,3,3
if rs.eof then call cnerror("此业务类信息没有查询到，请重新操作！",0)
else
rs.open ("select * from nnt_ylei where y_id="&y_id&""),conn,3,3
if not rs.eof then call cnerror("此类的ID已经被其他类使用，请重新输入ID！",0)
rs.addnew
end if
rs("y_name")=y_name
rs("y_id")=y_id
 rs("y_xuan")=y_xuan
rs.update
rs.close
set rs=nothing
call cnerror("已经添加业务类完毕！",1)
'///////////////////////////////////////////////////////

case "delylei"
yid=cnshu(Trim(Request.QueryString("yid")),8,1,"业务类ID",1)
conn.execute("delete * from nnt_ylei where y_lid="&yid&"")
call cnerror("业务类删除完毕！！",1)
end select
call connclose
 %>