📄 admins.asp
字号:
<!--#include File="Pass.asp"-->
<!--#include File="../Md5.asp"-->
<%
Select Case Request("Action")
Case "xiugai"
if Trim(Request.Form("psw"))<>"" then
psw=md5(Request.Form("psw"))
set rs=server.CreateObject("adodb.recordset")
sql="select * from Ckk_admin where Adminname='" & session("name") & "' and passWord='" & session("pass") & "'"
rs.open sql,dsn,1,3
rs("PassWord")=psw
rs.update
response.write("<script>alert(""成功修改！"");location.href=""Admins.asp"";</script>")
Response.End
end if
Case "add"
Names=Server.Htmlencode(request.form("Name"))
Pass=md5(request.form("Pass"))
Ckk_Administrator=Server.Htmlencode(request.form("Ckk_Administrator"))
if Names<>"" and Pass<>"" then
sql="select * from ckk_Admin"
set rs=server.createobject("adodb.recordset")
rs.open sql,dsn,3,2
rs.addnew
rs("AdminName")=Names
rs("PassWord")=Pass
rs.update
rs.close
set rs=nothing
response.write("<script>alert(""添加成功！"");location.href=""Admins.asp"";</script>")
end if
Case "del"
set rs_apply=server.createobject("adodb.recordset")
sql="delete * from Ckk_Admin where id =" & Request("ID")
rs_apply.open sql,dsn,3,2
response.write("<script>alert(""删除成功！"");location.href=""Admins.asp"";</script>")
End Select
%>
<%
set rs=server.CreateObject("adodb.recordset")
sql="select * from Ckk_admin where Adminname='" & session("name") & "' and passWord='" & session("pass") & "'"
rs.open sql,dsn,1,3
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD><TITLE>管理中心</TITLE>
<META http-equiv=Content-Language content=zh-CN>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<LINK href="../Images/Admin/admin.css" type=text/css rel=stylesheet>
<META content="MSHTML 6.00.2900.2873" name=GENERATOR></HEAD>
<BODY text=#000000>
<TABLE cellSpacing=0 cellPadding=0 width="99%" align=center border=0>
<TBODY>
<TR>
<TD height=5></TD>
</TR>
<TR>
<TD> <TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
<TBODY>
<TR>
<TD width=3 height=3><IMG height=3
src="Images/O_angle_up_left.gif" width=3></TD>
<TD width="100%" bgColor=#6795b4></TD>
<TD width=3><IMG height=3
src="Images/O_angle_up_right.gif"
width=3></TD>
</TR>
</TBODY>
</TABLE></TD>
</TR>
<TR>
<TD width=130 bgColor=#6795b4 height=25> </TD>
</TR>
<TR>
<TD class=form_border> <TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
<TBODY>
<TR>
<TD colSpan=3 height=5></TD>
</TR>
<TR>
<TD> </TD>
<TD> <TABLE class=form_in cellSpacing=0 cellPadding=0 width="100%"
border=0>
<TBODY>
<TR>
<TD height=5></TD>
</TR>
<TR>
<TD> <TABLE cellSpacing=0 cellPadding=0 width="98%" align=center
border=0>
<TBODY>
<TR>
<TH colSpan=2 height=25>管理员管理</TH>
</TR>
<TR>
<TD align=middle height=23><table width="100%" border="0" align="center" cellpadding="2" cellspacing="1" bgcolor="#1BA3D6">
<tr bgcolor="#FFFFFF">
<form name="form1" method="post" action="?Action=add">
<td height="40"> 管理员名称：
<input name="Name" type="text" id="Name" size="10">
密码：
<input name="Pass" type="password" id="Pass3" size="10">
<input type="submit" name="Submit" value="添加管理员"> </td>
</form>
</tr>
<tr bgcolor="#FFFFFF">
<form name="form2" method="post" action="?Action=del">
<td height="40"> 删除管理员：
<select name="id" id="select6">
<%set rstping=server.createobject("adodb.recordset")
sqlping="select * from Ckk_Admin order by id desc"
rstping.open sqlping,dsn,3,3
if rstping.eof then
%>
<option value="0">没有任何管理员</option>
<% Else %>
<% do while not rstping.eof %>
<option value="<%= rstping("id") %>"><%= rstping("AdminName") %></option>
<%
rstping.movenext
loop
%>
<% End If %>
<% rstping.close %>
</select> <input type="submit" name="Submit2" value="删除" onClick="javascript:return confirm('请确认操作？')"> </td>
</form>
</tr>
<tr bgcolor="#FFFFFF">
<form action="?Action=xiugai" method="post" name="edit" id="edit">
<td height="40">修改本管理员<font color="#FF0000"><strong><%= session("name") %></strong></font>密码：
<input name="psw" type="password" id="psw2" size="14">
<input type="submit" name="Submit3" value="修改"> </td>
</form>
</tr>
</table></TD>
</TR>
</TBODY>
</TABLE></TD>
</TR>
<TR>
<TD height=5></TD>
</TR>
</TBODY>
</TABLE></TD>
<TD> </TD>
</TR>
<TR>
<TD> </TD>
<TD> </TD>
<TD> </TD>
</TR>
</TBODY>
</TABLE></TD>
</TR>
<TR>
<TD> <TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
<TBODY>
<TR>
<TD width=3><IMG height=3
src="../Images/Admin/O_angle_down_left.gif" width=3></TD>
<TD width="100%" background=../Images/Admin/O_angle_bottom.gif
height=3></TD>
<TD width=3><IMG height=3
src="../Images/Admin/O_angle_down_right.gif"
width=3></TD>
</TR>
</TBODY>
</TABLE></TD>
</TR>
</TBODY>
</TABLE>
</BODY></HTML>
<!--#include File="../Close.asp"-->⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -