rolemodulesql.asp

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

<% ModuleCode="M0120" %>
<!--#include file="../../Include/connect.asp"-->
<!--#include file="../../Include/Security.asp"-->
<%

act = Request("act")
RoleCode=Request("RoleCode")

OPTable="T_DNS_RoleModule"
OPIP=Request.ServerVariables("REMOTE_ADDR")
OPModule="角色模块维护"
OPPK=RoleCode
OPType=act

Cn.Execute("SP_UserOP "&session("UserID")&",'"&OPTable&"','"&OPModule&"','"&OPPK&"','"&OPType&"','"&OPIP&"'" )

Set Rs= Server.CreateObject("ADODB.Recordset")

'删除所有记录
strSQL="delete  from T_DNS_RoleModule where RoleCode='" & RoleCode & "'"
Cn.Execute(StrSQL)	

'增加记录
strSQL="select ModuleCode from T_DNS_ModuleInfo"
Rs.open strSQL,Cn,1,1
if rs.bof and rs.eof then
    response.write "<table width='400' height='80' border='0' cellpadding='0' cellspacing='2' bgcolor='#FFCC00'><tr>"
	response.write "<td align='center' bgcolor='#FFFFFF'>"
	response.write "<font color='#FF0000'><strong>警告:&nbsp; 没有模块信息!!! &nbsp; <a href='javascript:history.go(-1)'>返回</a></strong></font></td></tr></table>"
	response.end
end if

'有模块记录
RS.MoveFirst
do while (not Rs.eof)
	if len(request(rs("ModuleCode")))>0 then
		StrSQL="insert into T_DNS_RoleModule (RoleCode,ModuleCode) values ('" & RoleCode & "','"& RS("ModuleCode") & "')"
		Cn.Execute(StrSQL)
	end if
    Rs.MoveNext
Loop
Rs.Close

Response.Redirect "RoleModule.asp"
%>