📄 recive.asp

📁 功能齐全的oa系统
💻 ASP
字号:
<% option explicit%>
<!-- #include virtual="include/DataEnvi.asp" -->
<!-- #include virtual="include/Page.asp" -->


<% '接收域的信息进入变量
Dim ModuleName,CName,BasicPath,BasicPermission,Menu,ModuleID
Dim ObjDB,ModuleSQL,MenuSQL,RS,Module_PermissionSQL,Role_PermissionSQL

CName=Replace(Request.Form("_CName"),"'","''")
BasicPath=Replace(Request.Form("_BasicPath"),"'","''")
BasicPermission=Replace(Request.Form("_BasicPermission"),"'","''")
Menu=Replace(Request.Form("_Menu"),"'","''")
ModuleName=Replace(BasicPath,"/",":")


ModuleSQL="INSERT  t_Base_Module (ModuleName,CName,BasicPath,BasicPermission) VALUES ('"&ModuleName&"','"&CName&"','"&BasicPath&"','"&BasicPermission&"')"

'往t_Base_Module中插入数据
Set ObjDB = Server.CreateObject("ADODB.Connection")
	OpenDB ObjDB
	ObjDB.Execute(ModuleSQL)
	'取出插入模块信息的模块号
	Set RS=Server.CreateObject("ADODB.RecordSet")
    RS.Open "SELECT * FROM t_Base_Module WHERE CName='"&CName&"'",ObjDB
    ModuleID=RS("ID")
    RS.Close

	'接收菜单表的信息，并往t_Base_Menu中插入数据
	MenuSQL="INSERT t_Base_Menu (MenuName,ModuleID,ParentID,MenuType) VALUES ('"&CName&"','"&ModuleID&"','"&Menu&"','1')"
    ObjDB.Execute(MenuSQL)
    
    '接收模块权限表的信息，并往t_Base_Module_Permission中插入数据
    Module_PermissionSQL="Insert Into t_Base_Module_Permission (ModuleID,PerLevel,PerName,BasicPermission,Des) values('"&ModuleID&"','1','普通权限','" & BasicPermission &"','拥有普通权限')"
    ObjDB.Execute(Module_PermissionSQL)
    Module_PermissionSQL="Insert Into t_Base_Module_Permission (ModuleID,PerLevel,PerName,BasicPermission,Des) values('"&ModuleID&"','100','最高权限','" & BasicPermission &"','拥有最高权限')"
    ObjDB.Execute(Module_PermissionSQL)
    '接收模块权限表的信息，并往t_OA_SYS_Role_Permission中插入数据
    Role_PermissionSQL="Insert Into t_OA_SYS_Role_Permission (RoleID,ModuleID,PerLevel) values('1','"&ModuleID&"','1')"
    ObjDB.Execute(Role_PermissionSQL)

	ObjDB.Close
	Set ObjDB = Nothing
	Response.Redirect  ("List.asp")
%>	
<HTML>
<HEAD><TITLE>添加数据</TITLE></HEAD>
<BODY></BODY>
</HTML>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -