userinforole.asp

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

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

<%

UserID=request("UserID")
UserName=request("UserName")
EUserName=request("EUserName")

if InStr(Opt_Root,CStr(Session("UserID")))<1 then
		Response.Write "<br><br><br><p align='center' class='titletext'>对不起，您没有权限！</p>"
		Call PrintPageBottom
		Response.End
end if

%>
<script Language="JavaScript">
<!--
function CheckAll()
{  
	submitonce(form3);
	return true;
}
-->
</script>
<table width="450" 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="UserInfoRoleSQL.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><%=UserID%></font>
        <input type=hidden name="UserID"  value="<%=UserID%>">
      </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;<%=UserName%>(<%=EUserName%>) </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="0" cellspacing="0">
		<%  		
		StrSQL="Select *  from T_DNS_RoleInfo order by RoleCode"
		Set Rs= Server.CreateObject("ADODB.Recordset")
		set Rs3= Server.CreateObject("ADODB.Recordset")
		Rs.open StrSQL,Cn
		i = 0
		while not Rs.EOF
			'set Rs3= Server.CreateObject("ADODB.Recordset")
			if (i mod 3 )= 0 then
				response.write "<tr>"
			end if
			StrSQL="Select * from T_DNS_UserRole where UserID='"& UserID &"' and RoleCode='"& rs("RoleCode") &"'"
			Rs3.open StrSQL,Cn
			if (not rs3.eof) then
		%>
				<td bgcolor="<%=Opt_TD_BGColor1%>"><input type="checkbox" name="<%=rs("RoleCode")%>" value="YES" checked><a href="RoleModuleEdt.asp?RoleCode=<%=rs("RoleCode")%>&RoleName=<%=rs("RoleName")%>"><%=rs("RoleName")%></a></td>
		<%
			else
		%>
				<td bgcolor="<%=Opt_TD_BGColor1%>"><input type="checkbox" name="<%=rs("RoleCode")%>" value="YES"><a href="RoleModuleEdt.asp?RoleCode=<%=rs("RoleCode")%>&RoleName=<%=rs("RoleName")%>"><%=rs("RoleName")%></a></td>
		<%
			end if
			
			Rs3.close
		
			i = i+1
			Rs.MoveNext
		wend
		Rs.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
%>