📄 mgadmin(1).asp

📁 在线考试系统
💻 ASP
字号:
<%@ Language=VBScript %>
<% option explicit %>
<!--#include file="conn.asp"-->
<!--#include file="Checkadmin.asp"-->
<% 
dim isedit '是否在编辑状态
dim id'定义变量，用户的id
dim sql,rs,rsc
isedit=false
if request("action")="edit" then
    isedit=true
end if
if request("action")="modify" then   '修改管理员
    if trim(request("password"))="" then
	    response.write "错误!密码不能为空! <a href=# onclick='javascript:window.history.go(-1)'>返回</a>"
        response.end
    end if
    set rs=server.createobject("ADODB.recordset")
	name=request("name")
    rs.open "select * from admin where name='"&name&"'",conn,1,3
    rs("password")=request("password")
	rs.update
	rs.close
	set rs=nothing
end if
%>
  <%
if request("action")="add" then   '添加新管理员
    if trim(request("name"))="" or trim(request("password"))="" then
	    response.write "错误!用户名或密码不能为空! <a href=# onclick='javascript:window.history.go(-1)'>返回</a>"
        response.end
    end if
	set rs=server.createobject("adodb.recordset")   '检查学生是否重名
    rs.open "select * from admin where name='" & cstr(trim(request("name"))) & "'",conn,1,1
    if err.number <> 0 then
	          response.write "数据库出错"
    else  if not rs.bof and not rs.eof then
	          response.write "错误!该管理员存在! <a href=# onclick='javascript:window.history.go(-1)'>返回</a>"
              response.end
          end if
    end if
	rs.close
	set rs=nothing
	sql="insert into admin(name,password) values('" & cstr(trim(request("name"))) & "','" & cstr(trim(request("password"))) & "')"
	conn.execute sql
	if err.number <> 0 then
	    response.write "数据库操作出错:" + err.description
	else %>
	    <script language=vbscript>
			msgbox "操作成功!新管理员<%=trim(request("name"))%>的信息添加成功!"
		</script>
  <%end if
end if
if request("action")="del" then   '删除管理员
	sql="delete from admin where id=" &request("id")
	conn.execute sql
	if err.number <> 0 then
		response.write "数据库操作错误：" + err.description
		err.clear
	else %>
        <script language=vbscript>
		msgbox "操作成功!管理员<%=trim(request("name"))%> 的信息已删除!"
		</script>
<%  end if
end if
%>
<html>
<head>
<title>管理管理员</title>
<script language=javascript>
function SureDel(id)
{
    if ( confirm("您确定要删除该管理员吗？"))
        {
            window.location.href = "mgadmin.asp?action=del&id=" +id
        }
}
</script>
<link href="STYLE.CSS" rel="stylesheet" type="text/css">
</head>
<body background=images/backimage.gif > 
<center>
  <p align="left"><a href="primarypage.asp"><font color=red size=+0 face=楷体>返回管理界面</font></a></p>
  <p><font color=red><b><a href="primarypage.asp" style="font-family: &quot;华文行楷&quot;; font-size: xx-large;">管理员管理</a></b></font></p>
  <hr>
  <%  if isedit then
	   set rs=server.createobject("adodb.recordset")
	   name=request("name")
	   rs.open "select * from admin where name='"&name&"'",conn,1,1
	   response.write "<p align='center'><font size=3>编 辑 管 理 员 信 息</font></p>"
   else
	   response.write "<p align='center'><font size=3>添 加 管 理 员 信 息</font></p>"
   end if %>
  <form action="mgadmin.asp" method="post">
    <input type="Hidden" name="action" value='<% If isedit then%>modify<% Else  %>add<% End If %>'>
    <%If isedit then%>
    <input type="Hidden" name="name" value='<%=name%>'>
    <%End If%>
  用户名称:
  <% if isedit then
response.write request("name")
else
%>
  <input type="text" name="name" class=input maxlength=14 size="16">
  <%end if%>
  <br>
  用户密码:
  <input type="password" name="password"  class=input maxlength=12 size="16" value='<% if isedit then
                 response.write trim(rs("password")) 
                 end if %>'>
  <br>
  <input name="submit" type=submit class=button value="确 定">
  </form>  
  <hr>
</center><br>
<table width="80%" border="1" cellspacing="0" cellpadding="0" align="center" bordercolor=purble>
  <tr> 
    <td width="25%"> 
      <div align="center">管理员姓名</div>
    </td>
    <td width="20%"> 
      <div align="center">密码</div>
    </td>
    <td width="20%"> 
      <div align="center">操作</div>
    </td>
  </tr>
  <%
  set rs=server.createobject("adodb.recordset")
  rs.open "select * from admin ",conn,1,1
  if err.number <> 0 then
	           response.write "数据库出错"
           else
	           if rs.bof and rs.eof then
		           'rs.close
		           response.write "目前没有管理员"
	           else
			       do while not rs.eof %>
  <tr> 
    <td width="25%" height="21" > 
      <div align="center"><font size="3"><%=rs("name")%></font></div>
    </td>
    <td width="20%" height="21" > 
      <div align="center"><font size="3"><%=rs("password")%></font></div>
    </td>
    <td width="20%" height="21" > 
      <div align="center"><font size="3"><a href='mgadmin.asp?name=<%=trim(rs("name"))%>&action=edit'>编辑</a>&nbsp&nbsp 
        <% 					 
	      response.write "<a href='javascript:SureDel(" & cstr(rs("id")) & ")'>删除</a>"
	 %>
        </font></div>
    </td>
  </tr>
  <% rs.movenext				   
	loop			   
	end if	       
       end if 
%>
</table>
 <p align="center"> 
 <p align=center><a href="primarypage.asp"><font color=red size=+0 face=楷体>返回管理界面</font></a></p>
<%
rs.close
set rs=nothing 
%>
</body>
</html>
⌨️ 快捷键说明

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