📄 admin_admin.asp
字号:
<!--#include file="../conn.asp"-->
<!--#include file="../inc/function.asp"-->
<!--#include file="../inc/md5.asp"-->
<!--#include file="Admin_ChkPurview.asp"-->
<html>
<head>
<title>电影类别管理</title>
<meta http-equiv='Content-Type' content='text/html; charset=gb2312'>
<link href='Admin_Style.css' rel='stylesheet' type='text/css'>
</head>
<body leftmargin='2' topmargin='0' marginwidth='0' marginheight='0'>
<table width='100%' border='0' align='center' cellpadding='2' cellspacing='1' class='border'>
<tr class='topbg'>
<td height='22' colspan='2' align='center'><strong>管 理 员 管 理</strong></td>
</tr>
<tr class='tdbg'>
<td width='70' height='30'><strong>管理导航：</strong></td>
<td height='30'><a href='Admin_Admin.asp'>管理员管理首页</a> | <a href='Admin_Admin.asp?Action=Add'>新增管理员</a></td>
</tr>
</table>
<br>
<%
select case lcase(request("action"))
case "add"
call add()
case "modifyl"
call Modifyl()
case "del"
call del()
case "modifypwd"
call ModifyPwd()
case "saveadd"
call saveadd()
case "savemodifyl"
call saveModifyl()
case else
call main()
end select
sub saveadd()
set rs=server.createobject("adodb.recordset")
sql="select * from Film_admin where Username='"&request("Username")&"'"
rs.open sql,conn,3,2
if rs.eof then
rs.addnew
rs("Username")=request("Username")
rs("Password")=md5(trim(request("Password")))
rs.update
call WriteSuccessMsg("添加新管理员成功!")
else
call WriteErrMsg("已经存在该用户数据!")
response.End()
end if
end sub
sub saveModifyl()
set rs=server.createobject("adodb.recordset")
sql="select * from Film_admin where id="&request("id")
rs.open sql,conn,3,2
if rs.eof then
call WriteErrMsg("不存在该用户数据")
response.End()
end if
rs("Password")=md5(trim(request("Password")))
rs.update
call WriteSuccessMsg("修改管理员密码成功")
end sub
sub del()
set rs=server.createobject("adodb.recordset")
sql="delete from Film_admin where id="&request("id")
rs.open sql,conn,3,2
call WriteSuccessMsg("该管理员信息已经删除!")
end sub
%>
<br>
<% sub main() %>
<table width='100%' border='0' cellpadding='0' cellspacing='0'>
<tr>
<form name='myform' method='Post' action='Admin_Admin.asp' onsubmit="return confirm('确定要删除选中的管理员吗？');">
<td><table width='100%' border='0' align='center' cellpadding='2' cellspacing='1' class='border'>
<tr align='center' class='title'>
<td width='47' height='22'><strong>序号</strong></td>
<td width="128" height='22'><strong> 用 户 名</strong></td>
<td width='113' height='22'><strong>权 限</strong></td>
<td width='125'><strong>最后登录IP</strong></td>
<td width='117'><strong>最后登录时间</strong></td>
<td width='75'><strong>登录次数</strong></td>
<td width='122' height='22'><strong>操 作</strong></td>
</tr>
<%
set rs=server.createobject("adodb.recordset")
sql="select * from Film_Admin"
rs.open sql,conn,1,1
if rs.eof then response.Write("<tr class='tdbg'><td colspan='20' align='center'><br>没有任何管理员信息记录!<br><br></td></tr>")
do until rs.eof
%>
<tr align='center' class='tdbg' onmouseout="this.style.backgroundColor=''" onmouseover="this.style.backgroundColor='#BFDFFF'">
<td width='47'><%= rs("id")%></td>
<td><font color=red><%= rs("username")%></font></td>
<td width='113'><font color=blue>超级管理员<strong> </strong></font></td>
<td width='125'><%= rs("LastLoginIP")%></td>
<td width='117'><%= rs("LastLogintime")%></td>
<td width='75'><%= rs("LoginTimes")%></td>
<td width='122'><a href='Admin_Admin.asp?Action=ModifyPwd&ID=<%= rs("id")%>'>修改密码</a>  <a href='?Action=Del&ID=<%= rs("id") %>' onClick='return confirm("确定要删除么?");'>删除用户</a></td>
</tr>
<%
rs.movenext
loop
%>
</table></td>
</form>
</tr>
</table>
<% end sub %>
<%sub add() %>
<script>
function CheckForm()
{
var username = admin.username.value;
var Password = admin.Password.value;
var checkPassword = admin.Password.value;
if (username=="")
{
alert('请输入用户名！');return false;
}
if (username.length<4)
{
alert('用户名太短，至少需要4位!');return false;
}
if (Password =="")
{
alert('密码不能为空，请检查！');return false;
}
if (Password.length<4)
{
alert('你得密码太短了，至少的 4位把!');return false;
}
if (Password !=checkPassword)
{
alert('您两次输入的密码不一样，请检查！');return false;
}
}
</script>
<form method='POST' name='admin' action=?action=saveadd target='_self' onsubmit="return CheckForm()">
<table width='60%' border='0' align='center' cellpadding='2' cellspacing='1' class='border'>
<tr class='title'>
<td height='22' colspan='2' align='center'><strong> 添 加 新 管 理 员</strong></td>
</tr>
<tr class='tdbg'>
<td width="36%" align='right'><strong>用户名</strong>：</td>
<td width="64%"><input name='username' type='text' id='username' size='30'>
</td>
</tr>
<tr class='tdbg'>
<td align='right'><b>密码</b>：</td>
<td> <input name='Password' type='text' id='Password' size='30'> </td>
</tr>
<tr class='tdbg'>
<td align='right'><b>确认新密码</b>：</td>
<td> <input name='checkPassword' type='text' id='checkPassword' size='30'>
</td>
</tr>
<tr class='tdbg'>
<td align='right'>操作：</td>
<td>
<input type='submit' name='Submit2' value=' 添 加 '> </td>
</tr>
<tr class='tdbg'>
<td height='40' colspan='2' align='center'> </td>
</tr>
</table>
</form>
<%end sub%>
<%
sub ModifyPwd()
set rs=server.createobject("adodb.recordset")
sql="select * from Film_admin where id="&request("id")
rs.open sql,conn,3,2
if rs.eof then
response.write "<script language=javascript>alert('不已经存在该类型')</script>"
response.End()
end if
%>
<script>
function CheckForm()
{
var Password = admin.Password.value;
var checkPassword = admin.Password.value;
if (Password =="")
{
alert('密码不能为空，请检查！');return false;
}
if (Password.length<4)
{
alert('你得密码太短了，至少的 4位把!');return false;
}
if (Password !=checkPassword)
{
alert('您两次输入的密码不一样，请检查！');return false;
}
}
</script>
<form method='POST' name='admin' action=?action=savemodifyl&id=<%= request("id") %> target='_self' onsubmit="return CheckForm()">
<table width='60%' border='0' align='center' cellpadding='2' cellspacing='1' class='border'>
<tr class='title'>
<td height='22' colspan='2' align='center'><strong>修 改 管 理 员 密 码</strong></td>
</tr>
<tr class='tdbg'>
<td width="36%" align='right'><strong>用户名</strong>：</td>
<td width="64%"> <% =rs("Username") %></td>
</tr>
<tr class='tdbg'>
<td align='right'><b>新密码</b>：</td>
<td><input name='Password' type='text' id='DefaultPoint3' size='30'>
</td>
</tr>
<tr class='tdbg'>
<td align='right'><b>确认新密码</b>：</td>
<td>
<input name='checkPassword' type='text' id='checkPassword' size='30'>
</td>
</tr>
<tr class='tdbg'>
<td align='right'>操作：</td>
<td> <input type='submit' name='Submit2' value=' 添 加 '> </td>
</tr>
<tr class='tdbg'>
<td height='40' colspan='2' align='center'> </td>
</tr>
</table>
</form>
<%end sub%>
. <% call CloseConn() %>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -