login.asp

软件介绍：国内最完善功能最齐全的多级会员程序.主要功能涵盖所有多级会员管理所需,超强大会员自定义编辑功能

<!--#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")
		if action="loginout" then
			DoWhat=DoWhat&"退出成功"
			session("admin")=False
		elseif modify="adminpassd" then
			call modifyadmin()
		elseif modify="config" then
			call modifyconfig()
		elseif modify="delly" then
			call modifydelly()
		elseif modify="badwords" then
			call modifybadwords()
		else
			iserr=True
		end if
	elseif action="login" then
		call login()
	else
		iserr=True
	end if
end if

sub login()		'登陆
dim name,passd,ispasserr
ispasserr=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="?action=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="100%" border="1" cellspacing="2" cellpadding="2" bordercolor="#FFFFFF">
			<tr><td><B>功能模块</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>
			<tr><td><a href="?action=help">使用说明</a></td></tr>
			<tr><td><a href="?action=loginout">退出管理</a></td></tr>
		</table>
	</td>
    <td width="82%" colspan=2 bgcolor="#FFFFFF">
	    <table width="100%" height="100%" cellspacing="2" cellpadding="2"  border="1" bordercolor="#DEE5EF">
	     <%if action="adminpassd" then%>
	     <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>密　码：<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="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%>">  允许上传文件的大小；</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="adminpassdform">
	     <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 i=i1 to 12
	     response.write "<option value=" & ii & ">" & ii & "</option>"
	     next%></select>月
	     <select name="LyDay" size=1><option SELECTED value="">日</option><%for i=1i to 31
	     response.write "<option value=" & ii & ">" & ii & "</option>"
	     next%></select>日 将删除在此日期之前发表的主题</td></tr>
	     <tr><td>全部删除<input type=checkbox name="DelAll" value=1></td><td><input type="submit" name="submit" value=" 确 定 "></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 align=center><B>留言内容字符过滤</B></td></tr>
	     <tr><td>说明：过滤字符设定规则为 要过滤的字符=过滤后的字符 ，每个过滤字符用回车分割开。</td></tr>
	     <FORM name="BadWordsForm" method=POST action="?action=badwords&modify=badwords">
	     <tr><td><textarea name="BadWords" cols="80" rows="8"><%=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>《“亚甫”留言系统v3.0单用户版》界面和功能仿BBS论坛，任何人可以留言，也可以回复他人的留言；
	     <br>留言板支持UBB标签，从安全方面考虑，不开方HTML标签的支持；</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>