admin_config.asp

教师评估系统

</div>
<div class="tc b cb">
<div class="fl r i w4"><b>允许单个帖子附件的大小 (byte)</b><br />默认:20480</div>
<div class="fl i">
<input type="radio" value="false" name="MaxUp2"<%if Cache("MaxUp2")<>"true" then%> checked="checked"<%end if%> />统一设置为<input size="30" value="<%=Cache("MaxFileSize")%>" name="MaxFileSize" /> &nbsp;<input type="radio" name="MaxUp2" value="true"<%if Cache("MaxUp2")="true" then%> checked="checked"<%end if%> />根据角色设置</div>
</div>
<%
inputX"允许单个头像文件的大小 (byte)","默认:5120","MaxFaceSize",""
Response.write "</div>"
divX"Jpeg水印设置"
%>
<div class="tc b cb">
<div class="fl r si w4"><b>水印图片组件</b></div>
<div class="fl si"><select name="WMObj" onchange="IsObjInstalled('DetectJpeg',this.options[this.selectedIndex].value)">
<option value="">关闭</option>
<option value="Persits.Jpeg"<%if Cache("WMObj")="Persits.Jpeg" then%> selected="selected"<%end if%>>Persits.Jpeg</option>
</select><span id="DetectJpeg"></span></div>
</div>
<div class="tc b cb">
<div class="fl r si w4"><b>水印效果</b></div>
<div class="fl si"><select name="WMType">
<option value="0"<%if Cache("WMType")="0" then%> selected="selected"<%end if%>>水印文字</option>
<option value="1"<%if Cache("WMType")="1" then%> selected="selected"<%end if%>>水印图片</option>
</select></div>
</div>
<%
inputX"水印文字","该文字将显示于用户上传的图片上","WMText",""
inputX"水印文字颜色","该文字颜色用于修饰水印文字","WMColor",""
%>
<div class="tc b cb">
<div class="fl r i w4"><b>水印文字字体</b><br />该文字字体用于修饰水印文字</div>
<div class="fl i">
 <select name="WMFont">
 <option value="<%=Cache("WMFont")%>"><%=Cache("WMFont")%></option>
 <option value="宋体">宋体</option>
 <option value="楷体_GB2312">楷体</option>
 <option value="黑体">黑体</option>
 <option value="隶书">隶书</option>
 <option value="Arial">Arial</option> 
 <option value="Arial Black">Arial Black</option> 
 <option value="Impact">Impact</option>
 <option value="Tahoma">Tahoma</option>
 <option value="Verdana">Verdana</option>
 </select>
</div>
</div>
<%
inputX"水印文字字号","是一个正整数，该字号用于修饰水印文字","WMSize",""
boolX "水印文字是否加粗","如果加粗，则出现类似<b>这样</b>的样式","WMBold"
inputX"水印图片的相对路径","该图片将显示于用户上传的图片上","WMImg",40
inputX"水印图片透明度","水印图片显示在上传图片上的透明度，若为50%则填写0.5","WMExtent",""
%>
<div class="tc b cb">
<div class="fl r si w4"><b>水印图片显示位置</b></div>
<div class="fl si"><select name="WMPosition">
<option value="0"<%if Cache("WMPosition")="0" then%> selected="selected"<%end if%>>左上</option>
<option value="1"<%if Cache("WMPosition")="1" then%> selected="selected"<%end if%>>左下</option>
<option value="2"<%if Cache("WMPosition")="2" then%> selected="selected"<%end if%>>居中</option>
<option value="3"<%if Cache("WMPosition")="3" then%> selected="selected"<%end if%>>右上</option>
<option value="4"<%if Cache("WMPosition")="4" then%> selected="selected"<%end if%>>右下</option>
</select></div>
</div>
<%
Response.write "</div>"
divX"SMTP设置"
%>
<div class="tc b cb">
<div class="fl r si w4"><b>发送邮件组件</b></div>
<div class="fl si"><select name="SmtpObj" onchange="IsObjInstalled('DetectSmtp',this.options[this.selectedIndex].value)">
<option value="">关闭</option>
<option value="JMail.Message"<%if Cache("SmtpObj")="JMail.Message" then%> selected="selected"<%end if%>>JMail.Message</option>
<option value="CDO.Message"<%if Cache("SmtpObj")="CDO.Message" then%> selected="selected"<%end if%>>CDO.Message</option>
<option value="Persits.MailSender"<%if Cache("SmtpObj")="Persits.MailSender" then%> selected="selected"<%end if%>>Aspmail</option>
</select><span id="DetectSmtp"></span></div>
</div>
<%
inputX"发件人Email地址","","SmtpMail",25
inputX"Smtp服务器","Smtp服务器用来为你的论坛发送邮件","SmtpServer",25
inputX"Smtp用户名","用来登录Smtp服务器的注册名称","SmtpUser",25
inputX"Smtp密码","用来登录Smtp服务器的密码","SmtpPass",25
Response.write "</div>"
divX"过滤设置"
inputX"过滤HTML标签（请用“|”隔开）","默认：link|script|object|iframe|form|style|div|caption|!--|meta","BannedHtmlLabel",50
inputX"过滤HTML标签属性（请用“|”隔开）","默认：javascript:|onError|onload|onmouseover","BannedHtmlEvent",50
inputX"过滤敏感词（请用“|”隔开）","例如：fuck|shit|你妈","BannedText",50
inputX"过滤用户帖子（请用“|”隔开）","这些用户的帖子内容将被屏蔽","BannedUserPost",50
inputX"禁止注册的字符（请用“|”隔开）","例如：fuck|shit|admin","BannedRegUserName",50
inputX"屏蔽IP地址（请用“|”隔开）","例如：127.0.0.1|192.168.0.1","BannedIP",50
Response.write "</div>"
divX"用户选项"
inputX"用户收件箱最大条数","超过这个数字，该用户将被禁止接受和发送短讯","MaxSms",""
%>
<div class="tc b cb">
<div class="fl r si w4"><b>用户激活方式</b></div>
<div class="fl si">
<input type="radio" name="EnableUser" value="0"<%if Cache("EnableUser")=0 then%> checked="checked"<%end if%> />默认激活 
<input type="radio" name="EnableUser" value="1"<%if Cache("EnableUser")=1 then%> checked="checked"<%end if%> />激活并Email发送密码 
<input type="radio" name="EnableUser" value="2"<%if Cache("EnableUser")=2 then%> checked="checked"<%end if%> />管理员审核 
<input type="radio" name="EnableUser" value="3"<%if Cache("EnableUser")=3 then%> checked="checked"<%end if%> />邀请码注册</div>
</div>
<%
boolX "关闭用户注册","","CloseRegUser"
boolX"关闭游客发帖","","CloseVisitorRe"
boolX "一个Email只能注册一个帐号","","OnlyMailReg"
boolX "显示注册协议","用户注册时是否显示注册协议","DisplayAgreement"
textareaX"用户注册协议","注册协议内容，支持HTML","Agreement"
boolX "游客使用站内搜索","是否允许游客使用站内搜索","GuestSearch"
boolX "游客使用主题索引","是否允许游客使用主题索引","GuestList"
Response.write "</div>"
divX"帖子设置"
inputX"发帖间隔（秒）","同一个用户2次发帖的间隔","DuplicatePostIntervalInMinutes",20
inputX"注册后多长时间才能发表帖子（秒）","","RegUserTimePost",20
inputX"热门帖子的回复数","一个主题需要多少篇回帖才能变成热门?","PopularPostThresholdPosts",20
inputX"热门帖子的浏览数","一个主题需要多少次浏览才能变成热门?","PopularPostThresholdViews",20
boolX"显示编辑记录","是否在帖子内容下追加帖子的编辑记录","DisplayEditNotes"
Response.write "</div>"
divX"验证码设置"
boolX"启用注册验证","在用户注册时启用验证码功能","RegVerifyCode"
boolX"启用登录验证","在用户登录时启用验证码功能","LoginVerifyCode"
boolX"启用发帖验证","在用户发帖时启用验证码功能","PostVerifyCode"
Response.write "</div>"
divX"积分设置"
inputX"最小奖励经验","版主行使评价帖子时可输入的最小奖励经验，默认：-50","MinAwardexp",""
inputX"最大奖励经验","版主行使评价帖子时可输入的最大奖励经验，默认：50","MaxAwardexp",""
inputX"最小奖励金币","版主行使评价帖子时可输入的最小奖励金币，默认：-50","MinAwardm",""
inputX"最大奖励金币","版主行使评价帖子时可输入的最大奖励金币，默认：50","MaxAwardm",""
inputX"上传头像最大高度","上传头像图片允许的最大高度，默认：150","MaxFaceheight",""
inputX"上传头像最大宽度","上传头像图片允许的最大宽度，默认：100","MaxFacewidth",""
inputX"使用上传功能需要金币","使用上传头像功能每次需要支付的金币数，默认：20","UseMoney",""
inputX"发主题帖","用户每发一个主题帖所得金币和经验，默认：3","IntegralAddThread",""
inputX"回帖","用户每回一个帖子所得金币和经验，默认：1","IntegralAddPost",""
inputX"加精华","斑竹将某帖子加为精华后，帖子的发帖人所得金币和经验，默认：20","IntegralAddValuedPost",""
inputX"主题帖被删除","斑竹删除某主题帖后，帖子的发帖人所得金币和经验，默认：-3","IntegralDeleteThread",""
inputX"回帖被删除","斑竹删除某回帖后，帖子的发帖人所得金币和经验，默认：-1","IntegralDeletePost",""
inputX"精华被取消","斑竹取消某精华后，帖子的发帖人所得金币和经验，默认：-20","IntegralDeleteValuedPost",""
inputX"银行利率","输入1则表示银行利率为1%","BankExchange",""
saveit
end sub

sub infoup
if Request("EnableUser")="1" and Request("SmtpObj")="" then Error2("您选择了注册用户密码通过Email发送，但是您没有设定发送邮件组件")
if instr("|"&Request.Form("BannedIP"),"|"&Request.ServerVariables("REMOTE_ADDR")&"")>0 Then Error2("您设置的禁止IP列表中有您的IP地址，请检查")
if Request("UploadObj")<>"" then if Not IsObjInstalled(Request("UploadObj")) then Error2("本服务器不支持 "&Request("UploadObj")&" 组件！请关闭此功能！")
if Request("SmtpObj")<>"" then if Not IsObjInstalled(Request("SmtpObj")) then Error2("本服务器不支持 "&Request("SmtpObj")&" 组件！请关闭此功能！")
if Request("WMObj")<>"" then if Not IsObjInstalled(Request("WMObj")) then Error2("本服务器不支持 "&Request("WMObj")&" 组件！请关闭此功能！")
Set objXML=Server.CreateObject("Microsoft.XMLDOM")
objXML.load Server.MapPath(XmlPath&"Kernel.xml")
for each item in Request.Form
objXML.documentElement.SelectSingleNode(item).text=Request.Form(item)
next
objXML.Save Server.MapPath(XmlPath&"Kernel.xml")
Set objXML=Nothing
AdminSucc"更新系统信息",""
end sub

sub SiteStatUp
Set objXML=Server.CreateObject("Microsoft.XMLDOM")
objXML.load Server.MapPath(XmlPath&"Stat.xml")
for each item in Request.Form
objXML.documentElement.SelectSingleNode(item).text=Request.Form(item)
next
objXML.Save Server.MapPath(XmlPath&"Stat.xml")
Set objXML=Nothing
CreateCache()
AdminSucc "更新统计信息",""
end sub

sub adup
Set objXML=Server.CreateObject("Microsoft.XMLDOM")
objXML.load Server.MapPath(XmlPath&"Kernel.xml")
objXML.documentElement.SelectSingleNode("TopAd").text=Replace(Replace(Request.Form("TopAd"),"<![CDATA[",""),"]]>","")
objXML.documentElement.SelectSingleNode("BottomAd").text=Replace(Replace(Request.Form("BottomAd"),"<![CDATA[",""),"]]>","")
objXML.Save Server.MapPath(XmlPath&"Kernel.xml") 
Set objXML=Nothing
AdminSucc "更新系统广告","?menu=Showbanner"
end sub

