c_yewu.asp

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

<!--#include file="fun/conn.asp" -->
<% call userok()
webchuli=cnshu(Trim(Request.QueryString("chuli")),20,1,"处理类型",2)
select case webchuli

'///////////////////////////////////////////////////////////////
case "addyewu"
y_zhuti=cnshu(Trim(Request.Form("y_zhuti")),50,1,"业务名称",2)
y_lei=cnshu(Trim(Request.Form("lid")),2,1,"业务类型",1)
y_money=cnshu(Trim(Request.Form("y_money")),8,1,"业务金额",2)
content=cnshu(Trim(Request.Form("content")),9000,1,"业务详细介绍",2)
zonghu=cnshu(Trim(Request.Form("zongshu")),2,1,"选项总数",1)
y_kehuid=Trim(Request.Form("y_kehuid"))
if y_kehuid="" then y_kehuid=0
y_kehu=Trim(Request.Form("y_kehu"))
editid=Trim(Request.QueryString("editid"))
if zonghu>0 then
for zs=1 to zonghu-1
xuanxiang=xuanxiang&"[|@|]"&Trim(Request.Form("yxuan_n_"&zs&""))&"||0||"&Trim(Request.Form("yxuan_"&zs&""))
next
end if

set rs= Server.CreateObject("adodb.recordset")
if editid<>"" then
rs.open ("select * from nnt_yewu where y_id="&editid&""),conn,3,3
if rs.eof then call cnerror("没有查询到您要修改的业务，请返回重新选择。",0)
else
rs.open ("select * from nnt_yewu"),conn,3,3
rs.addnew
rs("y_user")=sessname
rs("y_zuid")=sesszhiwei
end if
rs("y_user_kehu")=sesszname&"||"&y_kehu
rs("y_kehuid")=y_kehuid
rs("y_zhuti")=y_zhuti
rs("y_money")=y_money
rs("y_stime")=now()
rs("y_lei")=y_lei
rs("y_bjie")=xuanxiang&"[||@@||]"&content
rs.update
rs.close
set rs=nothing
call cnerror("新的业务已经提交！",1)

'///////////////////////////////////////////////////
case "okyewu"
editid=cnshu(Trim(Request.QueryString("editid")),8,1,"处理业务ID",1)
cl=cnshu(Trim(Request.QueryString("cl")),5,1,"处理方式",2)
set rs= Server.CreateObject("adodb.recordset")
rs.open ("select * from nnt_yewu where y_id="&editid&" and y_zhuangtai=0"),conn,3,3
if rs.eof then call cnerror("对不起，没有符合要求的业务可处理。",1)
rs("y_zhuangtai")=cl
rs.update
rs.close
set rs=nothing
call cnerror("业务已经处理完毕，返回查看状态！",1)

'//////////////////////////////////////////////////////
case "nextyewu"
editid=cnshu(Trim(Request.QueryString("editid")),8,1,"处理业务ID",1)
set rs= Server.CreateObject("adodb.recordset")
rs.open ("select * from nnt_yewu where y_id="&editid&" and y_zhuangtai=1"),conn,3,3
if rs.eof then call cnerror("对不起，没有符合要求的业务可处理。",1)
rs("y_zhuangtai")=0
rs.update
rs.close
set rs=nothing

call cnerror("业务已经再次提交，返回查看状态！",1)

'////////////////////////////////////////////////////////////////////
case "zuofei"
editid=cnshu(Trim(Request.QueryString("editid")),8,1,"处理业务ID",1)
conn.execute("delete from nnt_yewu where y_id="&editid&"")
call cnerror("业务已经处理完毕，返回查看状态！","x_yewu.asp?chuli=listyewu")
end select
call connclose()
 %>