📄 admin.asp
字号:
<!--#include file="inc_common.asp"-->
<!--#include file="inc_md5.asp"-->
<%
'**************************************
'** admin.asp
'**
'** 文件说明：留言本管理页面
'** 修改日期：2005-08-20
'** 作者：Howlion
'** Email：howlion@163.com
'**************************************
dim adminAct
adminAct=request.querystring("act")
select case adminAct
case "update"
call update()
case "del"
call del()
case "check"
call check()
case else
sub pageContent()
if adminAct="batch" then
Batch()
else
Setting()
end if
end sub
if adminAct="batch" then
pagename="批量管理留言"
else
pagename="设置留言本"
end if
call bodySkin()
end select
function Setting() '//////// 留言本设置页面
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" value="font"<%if UBBcfg_font=1 then%> checked="checked"<%end if%>>字体 <input type="checkbox" name="UBBcfg" value="size"<%if UBBcfg_size=1 then%> checked="checked"<%end if%>>字号 <input type="checkbox" name="UBBcfg" value="color"<%if UBBcfg_color=1 then%> checked="checked"<%end if%>>文字颜色 <input type="checkbox" name="UBBcfg" value="bold"<%if UBBcfg_b=1 then%> checked="checked"<%end if%>>粗体 <input type="checkbox" name="UBBcfg" value="italic"<%if UBBcfg_i=1 then%> checked="checked"<%end if%>>斜体 <input type="checkbox" name="UBBcfg" value="underline"<%if UBBcfg_u=1 then%> checked="checked"<%end if%>>下划线<br><input type="checkbox" name="UBBcfg" value="center"<%if UBBcfg_center=1 then%> checked="checked"<%end if%>>居中 <input type="checkbox" name="UBBcfg" value="URL"<%if UBBcfg_URL=1 then%> checked="checked"<%end if%>>超链接 <input type="checkbox" name="UBBcfg" value="email"<%if UBBcfg_email=1 then%> checked="checked"<%end if%>>email链接 <input type="checkbox" name="UBBcfg" value="shadow"<%if UBBcfg_shadow=1 then%> checked="checked"<%end if%>>阴影字 <input type="checkbox" name="UBBcfg" value="glow"<%if UBBcfg_glow=1 then%> checked="checked"<%end if%>>发光字<br><input type="checkbox" name="UBBcfg" value="pic"<%if UBBcfg_pic=1 then%> checked="checked"<%end if%>>图片 <input type="checkbox" name="UBBcfg" value="swf"<%if UBBcfg_swf=1 then%> checked="checked"<%end if%>>Flash <input type="checkbox" name="UBBcfg" value="emot"<%if UBBcfg_emot=1 then%> checked="checked"<%end if%>>表情图<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" <%if lock=0 then%>checked="checked" <%end if%>name="lock">开放 <input type="radio" value="1" <%if lock=1 then%>checked="checked" <%end if%>name="lock">锁定
<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">需要 <input type="radio" value="0" <%if needcheck=0 then%>checked="checked" <%end if%>name="needcheck">不需要 <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 update() '//////// 更新设置
if not login then
errinfo="<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列表、管理密码和广告过滤以外，其它各项都是必填的"
end if
if new_password1<>new_password2 then
errinfo=errinfo & "<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>每页显示留言数必须为数字"
end if
if (not new_maxnum="") and not(isnumeric(new_maxnum)) then
errinfo=errinfo & "<li>最大留言字数必须为数字"
end if
if (not new_stat="") and not(isnumeric(new_stat)) then
errinfo=errinfo & "<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
rs("maxnum")=new_maxnum
rs("notice")=new_notice
rs("badip")=new_badip
rs("adword")=new_adword
rs("stat")=new_stat
rs("UBBconfig")=new_UBBcfg
rs("lock")=new_lock
rs("needcheck")=new_needcheck
rs("skinFolder")=new_skinFolder
rs("imagesFolder")=new_imagesFolder
rs("emotFolder")=new_emotFolder
rs("userfacesFolder")=new_userfacesFolder
rs.update
rs.close
response.redirect "index.asp"
response.flush
end if
end sub
function Batch() '//////// 批量管理留言
dim currentpage,page_count,pcount
dim totalrec,endpage
if request.querystring("page")="" then
currentpage=1
else
currentpage=cint(request.querystring("page"))
end if
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -