moduleinfosql.asp

来自「蓝芒3.0A最新所有功能完整破解版」· ASP 代码 · 共 51 行

<% ModuleCode="M0117" %>
<!--#include file="../../Include/connect.asp"-->
<!--#include file="../../Include/Security.asp"-->
<%
ModuleCode = Request("ModuleCode")
act = Request("act")
ModuleName = Request.Form("ModuleName")
ModulePath = Request.Form("ModulePath")
TypeCode = Request.Form("TypeCode")
DispSeq = Request.Form("DispSeq")

OPTable="T_DNS_ModuleInfo"
OPIP=Request.ServerVariables("REMOTE_ADDR")
OPModule="模块信息维护"
OPPK=TypeCode
OPType=act

Select Case act
	Case "添加"
		strSQL="Select * from T_DNS_ModuleInfo where ModuleCode='" & ModuleCode & "'"
		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
		strSQL="Insert into T_DNS_ModuleInfo (ModuleCode,ModuleName,ModulePath,TypeCode,DispSeq) values ('" & +_
		ModuleCode & "','" & ModuleName & "','" & +_
		ModulePath & "','" & TypeCode & "'," & DispSeq & ")"
		Cn.Execute(strSQL)
	Case "修改"
		strSQL="Update T_DNS_ModuleInfo Set ModuleName='" & ModuleName & +_
		"',ModulePath='" & ModulePath & "',TypeCode='" & TypeCode & "',DispSeq=" & DispSeq & +_
		" Where ModuleCode='" & ModuleCode & "'"
		Cn.Execute(strSQL)
	Case "删除"
		strSQL="Select * from T_DNS_RoleModule where ModuleCode='" & ModuleCode & "'"
		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
		strSQL="Delete T_DNS_ModuleInfo Where ModuleCode='" & ModuleCode & "'"
		Cn.Execute(strSQL)
End Select
Cn.Execute("SP_UserOP "&session("UserID")&",'"&OPTable&"','"&OPModule&"','"&OPPK&"','"&OPType&"','"&OPIP&"'" )
Response.Redirect "ModuleInfo.asp"
%>