role_back.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 role_name from role where role_name='"&r_name&"'",conn,3,3
    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 role_name from role where role_name='"&r_name&"' and role_id!="&r_id,conn,3,3
    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
%>