📄 manageadmin.asp
字号:
<!--#include file="conn.asp"-->
<!--#include file="adminset.asp"-->
<%if session("admin")="" then
response.Write "<script language='javascript'>alert('网络超时或您还没有登陆！');window.location.href='login.asp';</script>"
response.End
end if
'if session("flag")>1 then
'response.Write "<div align=center><font size=80 color=red><b>您没有此项目管理权限！</b></font></div>"
'response.End
'end if
'if qx6<>1 then
'response.Write "<div align=center><font size=80 color=red><b>您没有此项目管理权限！</b></font></div>"
'response.End
'end if
%>
<html>
<head>
<title>Untitled Document</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="../css.css" rel="stylesheet" type="text/css">
</head>
<body>
<table width="100%" border="0" cellpadding="0" cellspacing="0" background="images/right_top2.gif">
<tr>
<td width="1%"> </td>
<td width="99%"><table width="100%" border="0" cellspacing="0" cellpadding="5">
<tr>
<td width="30%" style="font-size:14px;color:#ffffff"> <strong><font color="#000000">后台用户管理</font></strong></td>
<td width="70%" align="right"> </td>
</tr>
</table></td>
</tr>
</table>
<br>
<table width="90%" border="0" align="center" cellpadding="3" cellspacing="1" bgcolor="#9DB2D4">
<%set rs=server.CreateObject("adodb.recordset")
rs.Open "select * from shop_admin order by flag",conn,1,1
do while not rs.EOF
qx=rs("qx")
qx=split(qx,",")
qx1=qx(0)
qx2=qx(1)
qx3=qx(2)
qx4=qx(3)
qx5=qx(4)
qx6=qx(5)
qx7=qx(6)
qx8=qx(7)
qx9=qx(8)
qx10=qx(9)
qx11=qx(10)
qx12=qx(11)
qx13=qx(12)
qx14=qx(13)
qx15=qx(14)
qx16=qx(15)
qx17=qx(16)
qx18=qx(17)
qx19=qx(18)
qx20=qx(19)
%>
<form name="form1" method="post" action="saveadmin.asp?action=edit&id=<%=int(rs("adminid"))%>">
<tr bgcolor="#FFFFFF">
<td colspan="2" bgcolor="#C7D3E6"> 管理员
<input name="admin" type="text" class="wenbenkuang" size="12" value="<%=trim(rs("admin"))%>">
密 码
<input name="password" type="text" size="12" class="wenbenkuang">
权 限
<%select case rs("flag")
case "1"
response.Write "<input type=radio name=flag value=1 checked>管理 <input name=flag type=radio value=2 >查看"
case "2"
response.Write "<input type=radio name=flag value=1>管理 <input name=flag type=radio value=2 checked>查看"
end select%> <input type="submit" name="Submit" value="修 改" class="go-wenbenkuang"> <a href="saveadmin.asp?id=<%=int(rs("adminid"))%>&action=del" onClick="return confirm('您确定要删除此用户吗？')"><font color=red>删除</font></a>
<div align="center"> </div> <div align="center"> </div> <div align="center"> </div></td>
</tr>
<tr bgcolor="#FFFFFF">
<td colspan="2" bgcolor="#F0F3F8"><div align="center"></div> <div align="center"></div> <div align="center">
</div> <table width="95%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td><input name="qx" type="checkbox" id="qx" value="1" <%if qx1=1 then%>checked<%end if%>>
商品管理
<input name="qx2" type="checkbox" id="qx2" value="1" <%if qx2=1 then%>checked<%end if%>>
分类管理
<input name="qx3" type="checkbox" id="qx3" value="1" <%if qx3=1 then%>checked<%end if%>>
订单管理
<input name="qx4" type="checkbox" id="qx4" value="1" <%if qx4=1 then%>checked<%end if%>>
访问统计
<input name="qx5" type="checkbox" id="qx5" value="1" <%if qx5=1 then%>checked<%end if%>>
货运设置
<input name="qx6" type="checkbox" id="qx6" value="1" <%if qx6=1 then%>checked<%end if%>>
用户管理
<input name="qx7" type="checkbox" id="qx7" value="1" <%if qx7=1 then%>checked<%end if%>>
省市管理<br>
<input name="qx8" type="checkbox" id="qx8" value="1" <%if qx8=1 then%>checked<%end if%>>
VIP 管理
<input name="qx9" type="checkbox" id="qx9" value="1" <%if qx9=1 then%>checked<%end if%>>
积分管理
<input name="qx10" type="checkbox" id="qx10" value="1" <%if qx10=1 then%>checked<%end if%>>
新闻管理
<input name="qx11" type="checkbox" id="qx11" value="1" <%if qx11=1 then%>checked<%end if%>>
专题管理
<input name="qx12" type="checkbox" id="qx12" value="1" <%if qx12=1 then%>checked<%end if%>>
供求管理
<input name="qx13" type="checkbox" id="qx13" value="1" <%if qx13=1 then%>checked<%end if%>>
广告管理
<input name="qx14" type="checkbox" id="qx14" value="1" <%if qx14=1 then%>checked<%end if%>>
会员帮助<br>
<input name="qx15" type="checkbox" id="qx15" value="1" <%if qx15=1 then%>checked<%end if%>>
日常信息
<input name="qx16" type="checkbox" id="qx16" value="1" <%if qx16=1 then%>checked<%end if%>>
邮件管理
<input name="qx17" type="checkbox" id="qx17" value="1" <%if qx17=1 then%>checked<%end if%>>
合作伙伴
<input name="qx18" type="checkbox" id="qx18" value="1" <%if qx18=1 then%>checked<%end if%>>
论坛聊天
<input name="qx19" type="checkbox" id="qx19" value="1" <%if qx19=1 then%>checked<%end if%>>
日记管理
<input name="qx20" type="checkbox" id="qx20" value="1" <%if qx20=1 then%>checked<%end if%>>
系统管理
<input type="checkbox" name="checkbox2" value="Check All" onClick="mm()">
全部选中 </td>
</tr>
</table></td>
</tr>
</form>
<%rs.movenext
loop
rs.close
set rs=nothing
%>
</table>
<br>
<br>
<!--#include file="copyright.asp"-->
</body>
</html>
<script language=javascript>
function mm()
{
var a = document.getElementsByTagName("input");
if(a[0].checked==true){
for (var i=0; i<a.length; i++)
if (a[i].type == "checkbox") a[i].checked = false;
}
else
{
for (var i=0; i<a.length; i++)
if (a[i].type == "checkbox") a[i].checked = true;
}
}
</script>
<script language=javascript>
function mm1()
{
var a = document.getElementsByTagName("input");
if(a[0].checked==true){
for (var i=0; i<a.length; i++)
if (a[i].type == "checkbox") a[i].checked = false;
}
else
{
for (var i=0; i<a.length; i++)
if (a[i].type == "checkbox") a[i].checked = true;
}
}
</script>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -