roleinfosql.asp

蓝芒3.0A最新所有功能完整破解版

<% ModuleCode="M0115" %>
<!--#include file="../../Include/connect.asp"-->
<!--#include file="../../Include/Security.asp"-->
<%
dim act,RoleCode,RoleName
act = Request("act")
RoleCode = Request.Form("RoleCode")
RoleName = Request.Form("RoleName")
IsAdmin = Request.Form("IsAdmin")
IsMail = Request.Form("IsMail")
IsHost = Request.Form("IsHost")
IsPost = Request.Form("IsPost")
IsProtect = Request.Form("IsProtect")
DefaultRole = Request.Form("DefaultRole")
if IsAdmin="" then IsAdmin="N"
if IsMail="" then IsMail="N"
if IsHost="" then IsHost="N"
if IsPost="" then IsPost="N"
if IsProtect="" then IsProtect="N"
IsAdmin=IsAdmin&IsMail&IsHost&IsPost&IsProtect

if DefaultRole="" then DefaultRole="N"

OPTable="T_DNS_RoleInfo"
OPIP=Request.ServerVariables("REMOTE_ADDR")
OPModule="角色信息维护"
OPPK=TypeCode
OPType=act

Select Case act
	Case "添加"
		strSQL="Select * from T_DNS_RoleInfo where RoleCode='" & RoleCode & "'"
		Set Rs= Server.CreateObject("ADODB.Recordset")
		Rs.open strSQL,Cn,1,1
		If Not Rs.Eof Then
			Response.Redirect "../../Include/ErrBox.asp?Msg=错误! 该代号已经存在!"
			Response.End
		end if
		Rs.Close
		if DefaultRole="Y" then
			Cn.Execute("Update T_DNS_RoleInfo Set DefaultRole='N'")
		end if
		strSQL="Insert into T_DNS_RoleInfo (RoleCode,RoleName,IsAdmin,DefaultRole) values ('" & +_
		RoleCode & "','" & RoleName & "','" & IsAdmin & "','" & DefaultRole & "')"

		Cn.Execute(strSQL)
	Case "修改"
		if DefaultRole="Y" then
			Cn.Execute("Update T_DNS_RoleInfo Set DefaultRole='N'")
		end if
		
		strSQL="Update T_DNS_RoleInfo Set RoleName='" & RoleName & "',IsAdmin='" & IsAdmin & "',DefaultRole='" & DefaultRole & "' Where RoleCode='" & RoleCode & "'"
		Cn.Execute(strSQL)
	Case "删除"
		strSQL="Select * from T_DNS_UserRole where RoleCode='" & RoleCode & "'"
		Set Rs= Server.CreateObject("ADODB.Recordset")
		Rs.open strSQL,Cn,1,1
		If Not Rs.Eof Then
			strAllUserID=""
			while not rs.eof
				strAllUserID=strAllUserID & " " & rs("UserID")
				rs.movenext
			wend
			Response.Redirect "../../Include/ErrBox.asp?Msg=错误! "& strAllUserID&"为此角色用户，不能删除! 或者先给用户设定为其它角色，再删除!"
			Response.End
		end if	
		strSQL="Delete T_DNS_RoleModule Where RoleCode='" & RoleCode & "'"
		Cn.Execute(strSQL)
		strSQL="Delete T_DNS_RoleInfo Where RoleCode='" & RoleCode & "'"
		Cn.Execute(strSQL)
End Select
Cn.Execute("SP_UserOP "&session("UserID")&",'"&OPTable&"','"&OPModule&"','"&OPPK&"','"&OPType&"','"&OPIP&"'" )

Response.Redirect "RoleInfo.asp"
%>