sysinf_bk.asp

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

<!--#include file="../Include/conn.asp"-->
<%
Response.CharSet="GB2312"
dim op,r_name,r_id
op=Request.QueryString("op")
dim res
set res = server.CreateObject("adodb.recordset")

if op="1" then
    r_name=Request.QueryString("hi")
    on error resume next
    res.Open "select certificate_name from certificate where certificate_name='"&r_name&"'",conn,3,1
    if err.number<>0 then
        Response.Write "输入非法字符!"
    else
        if res.BOF<>true or res.EOF<>true then
            Response.Write "该证照名称已存在!"
        end if
    end if
elseif op="1_1" then
    r_name=Request.QueryString("hi")
    r_id=Request.QueryString("id")
    on error resume next
    res.Open "select certificate_name from certificate where certificate_name='"&r_name&"' and certificate_id!="&r_id,conn,3,1
    if err.number<>0 then
        Response.Write "输入非法字符!"
    else
		if res.BOF<>true or res.EOF<>true then
		    Response.Write "该证照名称已存在!"
		end if
    end if
elseif op="2" then
    r_name=Request.QueryString("hi")
    on error resume next
    res.Open "select tp_name from techpost where tp_name='"&r_name&"'",conn,3,1
    if err.number<>0 then
        Response.Write "输入非法字符!"
    else
        if res.BOF<>true or res.EOF<>true then
            Response.Write "该职称名已存在!"
        end if
    end if
elseif op="2_1" then
    r_name=Request.QueryString("hi")
    r_id=Request.QueryString("id")

    on error resume next
    res.Open "select tp_name from techpost where tp_name='"&r_name&"' and tp_id!="&r_id,conn,3,1
    if err.number<>0 then
        Response.Write "输入非法字符!"
    else
		if res.BOF<>true or res.EOF<>true then
		    Response.Write "该职称名已存在!"
		end if
    end if
elseif op="3" then
    r_name=Request.QueryString("hi")
    on error resume next
    res.Open "select dlevel_name from deptlevel where dlevel_name='"&r_name&"'",conn,3,1
    if err.number<>0 then
        Response.Write "输入非法字符!"
    else
        if res.BOF<>true or res.EOF<>true then
            Response.Write "该部门等级已存在!"
        end if
    end if
elseif op="3_1" then
    r_name=Request.QueryString("hi")
    r_id=Request.QueryString("id")

    on error resume next
    res.Open "select dlevel_name from deptlevel where dlevel_name='"&r_name&"' and dept_level!="&r_id,conn,3,1
    if err.number<>0 then
        Response.Write "输入非法字符!"
    else
		if res.BOF<>true or res.EOF<>true then
		    Response.Write "该部门等级已存在!"
		end if
    end if

elseif op="4" then
    r_name=Request.QueryString("hi")
    on error resume next
    res.Open "select pact_name from pactdata where pact_name='"&r_name&"'",conn,3,1
    if err.number<>0 then
        Response.Write "输入非法字符!"
    else
        if res.BOF<>true or res.EOF<>true then
            Response.Write "该合同名称已存在!"
        end if
    end if
elseif op="4_1" then
    r_name=Request.QueryString("hi")
    r_id=Request.QueryString("id")

    on error resume next
    res.Open "select pact_name from pactdata where pact_name='"&r_name&"' and pactdata_id!="&r_id,conn,3,1
    if err.number<>0 then
        Response.Write "输入非法字符!"
    else
		if res.BOF<>true or res.EOF<>true then
		    Response.Write "该合同称称已存在!"
		end if
    end if

end if

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