📄 adminadmin.asp

📁 Flash电子相册 v1.2 Build 1108完整版本下载
💻 ASP
字号:
<%@ LANGUAGE="VBSCRIPT" %>
<%
	  if session("admin")="" then
  response.redirect "admin.asp"
  else
	if session("flag")<>2 then
		response.write "<script>alert('对不起!你不是高级管理员!');history.back();</script>"
		response.end
	end if
  end if
%><!--#include file="conn.asp" -->
<%  Set rs= Server.CreateObject("ADODB.Recordset")
%>

<title>设置管理员 | WLONG3D文件上传系统wlup3.5</title>
<link rel="stylesheet" href="FORUM.CSS" type="text/css">
<script language="JavaScript" type="text/JavaScript">
<!--
function MM_goToURL() { //v3.0
  var i, args=MM_goToURL.arguments; document.MM_returnValue = false;
  for (i=0; i<(args.length-1); i+=2) eval(args[i]+".location='"+args[i+1]+"'");
}
//-->
</script>
<body bgcolor="#FFFFFF" text="#000000" link="#000000" vlink="#000000" alink="#FF0000">
<table width="95%" border="0" cellspacing="1" cellpadding="0" align="center" bgcolor="#6699FF">
  <tr bgcolor="#99CCFF"> 
    <td colspan="3" height="22"> <div align="center"><b>WLONG3D文件上传系统wlup3.5</b></div></td>
  </tr>
  <tr> 
    <td width="21%" bgcolor="#FFFFCC" valign="top"> <!--#include file="left.asp" --> </td>
    <td width="56%" bgcolor="#FFFFFF" align="center" valign="top">
	<% if request("doadmin")="" then
          call newadmin()
	   elseif request("doadmin")="savenew" then
	      call savenew()
	   elseif request("doadmin")="edit" then
	      call edit()
	   elseif request("doadmin")="del" then
	      call del()	
	   elseif request("doadmin")="saveedit" then
	      call saveedit()		  	  		  
	   end if
%>
	</td>
    <td width="23%" bgcolor="#FFFFFF" align="center" valign="top"><table width="100%" border="1" cellspacing="1" cellpadding="3" bordercolor="#6699FF">
        <tr> 
          <td bgcolor="#FFCC00"> 
            <div align="center">管理员名单</div>
          </td>
        </tr>
        <tr> 
          <td valign="top"> 
<% Set rsnew= Server.CreateObject("ADODB.Recordset")
	newsql="select * from admin order by id desc"
	rsnew.open newsql,conn,1,1
	if rsnew.eof and rsnew.bof then
	response.write "<div align=center>请先添加管理员!</div>"
	else
%>
            <table width="100%" border="0" cellspacing="1" cellpadding="3">
              <% 
   do while not rsnew.eof%>
              <tr> 
                <td width="12%" align="center"><font color="#FF0000">★</font> 
                </td>
                <td width="88%">
                  <div align="center"><a href="adminadmin.asp?doadmin=edit&glid=<%=rsnew("id")%>"><%=rsnew("adminname")%></a>[级别:<%=rsnew("aflag")%>] </div>
                </td>
              </tr>
              <%
	      rsnew.movenext
	loop
%>
            </table>
            <% end if 
   rsnew.close
   set rsnew=nothing
%>
          </td>
        </tr>
      </table></td>
  </tr>
  <tr> 
    <td colspan="3" bgcolor="#FFCC00" height="22" align="center"> 版权所有&nbsp;&copy;&nbsp;2003-2006 
      www.<a href="http://www.wlong3d.com">wlong3d.com</a> </td>
  </tr>
</table>
<% set rs=nothing
   conn.close
   set conn=nothing
sub newadmin()
%>
<form name="form1" method="post" action="adminadmin.asp?doadmin=savenew">
  <table width="90%" border="1" cellspacing="1" cellpadding="0" align="center" bordercolor="#6699FF" >
    <tr bgcolor="#FFCC00"> 
      <td height="25" colspan="2"> 
        <div align="center"><font color="#000000">新增管理员</font></div>
      </td>
    </tr>
    <tr> 
      <td height="30" bgcolor="#eeeeee" width="39%" align="right">管理员姓名</td>
      <td height="30" bgcolor="#eeeeee" width="61%">
        <input type="text" name="username" class="buttonface" size="20">
        </td>
    </tr>
    <tr> 
      <td height="30" bgcolor="#eeeeee" align="right" width="39%">登陆密码</td>
      <td height="30" bgcolor="#eeeeee" width="61%">
        <input name="passwd" type="text" class="buttonface" id="passwd" size="20">
        </td>
    </tr>
    <tr> 
      <td height="30" bgcolor="#eeeeee" colspan="2"> 
        <div align="center"> 
          <input name="flags" type="radio" class="buttonface" value="1" checked>
          普通管理员
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -