admin_config.asp

教师评估系统

loop
Rs.Close
%></div><%
end sub

sub addAffiche
id=ChkNumeric(Request("id"))
if id>0 then
sql="select * from [WxAffiche] where id="&id&""
Set Rs=Conn.Execute(sql)
content=Rs("content")
title=Rs("title")
end if
%>
<form name="form" method="post" action="?menu=addAfficheok" onsubmit="return CheckForm(this);">
<input type="hidden" name="content" value='<%=content%>' />
<input type="hidden" name="id" value='<%=id%>' />
<div class="tb dt">
<div id="tt">发布公告</div>
<div class="tc b cb">
<div class="fl r si w2">标题</div>
<div class="fl si"><input type="text" name="Subject" size="60" value="<%=title%>" /></div>
</div>
<div class="tc b cb">
<div class="fl r c w2">内容</div>
<div class="fl c"><%WxEditor"full","content","550px","200px"%></div>
</div>
<div class="tc ac"><input type="submit" id="submit" name="EditSubmit" value="发表" /><input type="button" id="cancel" onclick="history.back()" value="取消" />
</div>
</div>
</form>
<%
end sub

sub upSiteSettings
%>
<div class="tb dt">
<div id="tt">系统维护模块</div>
<div class="tc b">
注：标<u>下划线</u>的功能执行时将占用较多的资源
</div>
<div class="tc">
<fieldset>
<legend>更新缓存信息</legend>
<span class="fl">重建系统的缓存，使新的设置生效</span><span class="fr"><input type="button" onclick="XmlGet('Admin_Config.asp?menu=RestartForum','result');" value=" 运行 " /></span>
</fieldset>
<fieldset>
<legend>更正版块资料</legend>
<span class="fl">重新计算所有版块的总帖数、主题数、回帖数、最后发帖等数据</span><span class="fr"><input type="button" onclick="XmlGet('Admin_Config.asp?menu=upSiteSettingsok','result');" value=" 运行 " /></span>
</fieldset>
<fieldset>
<legend>清空在线列表</legend>
<span class="fl">将在线列表中的数据删除，以便解决在线列表中出现的乱码或错误</span><span class="fr"><input type="button"  onclick="XmlGet('Admin_Config.asp?menu=RestoreOnline','result');" value=" 运行 " /></span>
</fieldset>
<fieldset>
<legend><u>清理无效数据</u></legend>
<span class="fl">清理存在错误的帖子、投票、短讯，清空系统日志</span><span class="fr"><input type="button" onclick="XmlGet('Admin_Config.asp?menu=upProcess','result');" value=" 运行 " /></span>
</fieldset>
<fieldset>
<legend><u>修复用户信息</u></legend>
<span class="fl">重新整理计算每个用户的总帖数、精华帖、被删帖数等数据</span><span class="fr"><input type="button" value=" 运行 " onclick="XmlGet('Admin_Config.asp?menu=upUserInfo','result');" /></span>
</fieldset>
<fieldset>
<legend><u>批量清理用户</u></legend>
<span class="fl">您提供条件，系统清理符合条件的冗余用户</span><span class="fr"><input type="button" value=" 运行 " onclick="go('Admin_User.asp?menu=UserProcess');" /></span>
</fieldset>
<fieldset>
<legend>批量清理帖子</legend>
<span class="fl">您提供条件，系统清理符合条件的帖子</span><span class="fr"><input type="button" value=" 运行 " onclick="go('Admin_Forum.asp?menu=bbsManage1');" /></span>
</fieldset>
<fieldset>
<legend>批量移动主题</legend>
<span class="fl">您提供条件，系统移动符合条件的主题</span><span class="fr"><input type="button" value=" 运行 " onclick="go('Admin_Forum.asp?menu=bbsManage3');" /></span>
</fieldset>
<fieldset>
<legend>批量清理短讯</legend>
<span class="fl">您提供条件，系统清理符合条件的短讯</span><span class="fr"><input type="button" value=" 运行 " onclick="go('Admin_Site.asp?menu=Message');" /></span>
</fieldset>
</div>
<div class="tc" id="result"></div>
</div>
<%
end sub

sub addgroupman
%>
<form method="post" name="form" action="?menu=masteradd">
<div class="tb dt">
<div id="tt">添加后台管理员</div>
<div class="tc b cb">
<div class="fl r i w4">管理员名称<br />可与用户名不同</div>
<div class="fl i"><input name="Adminname1" size="30" /></div>
</div>
<div class="tc b cb">
<div class="fl r i w4">管理员密码<br />可与用户密码不同</div>
<div class="fl i"><input type="password" name="Adminpass1" size="30" /></div>
</div>
<div class="tc b cb">
<div class="fl r i w4">前台用户名称<br />一个前台用户可绑定多个后台管理员</div>
<div class="fl i"><input name="ForumName1" size="29" /></div>
</div>
<div class="tc ac"><input type="submit" id="submit" value="添加" /><input type="button" id="cancel" onclick="history.back()" value="取消" /></div>
</div>
</form>
<%
end sub

sub groupman
%>
<div class="tb dt">
<div id="tt">后台管理员设置</div>
<div class="tc"><a href="?menu=addgroupman">点这里添加后台管理员</a><br />注意：您在添加新的后台管理员后，他所绑定的前台用户也将成为前台管理员</div>
<div id="tt">后台登录情况</div>
<div class="intro cb">
<div class="fl r w3">管理员</div>
<div class="fl r w3">前台用户</div>
<div class="fl r w2">登录IP</div>
<div class="fl w0">管理</div>
</div>
<%With Response
Set Rs=Conn.Execute("select Adminname,Adminpass,Loginip,ForumName from [WxAdmin]")
Do While Not Rs.Eof
ManUser=Rs(0)
ManName=rs(3)
%>
<div class="tc b cb">
<div class="fl r w3"><%=ManUser%></div>
<div class="fl r w3"><%=ManName%></div>
<div class="fl r w2"><%=Rs(2)%></div>
<div class="fl w0"><a href="?menu=killmaster&Adminname=<%=ManUser%>&ForumNameX=<%=ManName%>">删除</a></div>
</div>
<%
Rs.MoveNext
loop
Rs.Close
end With
%></div><%
end sub

sub ForumInclude%>
<form method="post" name="form" action="?menu=CreateCode">
<div class="tb dt">
<div id="tt">生成新帖调用代码</div>
<div class="tc b cb">
<div class="fl r si w3">调用版块</div>
<div class="fl si"><select name="ForumID"><option value="">整个论坛</option><%BBSList(0)%><%=ForumsList%></select></div>
</div>
<div class="tc b cb">
<div class="fl r i w3">显示主题数<br />显示主题的数目，最高为99</div>
<div class="fl i"><input type="text" name="TopicCount" maxlength="2" value="20" /></div>
</div>
<div class="tc b cb">
<div class="fl r i w3">时间范围<br />调用几天内的帖子，调用所有帖子请留空</div>
<div class="fl i"><input type="text" name="TimeLimit" maxlength="2" /></div>
</div>
<div class="tc b cb">
<div class="fl r i w3">排序方式<br />将按照这个标准排序</div>
<div class="fl i"><input type="radio" name="Sort" value="Posttime" checked="checked" />发帖时间倒序&nbsp;
<input type="radio" name="Sort" value="Views" />浏览量倒序&nbsp;
<input type="radio" name="Sort" value="Replies" />回复数倒序&nbsp;
<input type="radio" name="Sort" value="IsGood" />精华帖优先</div>
</div>
<div class="tc b cb">
<div class="fl r i w3">标题前符号<br />标题前显示的符号</div>
<div class="fl i"><input type="text" name="icon" value="◎" /></div>
</div>
<div class="tc b cb">
<div class="fl r i w3">标题长度<br />调用标题的最大长度，超过的部分用“...”代替</div>
<div class="fl i"><input type="text" name="TitleLen" value="15" /></div>
</div>
<div class="tc b cb">
<div class="fl r i w3">是否显示发表时间<br />是否在标题后显示帖子发表的精确时间</div>
<div class="fl i"><input type="radio" name="Showtime" value="1" />是&nbsp;&nbsp;<input type="radio" name="Showtime" value="0" checked="checked" />否</div>
</div>
<div class="tc ac"><input type="submit" id="submit" value="生成" /><input type="button" id="cancel" onclick="history.back()" value="取消" /></div>
</div>
</form>
<%
end sub

sub CreateCode
 ShowTimeHtml="&ShowTime="&Request.Form("ShowTime")
 if Request.Form("ForumID")<>Empty Then ForumHtml="&ForumID="&Request.Form("ForumID")
 if Request.Form("TopicCount")>0 Then TopicCountHtml="&TopicCount="&Request.Form("TopicCount")
 if Request.Form("TimeLimit")<>Empty Then TimeLimitHtml="&TimeLimit="&Request.Form("TimeLimit")
 if Request.Form("Sort")<>Empty Then SortHtml="&Sort="&Request.Form("Sort")
 if Request.Form("Icon")<>Empty Then IconHtml="&Icon="&Request.Form("Icon")
 if Request.Form("TitleLen")>0 Then TitleLenHtml="&TitleLen="&Request.Form("TitleLen")
 Html="<script src="&Cache("SiteUrl")&"New.asp?menu=IncTopic"&ShowTimeHtml&ForumHtml&TopicCountHtml&TimeLimitHtml&SortHtml&IconHtml&TitleLenHtml&"></script>"
 AdminSucc "<textarea rows=""3"" cols=""99"" name=""code"">"&HtmlEncode(Html)&"</textarea>生成新帖调用代码",""
end sub

sub variable
AutoSiteUrl="http://"&Request.ServerVariables("server_name")&Request.ServerVariables("script_name")&""
AutoSiteUrl=Left(AutoSiteURL,inStrRev(AutoSiteURL,"/"))%>
<script type="text/javascript">
function VerifyInput() {
if (document.form.SiteName.value == ""){alert("请输入站点名称");document.form.SiteName.focus();return false;}
if (document.form.DefaultStyle.value == ""){alert("默认风格不能没有设置");document.form.DefaultStyle.focus();return false;}}
function InputCorrectUrl() {document.form.SiteUrl.value='<%=AutoSiteUrl%>';document.form.SiteUrl.focus();}
</script>
<%WxManageHead("<a name=""top""></a><a href=""#基本参数"">基本参数</a> <a href=""#界面设置"">界面设置</a> <a href=""#SEO设置"">SEO设置</a> <a href=""#发帖设置"">发帖设置</a> <a href=""#上传设置"">上传设置</a> <a href=""#水印设置"">水印设置</a> <a href=""#SMTP设置"">SMTP设置</a> <a href=""#过滤设置"">过滤设置</a> <a href=""#用户选项"">用户选项</a> <a href=""#论坛选项"">论坛选项</a> <a href=""#帖子设置"">帖子设置</a> <a href=""#验证码设置"">验证码设置</a> <a href=""#积分设置"">积分设置</a>")%>
<form method="post" name="form" action="?menu=infoup" onsubmit="return VerifyInput();">
<%
divX"基本参数"
inputX"论坛名称","论坛的名称","SiteName",""
inputX"论坛Url","论坛的Url地址，以""/""结尾。<a onclick='InputCorrectUrl()'>点这里自动检测</a>","SiteUrl",""
inputX"网站名称","所属网站名称","CompanyName",""
inputX"网站Url","所属网站Url地址","CompanyUrl",""
inputX"网站备案信息","所属网站的ICP备案信息","ICPName",""
inputX"统计用户在线时间","单位：分钟。默认:20","UserOnlineTime",""
inputX"脚本超时时间","单位：秒。默认:90","TimeOut",""
inputX"常驻管理员名称","大部分用户递交的如帖子报告等信息默认发给该用户","AdminName",""
%>
<div class="tc b cb">
<div class="fl r i w4"><b>Cookie 保存路径</b><br />若同一个域名下有多个论坛，请将它设置为每个论坛所在的目录名。
</div>
<div class="fl i">
<select name="CookiePath">
<option value="/">/</option>
<option value="<%=AutoSiteUrl%>"<%if Cache("CookiePath")=AutoSiteUrl then%> selected="selected"<%end if%>><%=AutoSiteUrl%></option>
</select></div>
</div>
<%
Response.write "</div>"
divX"界面设置"
inputX"默认外观模板","输入在Themes下的目录名即可","DefaultStyle",""
boolX"显示顶部广告","在论坛顶部显示广告","DisplayTopAd"
boolX"显示在线用户","在首页和论坛列表页显示在线用户列表","DisplayWhoIsOnline"
inputX"首页显示生日人数","在首页显示今天过生日的最大会员人数，0 为关闭显示生日会员功能。注意: 为了不影响首页打开速度，建议设置为小于200","DisplayBirthdays",""
inputX"每页显示主题数","主题列表中每页显示主题数目","ThreadsPerPage",""
inputX"每页显示帖数","帖子列表中每页显示帖子数目","PostsPerPage",""
inputX"默认RSS源主题数","Rss源每次更新请求的帖子数目","RssPerPage",""
Response.write "</div>"
divX"SEO设置"
inputX"论坛描述信息(meta)","论坛概要与描述","MetaDescription",40
inputX"论坛关键字(meta)","论坛关键字，多关键字请用“,”隔开","MetaKeywords",40
%><div class="tc b cb">
<div class="fl r w4 i"><b>友情链接</b><br />若其中优秀网站较多则选择搜索引擎可见</div>
<div class="fl i">
<input type="radio" name="DisplayLink" value="0"<%if Cache("DisplayLink")=0 then%> checked="checked"<%end if%> />不显示
<input type="radio" name="DisplayLink" value="1"<%if Cache("DisplayLink")=1 then%> checked="checked"<%end if%> />仅搜索引擎可见
<input type="radio" name="DisplayLink" value="2"<%if Cache("DisplayLink")=2 then%> checked="checked"<%end if%> />用户及搜索引擎可见
</div>
</div>
<%
boolX"启用手动Archiver","手动Archiver即手动静态存档","ArchiverMode"
boolX"用户资料游客可见","搜索引擎为游客级别，开启即允许搜索引擎收录该类页面","ProfileMode"
Response.write "</div>"
divX"发帖设置"
inputX"投票选项最少","投票选项最少不得低于该数值","MinVoteItem",""
inputX"投票选项最大","投票选项最大不得高于该数值","MaxVoteItem",""
inputX"开启直接/快速跳转","论坛操作完成后的提示信息停留时间，单位秒，一般设置为 1-3，较短的提示可以给用户快速的体验，但是过短的提示时间也可能让用户无法看清信息","RefreshTime",""
boolX"不允许相同内容帖子","该功能可有效阻止AD帖子的发生","NotSamePost"
Response.write "</div>"
divX"上传设置"
%>
<div class="tc b cb">
<div class="fl r si w4"><b>选择上传组件</b></div>
<div class="fl si"><select name="UploadObj" onchange="IsObjInstalled('DetectUpFile',this.options[this.selectedIndex].value)">
<option value="">关闭</option>
<option value="ADODB.Stream"<%if Cache("UploadObj")="ADODB.Stream" then%> selected="selected"<%end if%>>ADODB.Stream</option>
<option value="SoftArtisans.FileUp"<%if Cache("UploadObj")="SoftArtisans.FileUp" then%> selected="selected"<%end if%>>SoftArtisans.FileUp</option>
<option value="Persits.Upload"<%if Cache("UploadObj")="Persits.Upload" then%> selected="selected"<%end if%>>AspUpload</option>
</select><span id="DetectUpFile"></span></div>
</div>
<%
inputX"最低发帖数","用户在本月内的发帖数只有达到这个数字才可获得上传权限","MinUpPermission",""
inputX"允许上传的附件类型（请用“|”隔开）","例如：jpg|gif|zip|rar","UploadExt",""
%>
<div class="tc b cb">
<div class="fl r i w4"><b>设置会员上传文件夹的最大容量 (byte)</b><br />默认:5242880</div>
<div class="fl i">
<input type="radio" name="MaxUp"<%if Cache("MaxUp")<>"true" then%> checked="checked"<%end if%> value="false" />统一设置为<input size="30" value="<%=Cache("MaxAffixSize")%>" name="MaxAffixSize" /> &nbsp;<input type="radio" name="MaxUp"<%if Cache("MaxUp")="true" then%> checked="checked"<%end if%> value="true" />根据角色设置</div>