📄 manageadmin.asp
字号:
<!--#include file="conn.asp"-->
<%if session("admin")="" then
response.Write "<script language='javascript'>alert('网络超时或您还没有登陆！');window.location.reload('login.asp')</script>"
response.End
else
if session("flag")>1 then
response.Write "<script language=javascript>alert('你没有此项权限!') </script>"
response.End
end if
end if
%>
<html>
<head>
<title>Untitled Document</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="../images/css2.css" rel="stylesheet" type="text/css">
</head>
<body>
<table width="90%" height="450" border="0" cellpadding="0" cellspacing="0">
<tr>
<td bgcolor="#ece9d8"><br>
<table width="98%" border="0" align=center cellpadding="0" cellspacing="0">
<tr><td>
<table width=77 border="0" cellpadding="0" cellspacing="0">
<tr valign=bottom>
<td background=images/get_img.gif width=77 height=26><P style='PADDING-LEFT: 7px'><div align="center"><font color=#ffffff>增加用户</font></div></td>
</tr>
</table>
<table width="100%" border="1" align=center cellspacing="0" cellpadding="0" bordercolordark="#ffffff" bordercolorlight="#666666">
<tr><td colspan=2 valign=top>
<table width="100%" border="0" cellpadding="" cellspacing="0">
<form name="form1" method="post" action="saveadmin.asp?action=add">
<tr>
<td height=28 STYLE='PADDING-LEFT: 8px' bgcolor="#cccccc">
用户名 <input name="admin" type="text" class="tx" size="15">
密码 <input name="password" type="text" class="tx" size="12">
权限 <input type="radio" name="flag" value="1" checked>管理
<input type="radio" name="flag" value="2">添加
<input type="radio" name="flag" value="3">查看
<input type="submit" name="Submitadd" class="bt5" value="添 加"></td>
</tr>
</form>
</table>
<tr><td valign=top>
<table width="100%" border="1" align=center cellspacing="0" cellpadding="0" >
<tr><td bgcolor="#eeeeee">
<table width="100%" border="0" cellspacing="0" cellpadding="0" width="211">
<tr height=25>
<td><div align="center">用户名</div>
<td><div align="center">权 限</div>
<td><div align="center">修 改</div>
<td><div align="center">操 作</div>
</tr>
<%set rs=server.CreateObject("adodb.recordset")
rs.Open "select * from shop_admin order by flag",conn,1,1
do while not rs.EOF%>
<tr height=23>
<td bgcolor="#ffffff"><div align="center" bgcolor="#eeeeee"><%=trim(rs("admin"))%></div>
<td bgcolor="#ffffff"><div align="center">
<%select case trim(rs("flag"))
case "1"
response.Write "管理员"
case "2"
response.Write "操作员"
case "3"
response.Write "操作员"
end select%></div>
<td bgcolor="#ffffff"><div align="center"><a href="manageadmin.asp?action=edit&id=<%=int(rs("adminid"))%>"><font color=red>修改</font></a></div></td>
<td bgcolor="#ffffff"><div align="center"><a href="saveadmin.asp?id=<%=int(rs("adminid"))%>&action=del" onClick="return confirm('您确定要删除此用户吗？')"><font color=red>删除</font></a></div></td>
</tr>
<%rs.movenext
loop
rs.close
set rs=nothing%>
</tr>
</table>
</tr>
</table>
<%dim adminid,action
adminid= request.QueryString("id")
action = request.QueryString("action")
select case action
case ""%>
<td height=200 valign=top width="40%">
<table width="100%" border="1" cellpadding="0" cellspacing="0">
<tr>
<td STYLE='PADDING-LEFT: 8px' bgcolor="#eeeeee">用户： <input name="null" type="text" size="15" disabled=false></td>
</tr>
<tr>
<td STYLE='PADDING-LEFT: 8px' bgcolor="#eeeeee">密码： <input name="null" type="text" size="12" disabled=false></td>
</tr>
<tr>
<td STYLE='PADDING-LEFT: 8px' bgcolor="#eeeeee">权限：
<input type="radio" name="flag2" value="1" checked disabled=false>管理
<input type="radio" name="flag2" value="2" disabled=false>添加
<input type="radio" name="flag2" value="3" disabled=false>查看</td>
</tr>
<tr>
<td align=center bgcolor="#cccccc"><input type="button" name="null" class="bt5" value="保 存" disabled=false></td>
</tr>
</table>
</tr>
</table>
<%case "edit"
set rs=server.CreateObject("adodb.recordset")
rs.open "select * from shop_admin where adminid="&adminid,conn,1,3%>
<td height=400 valign=top width="40%">
<table width="100%" border="1" cellpadding="0" cellspacing="0">
<form name="form1" method="post" action="saveadmin.asp?action=edit&id=<%=int(rs("adminid"))%>">
<tr>
<td STYLE='PADDING-LEFT: 8px' bgcolor="#eeeeee">用户： <input name="adminx" type="text" size="15" value=<%=rs("admin")%>></td>
</tr>
<tr>
<td STYLE='PADDING-LEFT: 8px' bgcolor="#eeeeee">密码： <input name="passwordx" type="text" size="12" value="000000"></td>
</tr>
<tr>
<td STYLE='PADDING-LEFT: 8px' bgcolor="#eeeeee">权限：
<% select case rs("flag")
case "1" %>
<input type="radio" name="flagx" value="1" checked>管理
<input type="radio" name="flagx" value="2">添加
<input type="radio" name="flagx" value="3">查看</td>
<%case "2" %>
<input type="radio" name="flagx" value="1" >管理
<input type="radio" name="flagx" value="2" checked>添加
<input type="radio" name="flagx" value="3">查看</td>
<%case "3" %>
<input type="radio" name="flagx" value="1" >管理
<input type="radio" name="flagx" value="2">添加
<input type="radio" name="flagx" value="3" checked>查看</td>
<%end select%>
</tr>
<tr>
<td align=center bgcolor="#cccccc"><input type="submit" name="Submit2" class="bt5" value="保 存"></td>
</tr>
</form>
</table>
<%end select%>
</tr>
</table>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -