📄 admin_main.asp
字号:
<!--#include file="conn.asp"-->
<!--#include file="../inc/md5.asp"-->
<!--#include file="../inc/UserPs.Asp"-->
<!--#include file="../inc/pwwd.asp"-->
<%
'├========================================┤
'‖ www.fywen.com ‖
'‖ ╔━═━═━═━═━═━╗ ‖
'‖ ┃ 枫叶在线版权所有 ┃ ‖
'‖ ╚━═━═━═━═━═━╝ ‖
'‖ 论坛：www.fywen.com/bbs ‖
'├========================================┤
BotList = "Google,Isaac,SurveyBot,Baiduspider,yahoo,yisou,3721,ia_archiver,P.Arthur,FAST-WebCrawler,Java,Microsoft-ATL-Native,TurnitinBot,WebGather,Sleipnir"
Botlist = Split(Botlist,",")
For i = 0 To Ubound(Botlist)
If InStr(Lcase(Request.ServerVariables("HTTP_USER_AGENT")),Lcase(Botlist(i))) > 0 Then
response.write" - Powered By FYPost - 枫叶贴吧"
response.End()
Exit For
End If
Next
'/*不让搜索引擎收录*/
Call Admin_Admin()
'├========================================┤
'‖ www.fywen.com ‖
'‖ ╔━═━═━═━═━═━╗ ‖
'‖ ┃ 枫叶在线版权所有 ┃ ‖
'‖ ╚━═━═━═━═━═━╝ ‖
'‖ 论坛：www.fywen.com/bbs ‖
'├========================================┤
action = ReplaceBadWord(Request.QueryString("action"))
Select Case action
Case ""
Call admin_index()
Case "main"
Call admin_main()
Case "newadmin"
Call admin_newadmin()
Case "deladmin"
Call admin_deladmin()
End Select
Sub admin_index()
%>
<HTML>
<HEAD>
<META http-equiv=Content-Type content="text/html; charset=gb2312">
<TITLE>管理中心—密码修改</TITLE>
<link href="css/css.css" rel="stylesheet" type="text/css">
<style type="text/css">
<!--
td{
background:#F1F3F5;
}
-->
</style></head>
<body>
<table width="98%" border="1" align="center" cellpadding="0" cellspacing="0" bordercolor="#FFFFFF" class="table" >
<tr >
<td align="center" class="imgbg" height="25"><strong class="size">密码修改</strong></td>
</tr>
<form action="admin_main.asp?action=main" method="post">
<tr class="table_3">
<td height="15" class="bj">管理员:<strong><font color="#0033FF"><%=session("uesrname")%></font></strong></td>
</tr>
<tr>
<td height="99" class="table_2">输入旧密码:
<input type="password" name="opassword" class="input" >
<br>
输入新密码:
<input type="password" name="npassword" class="input" >
<br>
新密码确认:
<input type="password" name="nnpassword" class="input" >
<br>
<input type="submit" value="确认提交" class="buttion">
<input type="reset" value="重新输入" class="buttion">
</td>
</tr></form>
</table>
</form>
<br>
<table width="98%" border="1" align="center" cellpadding="0" cellspacing="0" bordercolor="#FFFFFF" class="table" >
<tr >
<td align="center" class="imgbg"><strong class="size">管理员添加删除</strong></td>
<form action="admin_main.asp?action=newadmin" method="post">
<tr class="table_3">
<td class="bj">管理员添加</td></tr>
<tr>
<td class="table_2">用户名: <input type="text" name="adminname" class="input" style="width:142px;" ><br>
密码: <input type="password" name="adminpassword" class="input" ><br>
密码确认:<input type="password" name="nadminpassword" class="input" ><br>
<input type="submit" value="确认添加"class="buttion"> <input type="reset" value="重新输入"class="buttion"></td>
</tr>
</form>
<tr class="table_3">
<td class="bj"> 管理员删除 <font color="#FF0000"><strong>(请不要删除当前管理员)</strong></font></td>
</tr>
<tr>
<td>
<table width="100%">
<tr>
<td width="14%">管理员名称</td>
<td width="17%" >注册日期</td>
<td width="17%" >最后登陆日期</td>
<td width="16%" >最后登陆IP</td>
<td width="20%">是否吧主</td>
<td width="16%" >操作</td>
<%
dim a
set rs= server.createobject("adodb.recordset")
sql= "select * from [user] where [adminuser]='1' order by [id] desc "
rs.open sql,conn,1
do while not rs.eof
a=a+1
%>
<tr>
<td ><%=a%>.</font><%=rs("username")%></td>
<td ><%=rs("zhucedate")%></td>
<td ><%=rs("lastdate")%></td>
<td ><%=rs("userip")%></td>
<td>
<%
If rs("postadmin") = "0" Then
Response.Write"否"
Else
Response.Write "<a href=""../SearchPost.Asp?searchname="&Server.URLEncode(rs("postadmin"))&""">"&rs("postadmin")&"吧</a>"
End If
%></td>
<td ><a onClick="return confirm('确定删除该管理员？')" href="admin_main.Asp?action=deladmin&id=<%=Server.URLEncode(rs("username"))%>">删除</a></td>
</tr>
<%
rs.movenext
loop
%></table>
</td></tr>
</table>
</body>
</html>
<%
End Sub
'├========================================┤
'‖ www.fywen.com ‖
'‖ ╔━═━═━═━═━═━╗ ‖
'‖ ┃ 枫叶在线版权所有 ┃ ‖
'‖ ╚━═━═━═━═━═━╝ ‖
'‖ 论坛：www.fywen.com/bbs ‖
'├========================================┤
Sub admin_main()
opassword=md5(request.form("opassword"))
npassword=request.form("npassword")
nnpassword=request.form("nnpassword")
password=session("userpwd")
if password <> opassword then
%>
<script language="javascript">
alert("用户名旧密码与原密码不一致！")
document.location="javascript:history.back(-1)"
</script>
<%
response.end
else
if npassword <> nnpassword then
%>
<script language="javascript">
alert("两次密码输入不一致！")
document.location="javascript:history.back(-1)"
</script>
<%
response.end
else
if npassword="" or nnpassword="" then
%>
<script language="javascript">
alert("新密码输入不能为空！")
document.location="javascript:history.back(-1)"
</script>
<%
else
password=md5(npassword)
Username=session("uesrname")
set rs= server.createobject("adodb.recordset")
sql= "update [user] set [userpwd]='"&password&"' where [username]='"&Username&"'"
rs.Open sql,conn,3
session("Uesrname")=""
session("userpwd")=""
%>
<script language="javascript">
alert("密码修改成功，需退出重新登陆！")
document.location="admin_login.Asp"
</script>
<%
end if
end if
end if
End Sub
'├========================================┤
'‖ www.fywen.com ‖
'‖ ╔━═━═━═━═━═━╗ ‖
'‖ ┃ 枫叶在线版权所有 ┃ ‖
'‖ ╚━═━═━═━═━═━╝ ‖
'‖ 论坛：www.fywen.com/bbs ‖
'├========================================┤
Sub admin_newadmin()
wname=session("uesrname")
password=session("userpwd")
name=request.form("adminname")
password=request.form("adminpassword")
npassword=request.form("nadminpassword")
if name="" then
%>
<script language="javascript">
alert("用户名不能为空!")
document.location="javascript:history.back(-1)"
</script>
<%
response.end
else
set rs= server.createobject("adodb.recordset")
sql1= "select * from [user] where [username]='"&name&"' "
rs.Open sql1,conn
if not rs.eof then
%>
<script language="javascript">
alert("用户名已经存在！")
document.location="javascript:history.back(-1)"
</script>
<%
else
if password <> npassword then
%>
<script language="javascript">
alert("两次密码输入不一致！")
document.location="javascript:history.back(-1)"
</script>
<%
else
if password="" or npassword="" then
%>
<script language="javascript">
alert("新密码输入不能为空！")
document.location="javascript:history.back(-1)"
</script>
<%
else
Logindate=date() & Chr(32) & time()
useip = Request.ServerVariables("HTTP_X_FORWARDED_FOR")
If useip = "" Then
useip = Request.ServerVariables("REMOTE_ADDR")
End If
password=md5(password)
set rs= server.createobject("adodb.recordset")
sql1= "insert into user([username],[userpwd],[zhucedate],[firstdate],[lastdate],[sex],[mail],[qq],[userip],[adminuser]) values ('"&name&"','"&password&"','"&Logindate&"','"&Logindate&"','"&Logindate&"','男','0','0','"&useip&"','1')"
rs.Open sql1,conn
%>
<script language="javascript">
alert("管理员添加成功！")
document.location="admin_main.asp"
</script>
<%
end if
end if
end if
end if
End Sub
'├========================================┤
'‖ www.fywen.com ‖
'‖ ╔━═━═━═━═━═━╗ ‖
'‖ ┃ 枫叶在线版权所有 ┃ ‖
'‖ ╚━═━═━═━═━═━╝ ‖
'‖ 论坛：www.fywen.com/bbs ‖
'├========================================┤
Sub admin_deladmin()
password=session("password")
id=request.QueryString("id")
if id=session("uesrname") then
%>
<script language="javascript">
alert("不得删除当前管理员！")
document.location="javascript:history.back(-1)"
</script>
<%
response.end
else
name=request.QueryString("id")
set rs= server.createobject("adodb.recordset")
sql="delete from user where username='"&name&"'"
rs.Open sql,conn,3
%>
<script language="javascript">
alert("管理员删除成功！")
document.location="admin_main.asp"
</script>
<%
end if
End Sub
Call Fywencl()
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -