📄 admin.asp

📁 软件介绍：国内最完善功能最齐全的多级会员程序.主要功能涵盖所有多级会员管理所需,超强大会员自定义编辑功能
💻 ASP
📖 第 1 页 / 共 2 页
字号:
12 下一页
<!--#include file="conn.asp"-->
<!--#include file="md5.asp"-->
<%
DoWhat="后台管理"
dim action,modify,iserr
iserr=False
action=request.querystring("action")
if int(session("times"))>=times then
	DoWhat=DoWhat & "登陆失败"
	WhatErr="<LI>您已经连续五次登陆失败，请稍候再试！</LI>"
	ToUrl="default.asp"
else	
	if session("admin")=True then
		modify=request.querystring("modify")
		select case modify
			case "loginout"
				DoWhat=DoWhat & "退出成功"
				session("admin")=False
			case "adminpassd"
				call modifyadmin()
			case "config"
				call modifyconfig()			
			case "fastdata"
				call clearly()
				WhatErr=WhatErr & "<LI>" & CompactDB(server.mappath(Db))
			case "delly"
				call modifydelly()
			case "cleardata"
				call clearly()
			case "badwords"
				call modifybadwords()
			case "zipdata"
				WhatErr="<LI>" & CompactDB(server.mappath(Db))
			case else
				iserr=True
		end select
	else
		iserr=True
	end if
	if action="login" then call login()
end if

sub login()		'登陆
dim name,passd,ispasserr
ispasserr=False
iserr=False
name=replace(request.form("name"),"'","")
passd=replace(request.form("passd"),"'","")
if name>"" and passd>"" then
	name=server.HTMLEncode(name)
	passd=server.HTMLEncode(passd)
		SqlData="select top 1 administrator,password from Admin"
		Rs.open SqlData,Conn,1,1
		if Rs.eof and Rs.bof then
				DoWhat=DoWhat & "登陆失败"
				WhatErr="<LI>没有设定管理员！</LI>"
		else
			if Rs(0)=name and Rs(1)=md5(passd) then
				DoWhat=DoWhat & "登陆成功"
				WhatErr="<LI><a href=""?"">进入后台管理</a></LI>"
				ToUrl=session("BackUrl")
				session("BackUrl")=""
				session("admin")=True
				session("postname")=name
				session("times")=0
			else
				ispasserr=True
			end if
		end if
		Rs.close
		set Rs=nothing
		Conn.close
		set Conn=nothing
else
		ispasserr=True
end if
if ispasserr then
	DoWhat=DoWhat & "登陆失败"
	WhatErr="<LI>帐号或密码错误！</LI>"
	session("times")=session("times")+1
end if
end sub

sub adminbody()		'后台管理界面
%>
<table width="780" border="1" cellspacing="1" cellpadding="5" align="center" bordercolor="#FFFFFF">
<tr>
	<td width="100%" colspan=2 align=right>
		<a href="default.asp"><img src="images/home.gif" border=0 alt="返回首页"></a> 
		<a href="upfile.asp"><img src="images/newpage.gif" border=0 alt="签写留言"></a>
		<a href="?modify=loginout"><img src="images/loginout.gif" border=0 alt="退出登陆"></a>
	</td>
</tr>
<tr>
	<td height=15 bgcolor="#DEE5EF" colspan=2 align=center> 
		<img src="images/team.gif" border=0> <B><%=LybName%>管理</B>
	</td>
