📄 manage_admin.asp

📁 商城源码程序(上海数字商城整站) 功能列表：商品管理

💻 ASP

字号:


<!--#include file="conn.asp"-->
<%call time_out()%>
<%
if instr(session("proview"),"s2")=0  then
response.Write "<script language=javascript>alert('您无权操作!');window.location.href='index.asp';</script>"
response.end
end if%>
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>无标题文档</title>
</head>

<body>
<table width="100%" border="0" cellpadding="0" cellspacing="1">
  <tr align="center" bgcolor="6699cc">
    <td width="15%" height="25">用户名</td>
    <td>权限</td>
    <td width="15%">修改</td>
    <td width="15%">删除</td>
  </tr>
  <%sql="select * from sys_admin order by aid desc"
    set rs=server.CreateObject("adodb.recordset")
    rs.open sql,conn,1,1
	if rs.eof and rs.bof then%>
	<tr><td colspan="4">暂无管理员</td></tr>
	<%else
	i=0
	  do while not rs.eof
	  if (i mod 2)=0 then
	  bgcolor="#ffffff"
	  else
	  bgcolor="#E4ECF3"
	  end if
	  %>
  <tr bgcolor="<%=bgcolor%>">
    <td height="25" align="center"><%=rs("admin_name")%></td>
    <td>
	<%
	if instr(trim(rs("proview")),"s1")<>0  then
response.Write "商品管理"&"&nbsp;"
end if
	if instr(trim(rs("proview")),"s2")<>0  then
response.Write "用户管理"&"&nbsp;"
end if
	if instr(trim(rs("proview")),"s3")<>0  then
response.Write "新闻问题"&"&nbsp;"
end if
	if instr(trim(rs("proview")),"s4")<>0  then
response.Write "社区管理"&"&nbsp;"
end if
	if instr(trim(rs("proview")),"s5")<>0  then
response.Write "系统管理/其他设置"&"&nbsp;"
end if

	%>
	</td>
    <td align="center"><a href="editadmin.asp?aid=<%=rs("aid")%>">修改</a></td>
    <td align="center"><a href="save_admin.asp?action=del&aid=<%=rs("aid")%>" onClick="return confirm('确定删除？')">删除</a></td>
  </tr>
  <%rs.movenext
  i=i+1
    loop
	end if
	rs.close:set rs=nothing%>
</table>
</body>
</html>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -