📄 sysuser.asp
字号:
<!-- #include file="../inc_config.asp" -->
<!-- #include file="LoginCk.asp" -->
<%
Call PopCheck(11)
if Cmd = "Add" then
Admin_User = Request("Admin_User")
If Conn.Num("EfangAdmin","Admin_User='" & Admin_User & "'")>0 Then
ShowErMsg("系统用户帐号重覆！") : Response.End
End If
call Conn.Insert("EfangAdmin","Admin_User,Admin_RealName","'"&Admin_User&"','"&Admin_User&"'")
WriteLog "创建系统用户 - "&Admin_User
Call ShowErMsgGo("系统用户创建成功！","SysUser_Upd.asp?Admin_User=" & Admin_User)
Response.End
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%>
</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>
<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">
<th width="20%" height="25" align="center" nowrap class="DataListHeader">用户帐号</th>
<th width="25%" height="25" align="center" nowrap class="DataListHeader">姓名/呢称</th>
<th width="14%" align="center" nowrap class="DataListHeader">状态</th>
<th width="30%" height="25" align="center" nowrap class="DataListHeader">创建时间</th>
<th width="11%" align="center" nowrap class="DataListHeader">操作</th>
<%
Set AdData=Conn.Query("EfangAdmin","Order By Admin_CTime")
Do while not (AdData.EOF or AdData.BOF)
If AdData("Admin_Flag")=-1 Then Sty="font-weight: bold" Else Sty=""
%>
<tr>
<td width="20%" height="25" align="center" nowrap class="DataListGrid"><%=AdData("Admin_User")%></td>
<td width="25%" align="center" nowrap class="DataListGrid"> <%=AdData("Admin_RealName")%> </td>
<td width="14%" align="center" nowrap class="DataListGrid"> <%
If AdData("Admin_State")=1 Then
Response.Write "正常"
ElseIf AdData("Admin_State")=2 Then
Response.Write "锁定"
End If
%> </td>
<td width="30%" align="center" nowrap class="DataListGrid"> <%=AdData("Admin_CTime")%></td>
<td width="11%" align="center" nowrap class="DataListGrid"> <a href="SysUser_Upd.asp?Admin_ID=<%=AdData("Admin_ID")%>" class="CommonFace">修改</a></td>
</tr>
<%
AdData.movenext
Loop
Set AdData=Nothing
%>
</table>
<br>
<table width="80%" border="0" align="center" cellpadding="0" cellspacing="0">
<form name="form1" method="post" action="?Cmd=Add" onSubmit="return CheckForm(this)"><tr>
<td>
新帐号：
<input name="Admin_User" type="text" class="InputOne" id="Admin_User" maxlength="20">
<input name="Submit" type="submit" class="ButtonOne" value="创建新用户">
<script language="JavaScript">
function CheckForm(form){
if (form.Admin_User.value=="") {
alert("请填写新帐号！");
form.Admin_User.focus();
return false;
}
return true;
}
</script>
</td>
</tr></form>
</table>
</div>
</td>
</tr>
</table>
<% Call ExitEnd(False) %>
</body>
<script language="JavaScript">
<!--
document.parentWindow.onresize = fn_RejustViewPanel ;
fn_RejustViewPanel ( ) ;
//alert ( document.body.clientWidth + ":" + viewPanel.clientWidth ) ;
//-->
</script>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -