📄 admin.asp
字号:
<!--#include file="inc_common.asp"-->
<!--#include file="inc_md5.asp"-->
<%
'**************************************
'** admin.asp
'**
'** 文件说明：留言本管理页面
'** 修改日期：2006-04-30
'** 作者：Howlion
'** Email：howlion@163.com
'**************************************
dim adminAct
adminAct=request.querystring("act")
select case adminAct
case "update"
call updateSettings()
case "del"
call delMsg()
case "check"
call checkMsg()
case else
sub pageContent()
if adminAct="batch" then
BatchMsg()
else
SetBook()
end if
end sub
if adminAct="batch" then
pagename="批量管理留言"
else
pagename="设置留言本"
end if
call bodySkin()
end select
function SetBook() '//////// 留言本设置页面
if not login then
errinfo="<li>您未登陆或已经退出登陆，不能进入该页。"
call showError()
else
%>
<form method="post" action="?act=update">
<div class="row">
<div class="row-left">网站名称：</div>
<div class="row-right">
<input type="text" name="site" size="29" value="<%=site%>" />
<br />
<span class="noteText">留言本所属的站点的名称（如：搜狐网）。</span></div>
</div>
<div class="row">
<div class="row-left">网站地址：</div>
<div class="row-right">
<input type="text" name="URL" size="29" value="<%=URL%>" />
<br />
<span class="noteText">请注意：必须是完整的地址（如：http://www.howlion.com/）。</span></div>
</div>
<div class="row">
<div class="row-left">管理员名称：</div>
<div class="row-right">
<input type="text" name="name" size="29" value="<%=name%>" />
<br />
<span class="noteText">换上你自己的称呼。</span></div>
</div>
<div class="row">
<div class="row-left">修改管理员密码：</div>
<div class="row-right">
<input type="password" name="password" size="29" />
<br />
<span class="noteText">若不希望修改，留空即可。</span></div>
</div>
<div class="row">
<div class="row-left">重复密码：</div>
<div class="row-right">
<input type="password" name="password2" size="29" />
<br />
<span class="noteText">同上。</span></div>
</div>
<div class="row">
<div class="row-left">管理员Email：</div>
<div class="row-right">
<input type="text" name="adminmail" size="29" value="<%=adminmail%>" />
<br />
<span class="noteText">换上你自己的email。</span></div>
</div>
<div class="row">
<div class="row-left">每页显示留言数：</div>
<div class="row-right">
<input type="text" name="perpage" size="10" value="<%=perpage%>" />
</div>
</div>
<div class="row">
<div class="row-left">最大留言字数：</div>
<div class="row-right">
<input type="text" name="maxnum" size="10" value="<%=maxnum%>" />
</div>
</div>
<div class="row">
<div class="row-left">留言提示：</div>
<div class="row-right">
<textarea rows="5" name="notice" cols="55"><%=notice%></textarea>
<br />
<span class="noteText">可以是欢迎词、警告、站点说明等，将出现在提交留言页面的顶部，支持UBB代码。</span></div>
</div>
<div class="row">
<div class="row-left">不受欢迎的IP：</div>
<div class="row-right">
<textarea rows="5" name="badip" cols="34"><%=badip%></textarea>
<br />
<span class="noteText">不受欢迎的IP地址将无法进入留言本。<b>每个IP地址必须占一行</b>。</span></div>
</div>
<div class="row">
<div class="row-left">广告过滤：</div>
<div class="row-right">
<textarea rows="5" name="adword" cols="34"><%=adword%></textarea>
<br />
<span class="noteText">包含上述某一词语的留言将无法提交，如果以上某个词语和您的站点的主题有关，请将其从文本框中删去。<b>每个词语必须占一行</b>。</span></div>
</div>
<div class="row">
<div class="row-left">访问次数：</div>
<div class="row-right">
<input type="text" name="stat" size="10" value="<%=stat%>" />
<span class="noteText">修改留言本自带的计数器的数值。</span></div>
</div>
<div class="row">
<div class="row-left">皮肤文件夹：</div>
<div class="row-right">
<input type="text" name="skinFolder" size="29" value="<%=skinFolder%>" />
<br />
<span class="noteText">外观皮肤所在的文件夹，如 skins/blue</span></div>
</div>
<div class="row">
<div class="row-left">图片文件夹：</div>
<div class="row-right">
<input type="text" name="imagesFolder" size="29" value="<%=imagesFolder%>" />
<br />
<span class="noteText">系统图片所在的文件夹，如 skins/default/images</span></div>
</div>
<div class="row">
<div class="row-left">表情文件夹：</div>
<div class="row-right">
<input type="text" name="emotFolder" size="29" value="<%=emotFolder%>" />
<br />
<span class="noteText">留言表情所在的文件夹，如 skins/default/emot</span></div>
</div>
<div class="row">
<div class="row-left">头像文件夹：</div>
<div class="row-right">
<input type="text" name="userfacesFolder" size="29" value="<%=userfacesFolder%>" />
<br />
<span class="noteText">留言者头像所在的文件夹，如 skins/default/userfaces</span></div>
</div>
<div class="row">
<div class="row-left">自定义UBB支持：</div>
<div class="row-right">
<input type="checkbox" name="UBBcfg" id="UBBcfg_font" value="font"<%if UBBcfg_font=1 then%> checked="checked"<%end if%> />
<label for="UBBcfg_font">字体</label>
<input type="checkbox" name="UBBcfg" id="UBBcfg_size" value="size"<%if UBBcfg_size=1 then%> checked="checked"<%end if%> />
<label for="UBBcfg_size">字号</label>
<input type="checkbox" name="UBBcfg" id="UBBcfg_color" value="color"<%if UBBcfg_color=1 then%> checked="checked"<%end if%> />
<label for="UBBcfg_color">文字颜色</label>
<input type="checkbox" name="UBBcfg" id="UBBcfg_bold" value="bold"<%if UBBcfg_b=1 then%> checked="checked"<%end if%> />
<label for="UBBcfg_bold">粗体</label>
<input type="checkbox" name="UBBcfg" id="UBBcfg_italic" value="italic"<%if UBBcfg_i=1 then%> checked="checked"<%end if%> />
<label for="UBBcfg_italic">斜体</label>
<input type="checkbox" name="UBBcfg" id="UBBcfg_underline" value="underline"<%if UBBcfg_u=1 then%> checked="checked"<%end if%> />
<label for="UBBcfg_underline">下划线</label><br />
<input type="checkbox" name="UBBcfg" id="UBBcfg_center" value="center"<%if UBBcfg_center=1 then%> checked="checked"<%end if%> />
<label for="UBBcfg_center">居中</label>
<input type="checkbox" name="UBBcfg" id="UBBcfg_URL" value="URL"<%if UBBcfg_URL=1 then%> checked="checked"<%end if%> />
<label for="UBBcfg_URL">超链接</label>
<input type="checkbox" name="UBBcfg" id="UBBcfg_email" value="email"<%if UBBcfg_email=1 then%> checked="checked"<%end if%> />
<label for="UBBcfg_email">email链接</label>
<input type="checkbox" name="UBBcfg" id="UBBcfg_shadow" value="shadow"<%if UBBcfg_shadow=1 then%> checked="checked"<%end if%> />
<label for="UBBcfg_shadow">阴影字</label>
<input type="checkbox" name="UBBcfg" id="UBBcfg_glow" value="glow"<%if UBBcfg_glow=1 then%> checked="checked"<%end if%> />
<label for="UBBcfg_glow">发光字</label><br />
<input type="checkbox" name="UBBcfg" id="UBBcfg_pic" value="pic"<%if UBBcfg_pic=1 then%> checked="checked"<%end if%> />
<label for="UBBcfg_pic">图片</label>
<input type="checkbox" name="UBBcfg" id="UBBcfg_swf" value="swf"<%if UBBcfg_swf=1 then%> checked="checked"<%end if%> />
<label for="UBBcfg_swf">Flash</label>
<input type="checkbox" name="UBBcfg" id="UBBcfg_emot" value="emot"<%if UBBcfg_emot=1 then%> checked="checked"<%end if%> />
<label for="UBBcfg_emot">表情图</label><br />
<span class="noteText"><b>注意：</b>某些Flash动画可能包含有害的脚本，请慎重选择是否支持Flash！</span></div>
</div>
<div class="row">
<div class="row-left">留言本状态：</div>
<div class="row-right">
<input type="radio" value="0" id="lock_off" <%if lock=0 then%>checked="checked" <%end if%>name="lock" /> <label for="lock_off">开放</label>
<input type="radio" value="1" id="lock_on" <%if lock=1 then%>checked="checked" <%end if%>name="lock" /> <label for="lock_on">锁定</label> <span class="noteText">（若锁定，任何人都不能发表留言）</span>
</div>
</div>
<div class="row">
<div class="row-left">留言审核：</div>
<div class="row-right">
<input type="radio" value="1" <%if needcheck=1 then%>checked="checked" <%end if%>name="needcheck" id="needcheck_on" /> <label for="needcheck_on">需要</label>
<input type="radio" value="0" <%if needcheck=0 then%>checked="checked" <%end if%>name="needcheck" id="needcheck_off" /> <label for="needcheck_off">不需要</label> <span class="noteText">（未经审核的留言将不会被显示，但管理员可以看到）</span></div>
</div>
<div class="row">
<div class="row-right"><br />
<input type="submit" class="button" value="提 交" name="submit" />
<input type="reset" class="button" value="清 除" name="submit2" />
</div>
</div>
</form>
<%
end if
conn.close
set rs=nothing
end function
sub updateSettings() '//////// 更新设置
if not login then
errinfo="<li>您未登陆或已经退出登陆，不能进入该页。</li>"
call showError()
else
dim new_site,new_URL,new_name,new_password1
dim new_password2,new_adminmail,new_perpage
dim new_maxnum,new_notice,new_badip,new_adword
dim new_stat,new_UBBcfg,new_lock,new_needcheck
dim new_skinFolder,new_imagesFolder,new_emotFolder,new_userfacesFolder
new_site=trim(request.form("site"))
new_URL=trim(request.form("URL"))
new_name=trim(request.form("name"))
new_password1=trim(request.form("password"))
new_password2=trim(request.form("password2"))
new_adminmail=trim(request.form("adminmail"))
new_perpage=trim(request.form("perpage"))
new_maxnum=trim(request.form("maxnum"))
new_notice=request.form("notice")
new_badip=trim(request.form("badip"))
new_adword=trim(request.form("adword"))
new_stat=trim(request.form("stat"))
new_UBBcfg=request.form("UBBcfg")
new_lock=request.form("lock")
new_needcheck=request.form("needcheck")
new_skinFolder=trim(request.form("skinFolder"))
new_imagesFolder=trim(request.form("imagesFolder"))
new_emotFolder=trim(request.form("emotFolder"))
new_userfacesFolder=trim(request.form("userfacesFolder"))
if new_site="" or new_URL="" or new_name="" or new_adminmail="" or new_perpage="" or new_maxnum="" or new_stat="" or new_lock="" or new_skinFolder="" or new_imagesFolder="" or new_emotFolder="" or new_userfacesFolder="" then
errinfo=errinfo & "<li>内容填写不完整。除了留言提示、IP列表、管理密码和广告过滤以外，其它各项都是必填的</li>"
end if
if new_password1<>new_password2 then
errinfo=errinfo & "<li>两次输入的密码不一致</li>"
else
dim finalPW
if new_password1="" then
finalPW=password
else
finalPW=MD5(new_password1)
end if
end if
if (not new_perpage="") and not(isnumeric(new_perpage)) then
errinfo=errinfo & "<li>每页显示留言数必须为数字</li>"
end if
if (not new_maxnum="") and not(isnumeric(new_maxnum)) then
errinfo=errinfo & "<li>最大留言字数必须为数字</li>"
end if
if (not new_stat="") and not(isnumeric(new_stat)) then
errinfo=errinfo & "<li>访问次数必须为数字</li>"
end if
call showError()
set rs= server.createobject("adodb.recordset")
sql="select top 1 * from [admin]"
rs.open sql,conn,3,2
rs.update
rs("site")=new_site
rs("URL")=new_URL
rs("name")=new_name
rs("password")=finalPW
rs("adminmail")=new_adminmail
rs("perpage")=new_perpage
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -