admin.asp

一个漂亮的网络工作室源码 后台地址:/admin 用户名:admin 密码:admin888

<!--#include file="conn.asp"-->
<!--#include file="config.asp"-->
<!--#include file="md5.asp"-->
<!--#include file="top.asp"-->
<%
if Cint(Request.Cookies("IsSuper"))<>1 then
Response.Redirect("Default.asp")
Response.End()
End If
dim strFileName
strFileName="admin.asp"
pageno=15
%>
<table width="770" border="0" align="center" cellpadding="0" cellspacing="1" class="tablecolor">
  <tr class="banner"> 
    <td height="25" align="center" >管理员权限</td>
    <td width="40" align="center" ><a href="addadmin.asp">添加</a></td>
  </tr>
</table>
<% 
select case request("action")
case "del"
call del()
case else
call normal()
end select
sub normal()
dim rs
set rs=server.CreateObject("adodb.recordset")
rs.open "select * from admin where adminname<>'flying'",conn,1,1
rscount=rs.recordcount
if  rscount>=1 then
call showsql(pageno)
%>
<table border="0" align="center" cellpadding="0" cellspacing="1"  class="tablecolor">
  <tr > 
    <td height="25" align="center" class="tablebody">用户名</td>
    <td width="20%" align="center" class="tablebody">权限</td>
    <td width="10%" align="center" class="tablebody">删除</td>
  </tr>
<%
rs.move(rsno)
for i=1 to loopno
%>
  <tr > 
    <td height="25" align="center" class="tablebody"><a href="addadmin.asp?id=<%=rs("id")%>"><%=rs("adminname")%></a></td>
    <td align="center" class="tablebody" style="color:red;">
	<%
    if rs("IsSuper")=1 then
	response.Write("超级管理员")
	else
	response.Write("普通管理员")
	end if
	%></td>
    <td align="center" class="tablebody"><a href="?action=del&id=<%=rs("id")%>">删除</a></td>
  </tr>
  <%
rs.movenext
next
%>
  <tr><td colspan="3" align="right"  class="tablebody"><%call showpage(strFileName,rscount,pageno,false,true,"名管理员")%></td>
  </tr>
</table>
<%
end if
end sub
sub del()
dim id
id=Request.QueryString("Id")
if Cint(Request.Cookies("admin")("userid"))=Cint(id) then
response.Write("<script>alert('对不起,您没不能删除自己！');history.back()</script>")
response.End()
end if
conn.execute("delete from admin where id="&id&"")
response.Write("<script>alert('删除成功！');location='admin.asp'</script>")
end sub
%>
<%CloseConn%>
<!--#include file="end.asp"-->