📄 adminlist.asp

📁 ASP+SQL Server的图书馆管理系统

💻 ASP

字号:

<!--#include File="conndb.asp"-->
<!--#include file="isAdmin.asp"-->

<html>
<head>
<title>系统管理员管理</title>
<link rel="stylesheet" href="style.css">
<script language="JavaScript">
function newwin(url) {
  var newwin=window.open(url,"newwin","toolbar=no,location=no,directories=no,status=no,menubar=no,scrollbars=yes,resizable=yes,width=300,height=260");
  newwin.focus();
  return false;
}
</script>
</head>
<!--#include file="head.asp"-->
<body link="#000080" vlink="#008080">
<form id="form1" name="form1" method="POST">
<h3><p align="center"><b><font style="font-size: 12pt">管 理 员 管 理</font></b></font></p><BR>
<table align=center border="1" cellspacing="0" width="67%" bordercolorlight="#4DA6FF" bordercolordark="#ECF5FF" style='FONT-SIZE: 9pt'>
<tr>
<td width='20%' height="28" align="center" bgcolor="#FEEC85"><b>管理员帐号</b></td>
<td align="center" width='20%' bgcolor="#FEEC85"><b>管理员姓名</b></td>
<td align="center" width='20%' bgcolor="#FEEC85"><b>修 改</b></td>
<td align="center" width='20%' bgcolor="#FEEC85"><b>删 除</b></td>
</tr>
<%
  Dim cnt
  cnt = 0
  Set rs = Conn.Execute("Select * From Admin_info")
  
  Do While Not rs.Eof
    cnt = cnt + 1
    aid = rs("Adm_Id")
    aname = rs("Adm_Name")
    apwd=rs("Adm_pwd")
    %>
<tr>
<td height="26"><%=aid%></td>
<td><%=aname%></td>
<td align="center"><a href=# onClick="newwin('AdminEdit.asp?aid=<%=aid%>')">修 改</a></td>
<td align="center"><a  href=# onClick="newwin('AdminDelt.asp?aid=<%=aid%>')">删 除</a></td>
</tr>

<%
    rs.MoveNext
  Loop
  If cnt=0 Then
	Response.Write "<tr align='center'><td colspan=5><font color=red>目前还没有管理员记录</font></td></tr>"
  End If
%>
</table>
<tr>
<p align="center">
<input type="button" value="添加管理员" onClick="newwin('AdminAdd.asp')" name=add>
<input type="button" value="修改密码" onClick="newwin('PwdChg.asp')" name=add>
</p>
</tr>
</form >
<tr>
      <td><h5><div align="center" >Copyright 2007 </div></h5></td>
    </tr>
</body>
</html>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -