⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 admin_admin.asp

📁 非常一般
💻 ASP
字号:
🔍 
<%
 action = request("action")
%>
<HTML>
<HEAD>
<!--#include file="Admin_top.asp"-->
<meta http-equiv="Content-Type" content="text/html; charset=gb2312"><TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
  <TBODY>
  <TR>
    <TD vAlign=top width=210 bgColor=#f3f3f3>
  
      <div align="center">
<!--#include file="Admin_left.asp"-->
      </div>
	</TD>
    <TD width=1 bgColor=#0033CC></TD>
    <TD valign="top">
      <DIV align=center>
      <TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
        <TBODY>
        <TR>
          <TD height=1></TD></TR></TBODY></TABLE>
      <TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
        <TBODY>
        <TR>
          <TD height=1></TD></TR></TBODY></TABLE>
      <TABLE width=98% height=30 border=0 cellPadding=0 cellSpacing=0 bgcolor="#0033CC">
        <TBODY>
        <TR>
          <TD><font color="#FFFFFF">　<strong>管理员管理</strong></font></TD>
        </TR></TBODY></TABLE>
      <TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
        <TBODY>
        <TR>
          <TD height=1></TD></TR></TBODY></TABLE>
      <TABLE width=98% height=181 border=1 align=center cellPadding=5 cellSpacing=0 bordercolor="#0033CC" 
      bgColor=#cdcdcd>
        <TBODY>
<%
 Select Case Action
  Case 1
%>
        <TR bgColor=#fafafa>
          <TD height=80>
          <div align=center>
            <table border="0" width="60%" id="table4" height="94">
				<tr>
					<td bgcolor="#CDCDCD" align="center" width="20%" height="19">序号</td>
					<td bgcolor="#CDCDCD" align="center" width="40%" height="19">
					帐号</td>
					<td bgcolor="#CDCDCD" align="center" width="20%" height="19">
					状态</td>
					<td bgcolor="#CDCDCD" align="center" height="19" width="20%">操作</td>
				</tr>
<%
 Set rs = Server.CreateObject("ADODB.RecordSet") 
 Sql = "select * from Admin"
 Rs.Open sql,conn,1,3
 If not rs.eof then
 Count = rs.recordcount
 for i = 1 to Count
%>
				<tr>
					<td width="20%" bgcolor="#F0F0F0" align="center" height="22"><%=Rs("Admin_id")%></td>
					<td width="40%" bgcolor="#F0F0F0" align="center" height="22"><font color=#FF0000><%=Rs("Admin_User")%></font></td>
					<td width="20%" bgcolor="#F0F0F0" align="center" height="22">
					<%
					  Admin_Lock = rs("Admin_Lock") 
					  Select Case Admin_Lock
					    Case 0
					      Response.write "<font color=#009933><b>开放</b></font>"
					      Lock = "<b><a href=Admin_Action.asp?Action=12&id="&rs("Admin_id")&"&Lock=1><font color=#FF0000>锁</font></a></b>"
					    Case 1
					      Response.write "<font color=#FF0000><b>锁定</b></font>"
					      Lock = "<b><a href=Admin_Action.asp?Action=12&id="&rs("Admin_id")&"&Lock=0><font color=#009900>解</font></a></b>"
					  End Select
					%></td>
					<td bgcolor="#F0F0F0" align="center" height="22" width="20%">
					<a href="Admin_Admin.asp?Action=5&id=<%=rs("Admin_id")%>">查</a>
					<a href="Admin_Admin.asp?Action=3&id=<%=rs("Admin_id")%>">改</a>
					<a href="Admin_Action.asp?Action=11&id=<%=rs("Admin_id")%>">删</a>
					<% response.write Lock %></td>
				</tr>
<%
 rs.movenext
 Next
 Else
%>
				<tr>
					<td bgcolor="#F0F0F0" align="center" colspan="4" height="23">暂无记录</td>
				</tr>
<%
 End If
 Rs.close
 Set rs = nothing
%>
				<tr>
					<td bgcolor="#E3E3E3" align="center" colspan="4" height="20">
					<b>
					<u><a href="Admin_Admin.asp?action=2">新增管理员</a></u></b></td>
				</tr>
			</table>
			</div>
			</TD>
          </TR>
<%
  Case 2
%>
        <TR bgColor=#fafafa>
          <TD height=80>
          <div align=center>
            <table border="0" width="60%" id="table4" height="121">
				<tr>
					<td bgcolor="#CDCDCD" align="center" height="21" colspan="2">
					添加管理员</td>
				</tr>
<form method="POST" action="Admin_Action.asp?action=9" name="Feedback_Add">
				<tr>
					<td width="40%" height="9" align="right" bgcolor="#F0F0F0">
					帐号：</td>
					<td bgcolor="#F0F0F0" align="left" height="9">
					<input type="text" name="User" size="20"></td>
				</tr>
				<tr>
					<td width="40%" height="11" align="right" bgcolor="#F0F0F0">
					密码：</td>
					<td bgcolor="#F0F0F0" align="left" height="11">
					<input type="password" name="Pass" size="20"></td>
				</tr>
				<tr>
					<td bgcolor="#F0F0F0" align="center" height="23" colspan="2">
					<input type="submit" value="提交" name="B2"></td>
				</tr>
</form>
				<tr>
					<td bgcolor="#E3E3E3" align="center" height="23" colspan="2">
					　</td>
				</tr>
			</table>
			</div>
			</TD>
          </TR>
<%
  Case 3
%>
          <TR bgColor=#fafafa>
          <TD height=80>
          <div align=center>
<%
 id = request("id")
 Set rs = Server.CreateObject("ADODB.RecordSet") 
 Sql = "select * from Admin Where Admin_id = "&id
 Rs.Open sql,conn,1,3
 If not rs.eof then
   Admin_User = rs("Admin_User")
   Admin_Pass = rs("Admin_Pass")
 Else
   response.write"<script language=JavaScript>{window.alert('对不起,您查询的记录不存在');window.location.href='javascript:history.go(-1)'}</script>" 
 End if
 Rs.close
 Set rs = nothing  
%>
            <table border="0" width="60%" id="table4" height="175">
				<tr>
<td bgcolor="#CDCDCD" align="center" height="21" colspan="2">
					修改密码</td>
				</tr>
<form method="POST" action="Admin_Action.asp?action=10&id=<%=id%>" name="Feedback_Modi">
				<tr>
					<td bgcolor="#F0F0F0" align="right" height="25" width="40%">
					帐号：</td>
					<td bgcolor="#F0F0F0" align="left" height="25" width="181">
					<b><font color="#FF0000"><%=Admin_User%></font></b></td>
				</tr>
				<tr>
					<td bgcolor="#F0F0F0" align="right" height="25" width="40%">
					密码：</td>
					<td bgcolor="#F0F0F0" align="left" height="25" width="181">
					<input type="password" name="Pass" size="20"></td>
				</tr>
				<tr>
					<td bgcolor="#F0F0F0" align="right" height="25" width="40%">
					新密码：　</td>
					<td bgcolor="#F0F0F0" align="left" height="25" width="181">
					<input type="password" name="NewPass" size="20"></td>
				</tr>
				<tr>
					<td bgcolor="#F0F0F0" align="right" height="26" width="40%">
					　确认密码：</td>
					<td bgcolor="#F0F0F0" align="left" height="26" width="181">
					<input type="password" name="QNewPass" size="20"></td>
				</tr>
				<tr>
					<td bgcolor="#F0F0F0" align="center" height="26" colspan="2">
					<input type="submit" value="提交" name="B2"></td>
				</tr>
</form>
				<tr>
					<td bgcolor="#E3E3E3" align="center" height="21" colspan="2">
					　</td>
				</tr>
			</table>
			</div>
			</TD>
          </TR>
<%
 Case 5
%>
<%
 id = request("id")
 Set rs = Server.CreateObject("ADODB.RecordSet") 
 Sql = "select * from Admin Where Admin_id = "&id
 Rs.Open sql,conn,1,3
 If not rs.eof then  
%>
<TR bgColor=#fafafa>
          <TD height=80>
          <div align=center>
            <table border="0" width="60%" id="table4" height="172">
				<tr>
					<td bgcolor="#CDCDCD" align="center" height="19" colspan="2">
					您现在查看的是：<b><font color="#FF0000"><%=Rs("Admin_User")%> 
					</font></b>的信息</td>
				</tr>
				<tr>
					<td width="40%" height="21" align="right" bgcolor="#E3E3E3">
					  <div align="right">序号：</div></td>
					<td bgcolor="#F0F0F0" align="left" height="21" width="212"><%=Rs("Admin_Id")%></td>
				</tr>
				<tr>
					<td bgcolor="#E3E3E3" align="right" height="21" width="40%">
					  <div align="right">帐号：</div></td>
					<td bgcolor="#F0F0F0" align="left" height="21" width="212"><%=Rs("Admin_User")%></td>
					</tr>
				<tr>
					<td bgcolor="#E3E3E3" align="right" height="22" width="40%">
					  <div align="right">最后访问IP：</div></td>
					<td bgcolor="#F0F0F0" align="left" height="22" width="212"><a href=http://ip.mbsky.com/index.asp?Action=1&IpStr=<%=Rs("Admin_Ip")%> target=_blank><%=Rs("Admin_Ip")%></a></td>
					</tr>
				<tr>
					<td bgcolor="#E3E3E3" align="right" height="22" width="40%">
					  <div align="right">最后访问日期：</div></td>
					<td bgcolor="#F0F0F0" align="left" height="22" width="212"><%=Rs("Admin_Datetime")%></td>
					</tr>
				<tr>
					<td bgcolor="#E3E3E3" align="right" height="22" width="40%">
					  <div align="right">当前状态：</div></td>
					<td bgcolor="#F0F0F0" align="left" height="22" width="212"><% If Rs("Admin_Lock") <> "1" Then response.write "<b><font color=#009900>开放</font></b>" Else response.write "<b><font color=#FF0000>锁定</font></b>" End if %></td>
					</tr>
				<tr>
					<td bgcolor="#E3E3E3" align="center" height="16" colspan="2">
					<a href="Admin_Admin.asp?action=1">返回管理员管理</a></td>
				</tr>
			</table>
			</div>
			</TD>
          </TR>

<%
 Else
   response.write"<script language=JavaScript>{window.alert('对不起,您查询的记录不存在');window.location.href='javascript:history.go(-1)'}</script>" 
 End if
 Rs.close
 Set rs = nothing
 Case else
%>
          <TR bgColor=#fafafa>
          <TD height=80>
          <div align=center>
            错误的参数
			</div>
			</TD>
          </TR>
<%
 End Select
%>
        <TR bgColor=#fafafa>
          <TD bgColor=#f0f0f0 height=24>
          <DIV align=center>&copy;2008-2009 CopyRight <strong>IssTech.Co., Ltd</strong> All Rights Reserved</DIV></TD></TR></TBODY></TABLE><BR></DIV></TD></TR></TBODY></TABLE>
</BODY></HTML>

⌨️ 快捷键说明

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