📄 admindefault.asp
字号:
<!--#INCLUDE FILE="Connections.asp" -->
<!--#INCLUDE FILE="conn.asp" -->
<!--#include file="const.asp" -->
<!--#INCLUDE FILE="bbs.css" -->
<!--#INCLUDE FILE="fyerror.asp" -->
<!--#INCLUDE FILE="md5.asp" -->
<script language='javascript'>
function jumpto(url)
{
if (url != '')
{
window.open(url);
}
}
</script>
<%
if session(feiyuese&"master")="master" and session(feiyuese&"masterid")<>"" then u_master=0
select case request("action")
case "adminleft"
call adminleft()
case "adminlogin"
call adminlogin()
case "adminsay"
call adminsay()
case "adminhead"
call adminhead()
case "chkadminlogin"
call chkadminlogin()
case else
call main()
end select
sub main()
if u_master="0" and issupermaster and isuser then%>
<html>
<head>
<title>dxxo论坛管理中心</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
</head>
<frameset frameborder="NO" border="0" framespacing="0" rows="*">
<frameset frameborder="no" border="0" scrolling="auto" cols="*">
<frameset cols="200,*" frameborder="no" border="0" scrolling="auto">
<frame name="leftFrame" scrolling="auto" marginwidth="2" marginheight="2" noresize src="admindefault.asp?action=adminleft">
<frameset rows="20,*" framespacing="0" border="0" frameborder="0" frameborder="no" scrolling="auto">
<frame src="admindefault.asp?action=adminhead" name="headFrame" scrolling="no" NORESIZE frameborder="0" marginwidth="0" marginheight="0" border="no">
<%if u_master="0" and issupermaster and isuser then%>
<frame name="mainFrame" src="admindefault.asp?action=adminsay" scrolling="auto" marginwidth="2" marginheight="2" noresize>
<%else%>
<frame name="mainFrame" src="admindefault.asp?action=adminlogin" scrolling="auto" marginwidth="2" marginheight="2" noresize>
<%end if%>
</frameset>
</frameset>
</frameset>
<noframes>
<body <%=background%> >
</body>
</noframes>
</html>
<%else
call adminlogin()
end if
end sub
sub adminlogin()%>
<%cpbtitle="dxxo论坛管理登陆"
call toptitle(l_title,cpbtitle)
call head(4,"论坛信息",Request.ServerVariables("HTTP_REFERER"),cpbtitle)
if isuser=false then
errormsg="<li>本页面为管理页面,请先登陆再进行管理</li>"
call error(errormsg)
call login()
call bq()
response.end
else if issupermaster=false then
errormsg="<li>很抱歉,您不是管理员,不能登陆操作后台,请返回论坛继续交流</li>"
call error(errormsg)
call login()
call bq()
response.end
end if
'验证码
dim p
randomize
p = Int((8999 * Rnd) + 1000)
session("fycode")=p
%>
<table border=1 borderColor=<%=tdc2%> cellPadding=2 cellSpacing=1 width=<%=tdc3%> style="border-collapse: collapse">
<form method="POST" action="?action=chkadminlogin"><TR>
<td <%=tColor%> class=tdc1 height="22" colspan="2">
<p align="center">欢迎进入dxxo论坛管理中心</td>
</tr>
<tr>
<td width="30%" bgcolor=<%=tColor2%> class=tdc align="right">
管理员用户名：
<td width="70%" bgcolor=<%=tColor2%> class=tdc>
<input type="text" name="admin" size="20" value="<%=session(feiyuese&"username")%>"></td>
</tr>
<tr>
<td width="30%" bgcolor=<%=tColor2%> class=tdc align="right">管理员密码：</td>
<td width="70%" bgcolor=<%=tColor2%> class=tdc>
<input type="password" name="password" size="20" value="<%=session(feiyuese&"password")%>"></td>
</tr><%if t_viewcheck=0 then%>
<TR>
<td width="30%" bgcolor=<%=tColor2%> class=tdc align="right">输入验证码：</td>
<td width="70%" bgcolor=<%=tColor2%> class=tdc>
<input type="text" name="fycode" size="20"> 请在左边框输入:<B><span style="background-color: <%=tColor1%>"><%=session("fycode")%></span></b></td>
</tr><TR>
<%end if%>
<td <%=tColor%> class=tdc1 height="22"></td>
<td <%=tColor%> class=tdc1 height="22" >
<input type="submit" value="提交" name="B1" class=bdtj> <input type="reset" value="重置" name="B2" class=bdtj></td></form>
</tr></table><div class=tdc align=right>© all rights reserved down.dxxo.com
<a href="http://down.dxxo.com">http://down.dxxo.com</a> </div>
<%
end if
end sub
sub chkadminlogin()
cpbtitle="dxxo论坛管理登陆"
call toptitle(l_title,cpbtitle)
call head(4,"论坛信息",Request.ServerVariables("HTTP_REFERER"),cpbtitle)
username1=chktopic(Request.Form("admin"))
password1=chktopic(Request.Form("password"))
fycode=chktopic(Request.Form("fycode"))
if username1="" or password1="" then
errormsg="<li>用户名或者密码不能为空</li>"
call error(errormsg)
call bq()
response.end
end if
if t_viewcheck=0 and trim(session("fycode"))<>fycode then
errormsg="<li>验证码输入不正确，请重新输入右边系统产生的数字</li>"
call error(errormsg)
call bq()
response.end
end if
password1=md5(chktopic(password1))
if Request.ServerVariables("HTTP_X_FORWARDED_FOR")<>"" then
log_ip=Request.ServerVariables("HTTP_X_FORWARDED_FOR")
else
log_ip=Request.ServerVariables("REMOTE_ADDR")
end if
log_window=Request.ServerVariables("HTTP_USER_AGENT")
log_content="试图进入后台管理"
sql="insert into log (log_username,log_ip,log_window,log_content,log_time) values('"&username1&"','"&log_ip&"','"&log_window&"','"&log_content&"','"&nowtime&"')"
conn.execute(sql)
conn.execute("delete from [log] where DateDiff('d',log_time,now)>"&logint&"")
sql="select a_grade,a_id from admin where admin='" & username1 & "'and password='" & password1 & "' and a_username='"&cpbusername&"'"
set rs=conn.execute(sql)
if not rs.eof then
session(feiyuese&"grade")=rs("a_grade")
session(feiyuese&"master")="master"
session(feiyuese&"masterid")=rs("a_id")
set rs=server.createobject("adodb.recordset")
sql="select log_content from log order by log_time desc"
rs.open sql,conn,1,3
log_content="登陆后台管理"
rs("log_content")=log_content
rs.update
response.redirect"admindefault.asp"
else
errormsg="<li>您的用户名错误或者您的密码错误或者您不是后台管理员</li>"
call error(errormsg)
call bq()
response.end
end if
rs.close
set rs = nothing
end sub
sub adminleft()
if u_master="0" and issupermaster and isuser then%>
<table border=1 borderColor=<%=tdc2%> cellPadding=0 cellSpacing=0 width=100% style="border-collapse: collapse">
<tr>
<td >
<table border="0" cellspacing="1" cellpadding="4" width=100% >
<tr>
<td height="22" <%=hColor%> class=tdc1 width="100%">
<div align="center" >dxxo论坛管理菜单</div>
</td>
<tr>
<tr>
<td width="100%" bgcolor=<%=tColor2%> class=tdc>
<div align="center"><a href="admindefault.asp" target=_top>管理首页</a> | <a target="_top" href="adminlogout.asp">退出管理</a></div>
</td>
</tr>
<td height="22" <%=tColor%> class=tdc1 width="100%">
<div align="left" > 基本设置</div>
</td>
</tr>
</tr>
<tr>
<td width="100%" bgcolor=<%=tColor2%> class=tdc>
<div align="left"> ==> <a href="adminbl.asp" target="mainFrame">变量设置</a></div>
</td>
</tr>
<tr>
<td width="100%" bgcolor=<%=tColor2%> class=tdc>
<div align="left"> ==> <a href="admincs.asp" target="mainFrame">样式设置</a></div>
</td>
</tr>
<tr>
<td width="100%" bgcolor=<%=tColor2%> class=tdc>
<div align="left"> ==> <a href="admincs.asp?action=add" target="mainFrame">新建样式</a></div>
</td>
</tr>
<tr>
<td height="22" <%=tColor%> class=tdc1 width="100%">
<div align="left" > 论坛管理</div>
</td>
</tr>
<tr>
<td width="100%" bgcolor=<%=tColor2%> class=tdc>
<div align="left"> ==> <a target="mainFrame" href="adminfenlei.asp?action=add">新建分类</a></div>
</td>
</tr>
<tr>
<td width="100%" bgcolor=<%=tColor2%> class=tdc>
<div align="left"> ==> <a target="mainFrame" href="adminfenlei.asp?action=addforum">新增论坛</a></div>
</td>
</tr>
<tr>
<td width="100%" bgcolor=<%=tColor2%> class=tdc>
<div align="left"> ==> <a target="mainFrame" href="adminhb.asp">合并论坛</a></div>
</td>
</tr>
<tr>
<td width="100%" bgcolor=<%=tColor2%> class=tdc>
<div align="left"> ==> <a target="mainFrame" href="adminfenlei.asp">论坛管理</a></div>
</td>
</tr>
<tr>
<td height="22" <%=tColor%> class=tdc1 width="100%">
<div align="left" > 用户设置</div>
</td>
</tr>
<tr>
<td width="100%" bgcolor=<%=tColor2%> class=tdc>
<div align="left"> ==> <a href="adminuser.asp" target="mainFrame">用户管理</a></div>
</td>
</tr>
<tr>
<td width="100%" bgcolor=<%=tColor2%> class=tdc>
<div align="left"> ==> <a href="adminuser.asp?action=adduser" target="mainFrame">添加用户</a></div>
</td>
</tr>
<tr>
<td width="100%" bgcolor=<%=tColor2%> class=tdc>
<div align="left"> ==> <a href="admingrade.asp" target="mainFrame">等级管理</a></div>
</td>
</tr>
<tr>
<td height="22" <%=tColor%> class=tdc1 width="100%">
<div align="left" > 数据</div>
</td>
</tr>
<tr>
<td width="100%" bgcolor=<%=tColor2%> class=tdc>
<div align="left"> ==> <a href="admincount.asp" target="mainFrame">更新数据</a></div>
</td>
</tr>
<tr>
<td width="100%" bgcolor=<%=tColor2%> class=tdc>
<div align="left"> ==> <a href="admindelete.asp?action=move" target="mainFrame">批量移动帖子</a></div>
</td>
</tr>
<tr>
<td width="100%" bgcolor=<%=tColor2%> class=tdc>
<div align="left"> ==> <a href="admindelete.asp" target="mainFrame">批量删除帖子</a></div>
</td>
</tr>
<tr>
<td width="100%" bgcolor=<%=tColor2%> class=tdc>
<div align="left"> ==> <a href="admindelete.asp?action=user" target="mainFrame">批量删除用户</a></div>
</td>
</tr>
<tr>
<td width="100%" bgcolor=<%=tColor2%> class=tdc>
<div align="left"> ==> <a href="adminback.asp" target="mainFrame">*备份数据</a></div>
</td>
</tr>
<tr>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -