rolemoduleedt.asp

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

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

<%
RoleCode=request("RoleCode")
RoleName=request("RoleName")
%>
<script Language="JavaScript">
<!--
function CheckAll()
{  
	submitonce(form3);
	return true;
}
-->
</script>
<table width="500" cellspacing="0" cellpadding="0" border="0" align="center">
  <tr>
    <td>
     <font color="<%=Opt_Font_TitleColor%>" class="titletext"><strong>角色模块 - 修改</strong></font>
    </td>
    <td align="right">
     <a href="#" OnClick="javascript:history.go(-1)" class="a2">返 回</a>
    </td>
  </tr>
  <tr>
    <td colspan="2">
      <table width="100%" border="0" cellpadding="2" cellspacing="1" bgcolor="<%=Opt_Table_BGColor%>">
       <form name="form3" action="RoleModuleSQL.asp" method="post" onSubmit="return(CheckAll());">
       <input type="hidden" name="act" value="修改">
    <tr bgcolor="<%=Opt_TR_BGColor%>"> 
      <td height="24" align="right" bgcolor="<%=Opt_TR_BGColor%>"  width="106"> 角色代号：&nbsp;</td>
      <td height="24" bgcolor="<%=Opt_TD_BGColor1%>" width="393">&nbsp;<font color=bule><%=RoleCode%></font>
        <input type=hidden name="RoleCode"  value="<%=RoleCode%>">
      </td>
    </tr>
    <tr bgcolor="<%=Opt_TR_BGColor%>"> 
      <td height="24" align="right" bgcolor="<%=Opt_TR_BGColor%>"  width="106"> 角色名称：&nbsp;</td>
      <td height="24" bgcolor="<%=Opt_TD_BGColor1%>"  width="393">&nbsp;<%=RoleName%> </td>
    </tr>
    <tr bgcolor="<%=Opt_TR_BGColor%>"> 
      <td height="24" align="right" bgcolor="<%=Opt_TR_BGColor%>" width="106"> 模块名称：&nbsp;</td>
      <td height="24" bgcolor="<%=Opt_TD_BGColor1%>" width="393"> 
        <table width="100%" border="0" cellpadding="2" cellspacing="0">
		<%		
		Set Rs1=Server.CreateObject("ADODB.Recordset")
		Set Rs= Server.CreateObject("ADODB.Recordset")
		set Rs3= Server.CreateObject("ADODB.Recordset")
		StrSQL="Select * from T_DNS_ModuleType order by DispSeq"
		Rs1.Open StrSQL,Cn
		while not Rs1.Eof
			Response.Write "<tr><td height='30' colspan='3' bgcolor='" & Opt_TD_BGColor1 & "' valign='bottom'><strong>" & Rs1("TypeName") & "</strong></td></tr>"
			Response.Write "<tr><td colspan='3' height='1' bgcolor='" & Opt_Table_BGColor & "'></td></tr>"
			StrSQL="Select *  from T_DNS_ModuleInfo Where TypeCode='" & Rs1("TypeCode") & "' order by ModuleCode"
			Rs.open StrSQL,Cn
			i = 0
			while not Rs.EOF
				if (i mod 3 )= 0 then
					response.write "<tr>"
				end if
				StrSQL="Select * from T_DNS_RoleModule where RoleCode='"& RoleCode &"' and ModuleCode='"& rs("ModuleCode") &"'"
				Rs3.open StrSQL,Cn
				if (not rs3.eof) then
			%>
					<td bgcolor="<%=Opt_TD_BGColor1%>"><input type="checkbox" name="<%=rs("ModuleCode")%>" value="YES" checked><%=rs("ModuleName")%></td>
			<%
				else
			%>
					<td bgcolor="<%=Opt_TD_BGColor1%>"><input type="checkbox" name="<%=rs("ModuleCode")%>" value="YES"><%=rs("ModuleName")%></td>
			<%
				end if
				
				Rs3.close
			
				i = i+1
				Rs.MoveNext
			wend
			Rs.Close
			Rs1.Movenext
		WEnd
		Rs1.Close	
		Set Rs=Nothing
		set Rs3=Nothing

		%>
		</tr>
		</table>
      </td>
    </tr>
        <tr height="26">
          <td bgcolor="<%=Opt_TD_BGColor2%>" colspan="2" align="center">
            <input type="submit" class="button" value=" 修改 ">
            <input type="reset" class="button" value=" 重写 ">
          </td>
        </tr>
        </form>
      </table>
    </td>
  </tr>
</table>
  


<%

Cn.Close

Call PrintPageBottom
%>