?? mgadmin.asp
字號:
<%@ Language=VBScript %>
<% option explicit %>
<!--#include file="conn.asp"-->
<!--#include file="Checkadmin.asp"-->
<%
dim isedit '是否在編輯狀態
dim id,name'定義變量，用戶的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>
</head>
<body background=../images/backimage.gif >
<table width="80%" border="1" cellspacing="0" cellpadding="0" align="center" bordercolor=blue>
<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"><%=rs("name")%></div>
</td>
<td width="20%" height="21" >
<div align="center"><%=rs("password")%></div>
</td>
<td width="20%" height="21" >
<div align="center"><a href='mgadmin.asp?name=<%=trim(rs("name"))%>&action=edit'>編輯</a>  
<%
response.write "<a href='javascript:SureDel(" & cstr(rs("id")) & ")'>刪除</a>"
%>
</div>
</td>
</tr>
<% rs.movenext
loop
end if
end if
%>
</table>
<% 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 %>
<p align="center">
<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 type=submit value="確 定" class=button>
</form>
<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 + -