📄 administratormanage.asp
字号:
<!--#include file="CheckAdminLogined.asp"-->
<!--#include file="../include/connstr.asp"-->
<!--#include file="../include/DefFunction.asp"-->
<!--#include file="../include/md5.asp"-->
<!--#include file="SystemMenu.asp"-->
<%
if request("cur_action")="addsave" then
sql_addsave="insert into tManageUser(LoginID,TrueName,PassWord,PopFlag,LastlyDate,IpAddress,StateFlag) values('"&MyRequest(request("T_LoginID"))&"','"&MyRequest(request("T_TrueName"))&"','"&md5(request("T_PassWord"))&"','"&request("SelectID")&"',null,null,"&request("R_StateFlag")&")"
conn.execute sql_addsave
response.write "<script>location.replace('AdministratorManage.asp');</script>"
response.End()
end if
if request("cur_action")="editsave" then
if request("T_LoginID")<>request("H_LoginID") then
set rs_editsave=server.CreateObject("adodb.recordset")
sql_editsave="select * from tManageUser where LoginID='"&request("T_LoginID")&"'"
rs_editsave.open sql_editsave,conn,1,1
if not(rs_editsave.eof and rs_editsave.bof) then
response.write "<script>alert('已经有该用户存在，按确定返回核对！');history.back();</script>"
response.End()
end if
end if
if request("T_PassWord")<>"" then
sql_editsave="update tManageUser set LoginID='"&MyRequest(request("T_LoginID"))&"',TrueName='"&MyRequest(request("T_TrueName"))&"',PassWord='"&md5(request("T_PassWord"))&"',PopFlag='" &request("SelectID")&"',StateFlag="&request("R_StateFlag")&" where LoginID='"&request("EditID")&"'"
else
sql_editsave="update tManageUser set LoginID='"&MyRequest(request("T_LoginID"))&"',TrueName='"&MyRequest(request("T_TrueName"))&"',PopFlag='" &request("SelectID")&"',StateFlag="&request("R_StateFlag")&" where LoginID='"&request("EditID")&"'"
end if
conn.execute sql_editsave
response.write "<script>location.replace('AdministratorManage.asp?PageNo="&request("PageNo")&"');</script>"
response.End()
end if
if request("cur_action")="delete" then
sql_delete="delete from tManageUser where LoginID='"&request("EditID")&"'"
conn.execute sql_delete
response.write "<script>location.replace('AdministratorManage.asp?PageNo="&request("PageNo")&"');</script>"
response.End()
end if
if request("cur_action")="lock" then
sql_lock="update tManageUser set StateFlag=0 where LoginID='"&request("EditID")&"'"
conn.execute sql_lock
response.write "<script>location.replace('AdministratorManage.asp?PageNo="&request("PageNo")&"');</script>"
response.End()
end if
if request("cur_action")="unlock" then
sql_lock="update tManageUser set StateFlag=2 where LoginID='"&request("EditID")&"'"
conn.execute sql_lock
response.write "<script>location.replace('AdministratorManage.asp?PageNo="&request("PageNo")&"');</script>"
response.End()
end if
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<title>企业网站后台管理_诚一阀门</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<script src="/include/jchar.js"></script>
<script language="JavaScript">
function MM_jumpMenu(targ,selObj,restore){ //v3.0
eval(targ+".location='"+selObj.options[selObj.selectedIndex].value+"'");
if (restore) selObj.selectedIndex=0;
}
function check_data(form){
if(Jtrim(form.T_LoginID.value)==""){
alert("你没有填写用户，请填写！")
form.T_LoginID.focus();
return(false)
}
}
</script>
<script language="JavaScript" type="text/JavaScript">
<!--
function MM_jumpMenu(targ,selObj,restore){ //v3.0
eval(targ+".location='"+selObj.options[selObj.selectedIndex].value+"'");
if (restore) selObj.selectedIndex=0;
}
//-->
</script>
<link href="Images/AdminCss.css" rel="stylesheet" type="text/css">
</head>
<body leftmargin="0" topmargin="0">
<table width="99%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td height="8" colspan="2"></td>
</tr>
<tr>
<td width="76" height="20" rowspan="2"><img src="Images/TopBt.gif" width="67" height="36"></td>
<td width="906" height="10"></td>
</tr>
<tr>
<td>我的位置：后台管理系统._基本信息._操作员管理</td>
</tr>
<tr>
<td height="4" colspan="2"></td>
</tr>
<tr>
<td colspan="2"><table width="100%" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="E7E7E7">
<tr>
<td height="20"><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="159" height="20" align="center" background="images/title1.gif" class="fontwintitle"><strong>操作员管理</strong></td>
<td align="right" background="images/title2.gif"><img src="Images/Topicon.gif" width="11" height="11" align="absmiddle"> <a href="?cur_action=add"><font color="ff0000"><strong>创建操作员帐号</strong></font></a> </td>
<td width="10"><img src="images/title3.gif" width="10" height="20"></td>
</tr>
</table></td>
</tr>
<tr valign="top">
<td><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="6" background="images/midder1.gif"><img src="images/midder1.gif" width="6" height="3"></td>
<td height="100%" align="center" valign="top">
<% if request("cur_action")="add" then%>
<br>
<table width="98%" border="0" cellpadding="0" cellspacing="1" bgcolor="#000000">
<form name="form1" method="post" action="?cur_action=addsave">
<tr>
<td height="22" colspan="2" align="center" bgcolor="#FFFFFF" class="fonttitle"><strong><font color="#CC0000">创建操作员帐号</font></strong></td>
</tr>
<tr>
<td width="15%" height="26" align="right" bgcolor="ECF2D6">
<font color="#FF0000">*</font> 用户名：</td>
<td width="85%" bgcolor="#FFFFFF"> <input name="T_LoginID" type="text" id="T_LoginID" size="30"></td>
</tr>
<tr>
<td height="26" align="right" bgcolor="ECF2D6"> 操作员姓名：</td>
<td bgcolor="#FFFFFF"> <input name="T_TrueName" type="text" id="T_TrueName" size="30"></td>
</tr>
<tr>
<td height="26" align="right" bgcolor="ECF2D6"> 密码：</td>
<td bgcolor="#FFFFFF"> <input name="T_PassWord" type="text" id="T_PassWord" size="30">
</td>
</tr>
<tr>
<td height="22" align="right" bgcolor="ECF2D6">帐号性质：</td>
<td bgcolor="#FFFFFF"> <input name="R_StateFlag" type="radio" value="2" checked>
正常
<input type="radio" name="R_StateFlag" value="0">
禁用</td>
</tr>
<tr>
<td height="22" align="right" bgcolor="ECF2D6">操作权限：<br>
<input type="checkbox" name="chkall" value="on" onClick="CheckAll(this.form)">
<font color="#CC0000"><b>全选</b></font> </td>
<td align="center" bgcolor="#FFFFFF"> <table width="98%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td><br> <% for i=0 to ubound(ManageMenu,1)
if isempty(ManageMenu(i,10)) then exit for
response.write "<font color='669900'><b>"&ManageMenu(i,10)&"</b></font><br>"
for j=11 to ubound(ManageMenu,2)
if isempty(ManageMenu(i,j)) then exit for
%> <%if (j mod 6)=0 then response.write "<br>" %> <input type="checkbox" name="SelectID" value="<%=i&j%>">
<%=ManageMenu(i,j)%> <%next%> <br> <%next%> <br> </td>
</tr>
</table></td>
</tr>
<tr>
<td height="31" colspan="2" align="center" bgcolor="#FFFFFF"><input type="submit" name="Submit" value="正确提交" onClick="return check_data(this.form)">
<input type="reset" name="Submit2" value="重新填写"> <input type="button" name="Submit3" value="返回" onClick="javascript:history.back();"></td>
</tr>
</form>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -