📄 admin_webmaster.asp
字号:
<!--#include file="conn.asp" -->
<!--#include file="md5.asp" -->
<!--#include file="check.asp"-->
<%'===================================================================
'= Copyright (c) 2005-2007,马克斯 (QQ448265)开发 =
'= All rights reserved. =
'=------------------------------------------------------------------=
'= 文件名称：admin_webmaster.asp =
'= 摘 要：后台—管理员管理 =
'=------------------------------------------------------------------=
'= 用 途：免费电影系统 =
'= 最后更新：2007-07-1 =
'====================================================================%><html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>后台管理中心</title>
<LINK href="admin.css" type=text/css rel=stylesheet>
</head>
<BODY><script language="JavaScript">
<!--
function CheckAll(form)
{
for (var i=0;i<form.elements.length;i++)
{
var e = form.elements[i];
if (e.name != 'chkall')
e.checked = form.chkall.checked;
}
}
function SelectAll() {
for (var i=0;i<document.selform.selAdminID.length;i++) {
var e=document.selform.selAdminID[i];
e.checked=!e.checked;
}
}
//-->
</script>
<%dim body,selAdminID
if request("action")="updat" then
call update()
Call Succeed_msg(Sucmsg)
elseif request("action")="del" then
call del()
Call Succeed_msg(Sucmsg)
elseif request("action")="pasword" then
call pasword()
elseif request("action")="newpass" then
call newpass()
Aspshow_Msg(body)
elseif request("action")="add" then
call addadmin()
elseif request("action")="savenew" then
call savenew()
Aspshow_Msg(body)
else
call userlist()
end if
sub userlist()
if not isempty(request("selAdminID")) then
selAdminID=request("selAdminID")
if request("action")="删除" then
call deladmin()
elseif request("action")="激活" then
call yesActive()
elseif request("action")="锁定" then
call noActive()
else
response.write "无效参数！"
response.end
end if
end if
%>
<form name="selform" method="post" >
<table cellpadding="2" cellspacing="1" border="0" width="95%" class="tableBorder" align=center>
<tr>
<th height=22 colspan=8>管理员管理(点击用户名进行操作)</th>
</tr>
<tr align=center>
<td width="6%" height=22 class="forumHeaderBackgroundAlternate"><B>选择</B></td>
<td width="22%" height=22 class="forumHeaderBackgroundAlternate"><B>用户名</B></td>
<td width="22%" class="forumHeaderBackgroundAlternate"><B>上次登陆时间</B></td>
<td width="12%" class="forumHeaderBackgroundAlternate"><B>上次登陆IP</B></td>
<td width="15%" class="forumHeaderBackgroundAlternate"><B>操作</B></td>
<td width="8%" class="forumHeaderBackgroundAlternate"><B>状态</B></td>
</tr>
<%
set rs=conn.execute("select * from [zt_admin] where Flag=0 order by Logintime desc")
do while not rs.eof
if Not Response.IsClientConnected then responseend
%>
<tr><td align="center" class="forumRow">
<input type="checkbox" name="selAdminID" id="selAdminID" value="<%=rs("ID")%>">
</td>
<td class=forumrow><a href="?id=<%=rs("id")%>&action=pasword"><%=rs("adminname")%></a></td>
<td class=forumrow><%=rs("Logintime")%></td>
<td class=forumrow><%=rs("Loginip")%></td>
<td class=forumrow><a href="?action=del&id=<%=rs("id")%>&name=<%=rs("adminname")%>" onclick="{if(confirm('此操作将删除该管理员\n 您确定执行此操作吗?')){this.document.myform.submit();return true;}return false;}">删除该用户</a> </td>
<td class=forumrow><% if rs("isActive")=1 then
response.write "正常"
else
response.write "<font color=red>锁定<font>"
end if %></td>
</tr>
<%
rs.movenext
loop
rs.close
set rs=nothing
%>
<tr>
<td colspan="7" class="forumRow">管理操作：选择/反选
<input type="checkbox" name="checkbox" value="checkbox" onClick="javascript:SelectAll()">
<input class="button" onClick="{if(confirm('确定激活选定的管理员吗?')){this.document.selform.submit();return true;}return false;}" type=submit value=激活 name=action>
<input class="button" onClick="{if(confirm('确定锁定选定的管理员吗?')){this.document.selform.submit();return true;}return false;}" type=submit value=锁定 name=action>
<input class="button" onClick="{if(confirm('确定删除选定的管理员吗?')){this.document.selform.submit();return true;}return false;}" type=submit value=删除 name=action>
<input class="button" type=button name="Submit" value="添加管理员" onClick="self.location='admin_webmaster.asp?action=add'" >
</td>
</tr>
</table></form>
<%
end sub
sub del()
conn.execute("delete from [zt_admin] where id="&clng(request("id")))
Sucmsg="<li>管理员删除成功。"
end sub
sub deladmin()
conn.execute("delete from [zt_admin] where id in ("&selAdminID&")")
Sucmsg="<li>管理员删除成功。"
end sub
sub yesActive()
conn.execute("update [zt_admin] set isActive=1 where ID in ("&selAdminID&")")
end sub
sub noActive()
conn.execute("update [zt_admin] set isActive=0 where ID in ("&selAdminID&")")
'response.write "无效参数！"
end sub
sub pasword()
dim oldpassword
set rs=conn.execute("select * from [zt_admin] where id="&clng(request("id")))
oldpassword=rs("password")
Flag=rs("Flag")
if Flag=1 then
body="<li>数剧库操作错误！。<a href=?>［ <font color=red>返回</font> ］</a>"
exit sub
else
%>
<form action="?action=newpass" method=post>
<table cellpadding="2" cellspacing="1" border="0" width="95%" class="tableBorder" align=center>
<tr>
<th colspan=2 height=23>管理员资料管理－－密码修改
</th>
</tr>
<tr >
<td width="26%" align="right" class=forumrow>后台登陆名称：</td>
<td width="74%" class=forumrow>
<input type=hidden name="oldusername" value="<%=rs("adminname")%>">
<input type=text name="username2" value="<%=rs("adminname")%>">
</td>
</tr>
<tr >
<td width="26%" align="right" class=forumrow>后台登陆密码：</td>
<td width="74%" class=forumrow>
<input type="password" name="password2" value="<%=oldpassword%>"> (如要修改请直接输入)
</td>
</tr>
<tr align="center">
<td colspan="2" class=forumrow>
<input type=hidden name=id value="<%=request("id")%>">
<input type="submit" name="Submit" value="更 新" class="button">
</td>
</tr>
</table>
</form>
<% end if
rs.close
set rs=nothing
end sub
sub newpass()
dim passnw,usernw,aduser,oldpassword
set rs=conn.execute("select * from [zt_admin] where id="&clng(request("id")))
oldpassword=rs("password")
if request("username2")="" then
body="<li>请输入管理员名字。<a href=?>［ <font color=red>返回</font> ］</a>"
exit sub
else
usernw=trim(request("username2"))
end if
if request("password2")="" then
body="<li>请输入您的密码。<a href=?>［ <font color=red>返回</font> ］</a>"
exit sub
elseif trim(request("password2"))=oldpassword then
passnw=request("password2")
else
passnw=md5(request("password2"))
end if
set rs=server.createobject("adodb.recordset")
sql="select * from [zt_admin] where adminname='"&trim(request("oldusername"))&"'"
rs.open sql,conn,1,3
if not rs.eof and not rs.bof then
rs("adminname")=usernw
rs("password")=passnw
body="<li>管理员资料更新成功，请记住更新信息。<br> 管理员："&request("username2")&" <BR> 密 码："&request("password2")&" <a href=?>［ <font color=red>返回</font> ］</a>"
rs.update
end if
rs.close
set rs=nothing
end sub
sub addadmin()
%>
<form action="?action=savenew" method=post>
<table cellpadding="2" cellspacing="1" border="0" width="95%" class="tableBorder" align=center>
<tr>
<th colspan=2 height=23>管理员管理－－添加管理员
</th>
</tr>
<tr >
<td width="26%" align="right" class=forumrow>后台登陆名称：</td>
<td width="74%" class=forumrow>
<input type=text name="username2">
</td>
</tr>
<tr >
<td width="26%" align="right" class=forumrow>后台登陆密码：</td>
<td width="74%" class=forumrow>
<input type="password" name="password2">
</td>
</tr>
<tr align="center">
<td colspan="2" class=forumrow>
<input type="submit" name="Submit" value="添 加" class="button">
</td>
</tr>
</table>
</form>
<%
end sub
sub savenew()
dim adminuserid
if trim(request.form("username2"))="" then
body="请输入后台登陆用户名！"
exit sub
end if
if request.form("password2")="" then
body="请输入后台登陆密码！"
exit sub
end if
set rs=conn.execute("select adminname from [zt_admin] where adminname='"&replace(request.form("username2"),"'","")&"'")
if not (rs.eof and rs.bof) then
body="您输入的用户名已经在管理用户中存在！"
exit sub
end if
conn.execute("insert into [zt_admin] (adminname,[password],isactive,flag) values ('"&replace(request.form("username2"),"'","")&"','"&md5(replace(request.form("password2"),"'",""))&"',0,0)")
body="用户ID:"&replace(request.form("username2"),"'","")&" 添加成功，请记住新管理员后台登陆信息，如需修改请返回管理员管理！"
end sub
sub update()
set rs=server.createobject("adodb.recordset")
sql="select * from [zt_admin] where id="&clng(request("id"))
rs.open sql,conn,1,3
if not rs.eof and not rs.bof then
rs("Purview")=request("Purview")
Sucmsg="<li>管理员更新成功，请记住更新信息。"
rs.update
if rs("adminname")="" then session("Purview")=request("Purview")
end if
rs.close
set rs=nothing
end sub
call admin_footer()
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -