roleinfo.asp

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

<% ModuleCode="M0115" %>
<!--#include file="../../Include/Reference.asp"-->
<%
Call PrintPageHead
%>
<!--#include file="../../Include/connect.asp"-->
<script Language="JavaScript">
<!--
function CheckAll()
{  
	//检查非空
	if (!CheckEmpty(addform.RoleCode, "角色代码"))			return false;
	if (!CheckEmpty(addform.RoleName, "角色名称"))			return false;   
	//全部通过
	submitonce(addform);
	return true;
}
-->
</script>
<%
strSQL="Select * from T_DNS_RoleInfo"
Set Rs= Server.CreateObject("ADODB.Recordset")
Rs.open strSQL,Cn,1,1

If Rs.Eof Then
	Response.Write "目前还没有角色信息！"
else

%>
      
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr> 
    <td height="26" class="titletext"><font color="<%=Opt_Font_TitleColor%>"><strong>角色信息</strong></fong></td>
  </tr>
  <tr> 
    <td>
       <table border="0" cellpadding="3" cellspacing="1" bgcolor="<%=Opt_Table_BGColor%>" width="100%">
        <tr bgcolor="<%=Opt_TR_BGColor%>" height="24"> 
          <td>角色代码</td>
          <td>角色名称</td>
          <td>管理模块</td>
          <td>管理<br>用户</td>
          <td>域名<br>删除</td>
          <td>主机<br>删除</td>
          <td>邮局<br>删除</td>
          <td>保护<br>用户</td>
          <td>默认<br>用户</td>
          <td>操作</td>
        </tr>
<%
	i=0
	Do While Not Rs.Eof
	if i mod 2 =0 Then %>
     <tr bgcolor="<%=Opt_TD_BGColor1%>" height="20">
     <% else %>
     <tr bgcolor="<%=Opt_TD_BGColor2%>" height="20">
     <% end if %>
          <form name="form<%=i%>" action="RoleInfoSQL.asp" method="post">
            <input type="hidden" name="RoleCode" value="<%=Rs("RoleCode")%>">
            <td><font color="<%=Opt_Font_IndexColor%>"><%=Rs("RoleCode")%></font></td>
            <td><input name="RoleName" type="text" class="input" value="<%=Rs("RoleName")%>" size="20" maxlength="20"></td>
            <td>
            <a href="RoleModuleEdt.asp?RoleCode=<%=Rs("RoleCode")%>&RoleName=<%=Rs("RoleName")%>" class="a2">管理模块</a>
            </td>
            
            <td>
            <input name="IsAdmin" type="checkbox" value="Y" <% if Mid(Rs("IsAdmin"),1,1)="Y" then Response.Write "checked" %>>
            </td>
            <td>
            <input name="IsMail" type="checkbox" value="Y" <% if Mid(Rs("IsAdmin"),2,1)="Y" then Response.Write "checked" %>>
            </td>
            <td>
            <input name="IsHost" type="checkbox" value="Y" <% if Mid(Rs("IsAdmin"),3,1)="Y" then Response.Write "checked" %>>
            </td>
            <td>
            <input name="IsPost" type="checkbox" value="Y" <% if Mid(Rs("IsAdmin"),4,1)="Y" then Response.Write "checked" %>>
            </td>
            <td>
            <input name="IsProtect" type="checkbox" value="Y" <% if Mid(Rs("IsAdmin"),5,1)="Y" then Response.Write "checked" %>>
            </td>
            <td>
            <input name="DefaultRole" type="checkbox" value="Y" <% if Rs("DefaultRole")="Y" then Response.Write "checked" %>>
            </td>
            <td width="80">
            <input name="act" type="submit" class="button" value="修改">
            <input name="act" type="submit" class="button" value="删除">
            </td>
          </form>
        </tr>
        <%
		i=i+1
		Rs.MoveNext
	Loop
	Rs.Close
	Cn.Close
%>
      </table>
<%
end if
%>
	</td>
  </tr>
  <tr> 
    <td height="40">&nbsp;</td>
  </tr>
  <tr> 
    <td height="26" bgcolor="#FFFFFF" class="titletext"><font color="<%=Opt_Font_TitleColor%>"><strong>添加新角色信息</strong></font></td>
  </tr>
  <tr>
    <td><table width="100%" border="0" cellpadding="3" cellspacing="1" bgcolor="<%=Opt_Table_BGColor%>">
        <form name="addform" method="post" action="RoleInfoSQL.asp" onSubmit="return(CheckAll());">
          <input type="hidden" name="act" value="添加">
          <tr height="24">
            <td width="74" bgcolor="<%=Opt_TR_BGColor%>">角色代码</td>
            <td  bgcolor="<%=Opt_TD_BGColor2%>"><input name="RoleCode" type="text" class="input"  size="5" maxlength="5" value="R">
            * 请参考上面的代码，请勿重复
            </td>
          </tr>
          <tr height="24">
            <td  bgcolor="<%=Opt_TR_BGColor%>">角色名称</td>
            <td  bgcolor="<%=Opt_TD_BGColor2%>"><input name="RoleName" type="text" class="input" size="20" maxlength="20">
            </td>
          </tr>
          <tr height="24">
            <td  bgcolor="<%=Opt_TR_BGColor%>">角色权利</td>
            <td  bgcolor="<%=Opt_TD_BGColor2%>">
            <input name="IsAdmin" type="checkbox" value="Y">管理用户
            <input name="IsMail" type="checkbox" value="Y">域名删除
            <input name="IsHost" type="checkbox" value="Y">主机删除
            <input name="IsPost" type="checkbox" value="Y">邮局删除
            <input name="IsProtect" type="checkbox" value="Y">保护用户
            <input name="DefaultRole" type="checkbox" value="Y">默认用户
            </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>
<p align="center">
<font color="Red">注意：所有角色中只能有一个而且必须有一个默认角色</font>
<%
Call PrintPageBottom
%>