</tr>
<tr>
	<td width="18%" height=30 bgcolor="#DEE5EF" valign="top">
		<table width="112" border="1" cellspacing="2" cellpadding="2" bordercolor="#FFFFFF">
			<tr><td><B>[<a href="?">管理首页</a>] [<a href="?modify=loginout">退出</a>]</B></td></tr>
			<tr><td> ◎ <a href="?action=adminpassd">账号管理</a></td></tr>
			<tr><td> ◎ <a href="?action=config">基本设置</a></td></tr>
			<tr><td> ◎ <a href="?action=badwords">脏话过滤</a></td></tr>
			<tr><td> ◎ <a href="?action=delly">数据管理</a></td></tr>
			</table>
	</td>
    <td width="82%" colspan=2 bgcolor="#FFFFFF" valign=Top align=Center>
	    <table width="100%" cellspacing="2" cellpadding="2"  border="1" bordercolor="#DEE5EF">
	     <%if action="adminpassd" then%>
	     <tr><td colspan=2><B>帐号管理：</B>可更改管理帐号或密码，密码经Md5加密存放，确保安全。</td></tr>
	     <FORM METHOD=POST ACTION="?modify=adminpassd" name="adminpassdform">
	     <tr><td align=right>用户名：<td><input type=text name="username" size=20 maxlength=20 value="<%=session("postname")%>"> 至少6个字符，不修改请留空</td></tr>
	     <tr><td align=right>密 &nbsp;码：<td><input type=password name="userpassd1" size=20 maxlength=20> 至少6个字符，不修改请留空</td></tr>
	     <tr><td align=right>确认密码：<td><input type=password name="userpassd2" size=20 maxlength=20> 再输入一遍密码以确认</td></tr>
	     <tr><td> </td><td><input type="submit" name="send" value=" 确 定 "> <input type="reset" name="reset" value=" 清 除 "></td></tr>
	     </FORM>
	     <%elseif action="config" then%>
	     <FORM METHOD=POST ACTION="?modify=config" name="configform">
	     <tr><td align=right>留言簿名称：<td><input type=text name="LybName" size=30 maxlength=20 value="<%=LybName%>"></td></tr>
	     <tr><td align=right>您的主页：<td><input type=text name="HomePage" size=30 maxlength=220 value="<%=HomePage%>"> 您的主页网址，没有请留空；</td></tr>	     
	     <tr><td align=right>网页描述：<td><input type=text name="Descrip" size=30 maxlength=80 value="<%=Descrip%>"> 网页的描述信息；</td></tr>
	     <tr><td align=right>网页关键字：<td><input type=text name="KeyWord" size=30 maxlength=80 value="<%=KeyWord%>"> 用于引擎搜索的关键字词，用英文逗号“,”隔开；</td></tr>
	     <tr><td align=right>首页广播内容：<td><input type=text name="MainNote" size=30 maxlength=200 value="<%=MainNote%>"> 显示于首页顶部的滚动信息；</td></tr>
	     <tr><td align=right>版权注册信息：<td><input type=text name="CopyRight" size=30 maxlength=200 value="<%=CopyRight%>"> 显示于页面底部的版权信息；</td></tr>
	     <tr><td align=right>首页显示留言条数：<td><input type=text name="HomePageNO" size=2 maxlength=2 value="<%=HomePageNO%>"> 请填入1-30之间的数字； 建议20</td></tr>
	     <tr><td align=right>热门话题最低回复：<td><input type=text name="HotPageNO" size=2 maxlength=2 value="<%=HotPageNO%>"> 请填入1-30之间的数字； 建议10</td></tr>
	     <tr><td align=right>文件上传目录：<td><input type=text name="UpJpgFile" size=30 maxlength=220 value="<%=UpJpgFile%>">  用于存放上传文件的目录；</td></tr>
	     <tr><td align=right>上传文件大小：<td><input type=text name="fsize" size=5 maxlength=5 value="<%=fsize%>">  允许上传文件的大小，单位：KB；</td></tr>
	     <tr><td align=right>上传文件类型：<td><input type=text name="AbleFileExt" size=30 maxlength=220 value="<%=AbleFileExt%>">  允许上传的文件类型；用英文分号“;”隔开</td></tr>
	     <tr><td> </td><td><input type="submit" name="send" value=" 确 定 "> <input type="reset" name="reset" value=" 重 写 "></td></tr>
	     </FORM>
	     <%elseif action="delly" then%>
	     <tr><td colspan=2><B>留言删除：</B>可删除符合指定条件的主题，勾选“全部删除”则清空所有留言数据！</td></tr>
	      <FORM METHOD=POST ACTION="?action=delly&modify=delly" name="dellyform">
	     <tr><td align=right>人气低于：<td><input type=text name="PeopleDot" size=2 maxlength=4> 将删除人气低于此值的主题</td></tr>
	     <tr><td align=right>回复低于：<td><input type=text name="PeopleRe" size=2 maxlength=4> 将删除回复低于此值的主题</td></tr>
	     <tr><td align=right>过期时效：<td><select name="LyYear" size=1><option SELECTED value="">年</option><%for ii=2003 to Year(Now())
	     response.write "<option value=" & ii & ">" & ii & "</option>"
	     next%></select>年 <select name="LyMonth" size=1><option SELECTED value="">月</option><%for ii=1 to 12
	     response.write "<option value=" & ii & ">" & ii & "</option>"
	     next%></select>月 <select name="LyDay" size=1><option SELECTED value="">日</option><%for ii=1 to 31
	     response.write "<option value=" & ii & ">" & ii & "</option>"
	     next%></select>日 将删除在此日期之前发表的主题</td></tr>
	     <tr><td align=center>全部删除<input type=checkbox name="DelAll" value=1 onclick="{if(this.checked==true){if(confirm('确认清空所有留言数据？')){return true;}return false;}}"></td>
	     <td><input type="submit" name="submit" value=" 确 定 删 除 "></td></tr>
	     </FORM>
	     <tr><td colspan=2 height=10> </td></tr>
	     <form name="cleardataform" method=post action="?modify=cleardata">
	      <tr><td align=center><input type=submit name="cleardatasubmit" value="清理数据库"></td> <td>清除无效数据，建议每隔一段时间运行一次。</td></tr>
	     </form>
	     <form name="zipdataform" method=post action="?modify=zipdata">
	      <tr><td align=center><input type=submit name="zipdatasubmit" value="压缩数据库"></td> <td>压缩当前数据库，请在数据库未被使用时运行。</td></tr>
	     </form>
	     <%elseif action="badwords" then
	     Dim AllBadWord
	     For ii=Lbound(EachBadWords) to Ubound(EachBadWords)-1
	     	AllBadWord=AllBadWord & EachBadWords(ii) & "=" & EachBadWords1(ii) & VBCrlf
	     Next
	     	AllBadWord=AllBadWord & EachBadWords(Ubound(EachBadWords)) & "=" & EachBadWords1(Ubound(EachBadWords))
	     %>
	     <tr><td><B>字符过滤：</B>过滤字符设定规则为 要过滤的字符=过滤后的字符 ，每个过滤字符用回车分割开。</td></tr>	     
	     <FORM name="BadWordsForm" method=POST action="?action=badwords&modify=badwords">
	     <tr><td><textarea name="BadWords" cols="80" rows="10"><%=AllBadWord%></textarea></td></tr>
	     <tr><td> <input type=submit name="submit" value="提 交"></td></tr>
	     </FORM>
	     <%elseif action="help" then%>
	     <tr><td align=center><B>《“飞凌酷网”留言系统v3.0单用户版》使用说明</B></td></tr>
	     <tr><td> &nbsp; &nbsp; 系统的界面和功能仿论坛（BBS），但任何人可以留言，也可以回复他人的留言；
	     留言内容拥有强大的UBB标签支持，从安全方面考虑，不开放HTML标签的支持； 为实现所有功能，请确认服务器已开放FSO支持； 
	     FSO相关帮助请查阅微软相关网站；</td></tr>
	     <tr><td>站长可以登陆留言系统后台进行设置和管理，目前包括如下功能：</td></tr><tr><td>
	     <LI><a href="?action=adminpassd">帐号管理</a> 可以更改管理员帐号或密码；</LI>
	     <LI><a href="?action=config">基本设置</a> 可以对留言板的基本参数进行设置；</LI>
	     <LI><a href="?action=badwords">脏话过滤</a> 可以对留言内容的某些字词进行过滤；</LI>
	     <LI><a href="?action=delly">数据管理</a> 可以对留言进行指定删除操作，并对数据库进行相应的清理和压缩维护；</LI>
	     </td></tr>
	     <tr><td>更多请访问：<a href="http://my.hnjdzy.net/feelings" target=_blank>http://my.hnjdzy.net/feelings</a></td></tr>
	     <%else%>
	     <tr><td align=center><B></B></td></tr>
	     <tr><td>
	     <tr><td>服务器类型：<%=Request.ServerVariables("OS")%>(IP:<%=Request.ServerVariables("LOCAL_ADDR")%>)
	      脚本解释引擎：<%=ScriptEngine & "/"& ScriptEngineMajorVersion &"."&ScriptEngineMinorVersion&"."& ScriptEngineBuildVersion %>
	     </td></tr><tr><td>站点物理路径：<%=request.ServerVariables("APPL_PHYSICAL_PATH")%>　数据库地址：<%=Server.MapPath(Db)%></td></tr>
	     <form name="fastdataform" method=post action="?modify=fastdata">
	     	<tr><td><input type=submit name="fastdatasubmit" value="数据库快速维护"> 清除无效数据并对数据库进行压缩，请在数据库未被使用时运行。</td></tr>
	     </form><tr><td height=15> </td></tr>
	     </a> 
	     </a></td></tr>
	     <%end if%>
	    </table>
    </td>
  </tr>
</table>
<%end sub
12 下一页
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -