userinfolevel.asp

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

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

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

UserID = Request("UserID")
UserName = Request("UserName")
EUserName = Request("EUserName")
LevelCode = Request("Level")

if InStr(Opt_Root,CStr(Session("UserID")))<1 then
	IsProtect=False
	strSQL="Select a.IsAdmin from T_DNS_RoleInfo a,T_DNS_UserRole b where b.RoleCode=a.RoleCode and b.UserID='" & UserID & "'"
	Set ADRs=Cn.Execute(strSQL)
	Do While Not ADRs.Eof
		if Mid(ADRs("IsAdmin"),5,1)="Y" then
			IsProtect=True
			Exit Do
		end if
		ADRs.Movenext
	Loop
	ADRs.Close
	Set ADRs=Nothing
	
	if IsProtect and UserID<>CStr(Session("UserID")) then
		Response.Write "<br><br><br><p align='center' class='titletext'>对不起，您没有权限！</p>"
		Call PrintPageBottom
		Response.End
	end if
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="UserInfoSQL.asp" method="post" onSubmit="return(CheckAll());">
       <input type="hidden" name="act" value="修改">
        <tr height="24" bgcolor="<%=Opt_TR_BGColor%>">
          <td bgcolor="<%=Opt_TR_BGColor%>" align="center">
            用户编号
          </td>
          <td bgcolor="<%=Opt_TD_BGColor2%>">&nbsp;<font color=bule><%=UserID%></font>
        <input type=hidden name="UserID"  value="<%=UserID%>">
          </td>
        </tr>
        <tr height="24">
          <td bgcolor="<%=Opt_TR_BGColor%>" align="center">
            用户名称
          </td>
          <td bgcolor="<%=Opt_TD_BGColor2%>">&nbsp;<%=UserName%>(<%=EUserName%>)</td>
        </tr>
        <tr height="24">
          <td bgcolor="<%=Opt_TR_BGColor%>" align="center">
            用户级别
          </td>
          <td bgcolor="<%=Opt_TD_BGColor2%>">
            <select name="LevelCode" class="input">
<%
strSQL="Select * from T_DNS_UserLevel order by DispSeq"
Set Rs1= Server.CreateObject("ADODB.Recordset")
Rs1.open strSQL,Cn,1,1
do while not Rs1.Eof
%>
			<option value="<%=rs1("LevelCode")%>"
			<%
			if LevelCode=rs1("LevelCode") then
				response.write " selected"
			end if
			%>			
			><%=rs1("LevelName")%>
			</option>
<%
	Rs1.MoveNext
Loop
rs1.close
%>
		</select>
          </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
%>