sub Showbanner
WxManageHead "<a href=""#Showbanner"">系统广告设置</a>&nbsp;<a href=""#PostAd"">帖间广告设置</a>"%>
<a name="Showbanner"></a>
<form method="post" action="?menu=adup">
<div class="tb dt">
<div id="tt">系统广告设置</div>
<%
textareaX"顶部广告","支持HTML","TopAd"
textareaX"底部广告","支持HTML","BottomAd"
%>
<div class="tc b cb">
<div class="fl r t w4">推荐广告</div>
<div>
1.<a href="http://www.99to.com/reg/index.asp?u_sxid=92015" target="_blank">如果您打算购买空间，不妨看看无限推荐的</a><br />
2.<a href="http://alexa.alexacn.net/reg.asp?id=5571" target="_blank">到Alexacn刷流量和排名，效果较好</a><br />
3.<a href="http://www.9v.cn/?id=14681" target="_blank">九赢广告联盟，信誉好，佣金高</a><br />
4.<a href="http://www.cn-class.cn/alexa/user/register.asp?toref=495" target="_blank">到365互联刷流量和排名，效果不错</a><br />
<u>1.2.4可使网站获得较高的流量，3可实现盈利</u>
</div>
</div>
<%saveit%>
<a name="PostAd"></a>
<form method="post" action="?menu=PostAdOk">
<div class="tb dt">
<div id="tt">帖间广告设置</div>
<div class="intro cb">
<div class="fl r w4">广告编号</div>
<div class="fl">代码：清空代码即删除广告。</div>
</div>
<%
tmpstr=LoadFile("Inc/PostAd.js")
tmp=split(tmpstr,chr(13)&chr(10))
ad_num=Replace(tmp(1),"a = ","")
ad_num=int(Replace(ad_num,";if(a==0){a=1}",""))
for ad_i=1 to ad_num
ad_tmp=Replace(tmp(ad_i+8),"b["&ad_i&"].under =","")
ad_tmp=Replace(ad_tmp,"'","")
Response.write "<div class='tc b cb'><div class='fl r t w4'><b>广告"&ad_i&"</b><br />支持HTML<br />效果："&GetHtmlStr(ad_tmp)&"</div><div class='fl t'><textarea name=ad_v"&ad_i&" rows=1 cols=1>"&GetHtmlStr(ad_tmp)&"</textarea></div></div>"
Next
%>  
<div class="tc b cb">
<div class="fl r t w4"><b>增加广告</b><br />支持HTML</div>
<div class="fl t"><textarea name="ad_v<%=ad_num+1%>" rows="1" cols="1"></textarea></div>
</div> 
<%saveit
end sub


sub SiteStat
%><form method="post" action="?menu=SiteStatUp">
<div class="tb dt">
<div id="tt">论坛统计信息 &gt;&gt;<a href="?menu=AutoSiteStat">纠正错误数据</a></div>
<%
inputX"总会员数","注册的用户总数","TotalUsers","20"
inputX"总主题数","论坛的主题总数","TotalTopics","20"
inputX"总帖子数","论坛的帖子总数","TotalPosts","20"
inputX"今日主题数","论坛今日发表的主题数","daysTopics","20"
inputX"今日发帖数","论坛今日发表的帖子数","daysPosts","20"
inputX"最高在线人数","论坛历史最高在线人数","BestOnline","20"
inputX"最高在线发生时间","论坛最高在线人数的发生时间","BestOnlineTime","20"
inputX"最新注册的用户","最新注册的用户","NewUsers","20"
saveit
end sub

sub divX(name)%>
<a name="<%=name%>"></a>
<div class="tb dt">
<div id="tt"><%=name%> [<a href="#TOP">TOP</a>]</div><%
end sub

sub inputX(name,desc,tag,wid)
if wid="" then wid=30
%><div class="tc b cb">
<div class="fl r <%if desc="" then%>s<%end if%>i w4"><b><%=name%></b><%if desc<>"" Then%><br /><%=desc%><%end if%></div>
<div class="fl <%if desc="" then%>s<%end if%>i"><input name="<%=tag%>" size="<%=wid%>" value="<%=Cache(tag)%>" /></div>
</div>
<%
end sub

sub boolX(name,desc,tag)
%><div class="tc b cb">
<div class="fl r <%if desc="" then%>s<%end if%>i w4"><b><%=name%></b><%if desc<>"" Then%><br /><%=desc%><%end if%></div>
<div class="fl <%if desc="" then%>s<%end if%>i"><input type="radio" name="<%=tag%>" value="true"<%if LCase(Cache(tag))="true" then%> checked="checked"<%end if%> />是 <input type="radio" name="<%=tag%>" value="false"<%if LCase(Cache(tag))<>"true" then%> checked="checked"<%end if%> />否</div>
</div>
<%
end sub

sub textareaX(name,desc,tag)
%><div class="tc b cb">
<div class="fl r t w4"><b><%=name%></b><%if desc<>"" then%><br /><%=desc%><%end if%></div>
<div class="fl t"><textarea name="<%=tag%>" rows="1" cols="1"><%=Cache(tag)%></textarea></div>
</div>
<%
end sub

AdminBottom
%>