📄 sysuser_upd.asp
字号:
<!-- #include file="../inc_config.asp" -->
<!-- #include file="LoginCk.asp" -->
<%
Call PopCheck(11)
Admin_ID = Request("Admin_ID")
Admin_User = Request("Admin_User")
If Len(Admin_ID)>0 Then WhereStr="Admin_ID="&Admin_ID Else WhereStr="Admin_User='"&Admin_User&"'"
Set AdData = Conn.Query("EfangAdmin",WhereStr)
if AdData.BOF or AdData.EOF then ShowErMsg("对不起，超级用户不存在！")
If Cmd="Upd" then
If Conn.Num("EfangAdmin","Admin_User='"&Admin_User&"'")>0 And AdData("Admin_User")<>Admin_User Then
ShowErMsg("对不起，重命名系统用户帐号时重覆！")
End If
For i = 1 to 200
Tmp=Request("POP_"&i&"")
If Tmp<>1 Then
Tmp=0
End If
Admin_Popedom=Admin_Popedom&Tmp
next
If AdData("Admin_Flag")<>-1 then
EfsValue=EfsValue & "Admin_Popedom='"&Admin_Popedom&"',"
EfsValue=EfsValue & "Admin_State='"&Request("Admin_State")&"',"
End If
Admin_Pass = Request("Admin_Pass")
If Len(Admin_Pass)>0 Then
EfsValue=EfsValue&"Admin_Pass='"&Efang.PassMd5(Admin_Pass)&"',"
End If
EfsValue=EfsValue & "Admin_User='"&Admin_User&"',"
EfsValue=EfsValue&"Admin_RealName='"&Request("Admin_RealName")&"',"
EfsValue=EfsValue&"Admin_Memo='"&Request("Admin_Memo")&"'"
call Conn.Update("EfangAdmin",EfsValue,"Admin_ID=" & Admin_ID)
Call ShowErMsgGo("修改成功！","?Admin_ID=" & Admin_ID)
Elseif Cmd = "Del" then
call Conn.Delete("EfangAdmin","Admin_ID=" & Admin_ID)
WriteLog "删除超级用户 - "&AdData("Admin_User")
Call ShowErMsgGo("【提醒您】\n\n 超级用户 "&AdData("Admin_User")&" 已经成功删除！","SysUser.asp")
End if
%>
<html>
<head>
<title>修改用户</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link id="style_sheet" href="css/save.css" type="text/css" rel="stylesheet">
<script language="JavaScript">style_sheet.href = parent.parent.style_sheet.href;</script>
<%=Efs_Cfg_PHeader%>
<style type="text/css">
<!--
.unnamed1 {
color: #FF0000;
font-weight: bold;
}
-->
</style>
</head>
<script language="JavaScript" src="js/common_Efang.js"></script>
<body class="NormalPage">
<form id="form_help" action="help_content.asp" method="get" target="working_area">
<input name="help_topic" type="hidden" value="用户管理">
</form>
<form action="?Cmd=Upd" method="POST" name="Udp" id="Udp" onSubmit="return CheckForm(this)">
<table width="100%" height="100%" border="0" cellpadding="0" cellspacing="0">
<tr>
<td id="headerToolBar" valign="middle" nowrap style="width:100%; height:22px;"><table cellpadding="0" cellspacing="0" class="HeaderPageControl">
<tr>
<td align="left" valign="middle" nowrap height="20">系统设置>> 系统参数设置 >> <b></b><b>修改用户</b></td>
<td align="center" valign="middle" nowrap width="10" height="20"></td>
<td align="right" valign="middle" width="100%" nowrap height="20"></td>
<td align="center" valign="middle" nowrap width="10" height="20"></td>
<td align="right" valign="middle" width="60" nowrap height="20"><img id="id_back" alt="返回上一页" onclick="JavaScript:history.back()" onmouseover="JavaScript:this.src=imgBackUp.src" onmouseout="JavaScript:this.src=imgBackDown.src" src="images/toolbar_back.gif" border="0" style="cursor:hand;width:22px; height:20px;"><img id="id_refresh" alt="刷新" onclick="JavaScript:fn_Refresh()" onmouseover="JavaScript:this.src=imgRefreshUp.src" onmouseout="JavaScript:this.src=imgRefreshDown.src" src="images/toolbar_refresh.gif" border="0" style="cursor:hand;width:22px; height:20px;"></td>
<td align="right" valign="middle" width="25" nowrap height="20"><img id="id_locate" alt="帮助" onclick="JavaScript:fn_ShowHelp()" onmouseover="JavaScript:this.src=imgHelpUp.src" onmouseout="JavaScript:this.src=imgHelpDown.src" src="images/toolbar_help.gif" border="0" style="cursor:hand;width:22px; height:20px;"></td>
</tr>
</table></td>
</tr>
<tr>
<td valign="top">
<div id="viewPanel" style="visibility:visible; position:absolute; overflow:auto;">
<br>
<table width="85%" border="0" align="center" cellpadding="0" cellspacing="0" class="datalist">
<tr>
<td class="DataGroup" valign="top"><table width="100%" border="0" align="center" cellPadding="0" cellSpacing="0" class="datalist">
<tr>
<td width="19%" height="28" align="right">用户帐号：</td>
<td width="81%">
<input name="Admin_User" type="text" class="InputOne" value="<%=AdData("Admin_User")%>" size="20" maxlength="20">
<input name="Admin_ID" type="hidden" value="<%=AdData("Admin_ID")%>">
<font color="#FF0000">
<%
If AdData("Admin_Flag")=-1 Then
Response.Write "[系统内置用户]"
End If
%>
</font> </td>
</tr>
<tr>
<td width="19%" height="28" align="right">密码：</td>
<td width="81%">
<input name="Admin_Pass" type="password" class="InputOne" id="Admin_Pass" size="22" maxlength="20">
（长度不能小于五位，为空时将不修改密码）</td>
</tr>
<tr>
<td height="28" align="right">确认密码：</td>
<td>
<input name="Admin_Pwd" type="password" class="InputOne" id="Admin_Pwd" size="22" maxlength="20"> </td>
</tr>
<tr>
<td width="19%" height="28" align="right">姓名/呢称：</td>
<td width="81%">
<input name="Admin_RealName" type="text" class="InputOne" value="<%=AdData("Admin_RealName")%>" size="20"></td>
</tr>
<tr>
<td width="19%" height="28" align="right">创建时间：</td>
<td width="81%"><%=AdData("Admin_CTime")%></td>
</tr>
<tr>
<td width="19%" height="28" align="right">状态：</td>
<td width="81%">
<%If AdData("Admin_Flag")=-1 Then%>
正常
<%Else%>
<select name="Admin_State">
<option value="1" <%
If AdData("Admin_State")=1 Then
Response.Write "selected"
End If
%>>正常</option>
<option value="2"<%
If AdData("Admin_State")=2 Then
Response.Write "selected"
End If
%>>锁定</option>
</select>
<%End If%> </td>
</tr>
<tr align="center">
<td height="28" align="right">权限设置： </td>
<td height="28"> </td>
</tr>
<tr>
<td width="19%" height="28" align="right"> </td>
<td width="81%">
<%If AdData("Admin_Flag")=-1 Then%>
<font color="#FF0000"><strong>系统默认内置帐号拥有所有权限</strong></font>
<%Else%>
<table width="99%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="25%" height="26">
<input name="POP_11" type="checkbox" id="POP_11" value="1">
<font color="#CC3333"><strong>用户管理</strong></font></td>
<td width="25%">
<input name="POP_12" type="checkbox" id="POP_12" value="1">
<strong><font color="#CC3333">日志查看</font></strong> </td>
<td width="25%"><input name="POP_13" type="checkbox" id="POP_13" value="1">
<strong><font color="#CC3333">系统设置</font></strong></td>
<td width="25%"><input name="POP_14" type="checkbox" id="POP_14" value="1">
<strong><font color="#CC3333">公告管理</font></strong> </td>
</tr>
<tr>
<td height="26"><input name="POP_15" type="checkbox" id="POP_153" value="1">
<strong><font color="#0000FF">商品管理 </font></strong></td>
<td> </td>
<td> </td>
<td> </td>
</tr>
<tr>
<td width="25%" height="26">
<input name="POP_3" type="checkbox" value="1">
<strong><font color="#0000FF">会员管理</font></strong></td>
<td width="25%"><input name="POP_31" type="checkbox" value="1">
信用额度 </td>
<td width="25%"><input name="POP_32" type="checkbox" value="1">
服务专员</td>
<td width="25%"><input name="POP_33" type="checkbox" value="1">
会员状态</td>
</tr>
<tr>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -