📄 admin.asp
字号:
<!--#include file="../conn2.asp"-->
<!--#include file="../inc/config.asp"-->
<!--#include file="set.asp"-->
<%Set rs = Server.CreateObject("ADODB.Recordset")
sql = "SELECT * FROM shop_user where manbid>0"
rs.open sql, conn, 1, 3
%><head>
<LINK
href="css.css" type=text/css rel=stylesheet>
<style type="text/css">
<!--
.style1 {color: #000000}
-->
</style>
</head>
<body>
<p align="center"><br>
<div align="center">
<center>
<table width="90%" border="0" align="center" cellpadding="2" cellspacing="1" bordercolordark="#FFFFFF" bgcolor="#CCCCCC">
<tr bgcolor="f1f1f1">
<td height="25" colspan="4" class="norightbuttonborder2"><div align="center" class="style1">社区版主管理 <a href="add_admin.asp">添加管理员</a></div></td>
</tr>
<tr bgcolor="#FFFFFF">
<td width="48%" height="25"> <p align="center"><b>用户名</b></p></td>
<td width="24%" height="25"> <p align="center"><b>管理论坛</b></td>
<td height="25" colspan="2"> <p align="center"><b>操作</b></td>
</tr>
<%do while not rs.eof%>
<tr bgcolor="#FFFFFF">
<td width="48%" height="25"> <p align="center"><%if session("username")=rs("username") then%><font color=red><%=rs("username")%></font><%else%><%=rs("username")%><%end if%> </p></td>
<td width="24%" height="25"> <p align="center">
<%if rs("manbid")=20000 then
response.write"论坛管理员"
else
set bidreco=server.createobject("adodb.recordset")
sqlstr="select * from board where bid="&rs("manbid")&""
bidreco.open sqlstr,conn,1,1
%>
<%=bidreco("bidname")%>
<%end if%>
</p></td>
<td width="14%" height="25"> <p align="center"><%if session("username")=rs("username") then%>修改<%else%><a href="add_admin.asp?username=<%=rs("username")%>">修改</a><%end if%></td>
<td width="14%" height="25"> <p align="center"><%if session("username")=rs("username") then%>删除<%else%><a href="#" onclick="if(confirm('真的要删除吗？')){window.location.href='add_admin.asp?id=<%=rs("userid")%>&menu=del'}"> <strong>删除</strong></a><%end if%></td>
</tr>
<%rs.movenext
loop%>
</table>
</center>
</div>
</body>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -