grade_back.asp

武汉软件园人力资源管理系统完整源代码,希望大家能够多多交流.

<%@ Language=VBScript Transaction="Required"%>
<!--#include file="../Include/conn.asp"-->
<!--#include file="../Include/Syscheck.asp"-->
<%
call checkin_sys(session("UsersId"),session("PerId"),3)
Response.CharSet="GB2312"
dim op,grd_hi,g_name,g_id
op=Request.QueryString("op")
dim res
set res = server.CreateObject("adodb.recordset")

if op="1" then
    g_name=Request.QueryString("hi")
    res.Open "select plevel_name from plevel where plevel_name='"&g_name&"' and plevel_state='启用'",conn,3,3
    if res.BOF<>true or res.EOF<>true then
        Response.Write "该级别名称已存在!"
    end if
elseif op="1_1" then
    g_name=Request.QueryString("hi")
    g_id=Request.QueryString("id")
    res.Open "select plevel_name from plevel where plevel_name='"&g_name&"' and plevel_state='启用' and plevel_id!="&g_id,conn,3,3
    if res.BOF<>true or res.EOF<>true then
        Response.Write "该级别名称已存在!"
    end if
    
elseif op="2" then 
    grd_hi=Request.QueryString("hi")
    'Response.Write grd_hi&op
    'Response.End
    res.Open "select plevel_id from personnel where plevel_id="&grd_hi,conn,3,3
    if res.BOF=true and res.EOF=true then
        on error resume next
        conn.execute "update plevel set plevel_state='撤消' where plevel_id="&grd_hi   '更改状态
        conn.execute "delete postlevel where level_id="&grd_hi                         '删除与岗位的绑定
        if err.number<>0 then
            ObjectContext.setAbort             '事务回滚
            Response.Write "撤消失败!"
        else
            ObjectContext.setComplete          '事务提交
            Response.Write "已撤消!"
        end if
    else
        Response.Write "该级别有员工绑定,撤消前请先更新员工表!"
    end if
    
end if

if res.State=1 then
    res.close
end if
conn.close
set res = nothing
set conn=nothing
%>