admin_setup.asp

论坛建站的源代码

	FormObject.elements["SiteDisabledReason"].value = "论坛维护中，暂时无法访问！";
	FormObject.elements["CacheName"].value = "BBSXP";
	FormObject.elements["CacheUpDateInterval"].value = 5;
	FormObject.elements["NoCacheHeaders"][1].checked = true;

	FormObject.elements["DisplayWhoIsOnline"][0].checked = true;
	FormObject.elements["DisplayStatistics"][0].checked = true;
	FormObject.elements["DisplayBirthdays"][0].checked = true;
	FormObject.elements["DisplayLink"][0].checked = true;
	FormObject.elements["IsShowSonForum"][0].checked = true;

	FormObject.elements["AllowLogin"][0].checked = true;
	FormObject.elements["EnableBannedUsersToLogin"][1].checked = true;
	FormObject.elements["AllowNewUserRegistration"][0].checked = true;
	FormObject.elements["NewUserModerationLevel"].options[1].selected = true;
	FormObject.elements["UserNameMinLength"].value = 3;
	FormObject.elements["UserNameMaxLength"].value = 15;
	FormObject.elements["DefaultPasswordFormat"][0].checked = true;
	FormObject.elements["AccountActivation"][0].checked = true;
	FormObject.elements["EnableSignatures"][0].checked = true;
	FormObject.elements["SignatureMaxLength"].value = 256;
	FormObject.elements["MaxPrivateMessageSize"].value = 100;
	FormObject.elements["AllowSignatures"][0].checked = true;
	FormObject.elements["AllowGender"][0].checked = true;
	FormObject.elements["AllowAvatars"][0].checked = true;
	FormObject.elements["AllowUserToSelectTheme"][0].checked = true;
	FormObject.elements["RequireAuthenticationForProfileViewing"][1].checked = true;
	FormObject.elements["PublicMemberList"][0].checked = true;
	FormObject.elements["MemberListAdvancedSearch"][0].checked = true;
	FormObject.elements["MemberListPageSize"].value = 20;
	FormObject.elements["EnableAvatars"][0].checked = true;
	FormObject.elements["EnableRemoteAvatars"][0].checked = true;
	FormObject.elements["AvatarHeight"].value = 150;
	FormObject.elements["AvatarWidth"].value = 150;
	FormObject.elements["EnableReputation"][0].checked = true;
	FormObject.elements["ReputationDefault"].value = 0;
	FormObject.elements["ShowUserRates"].value = 5;
	FormObject.elements["MinReputationPost"].value = 50;
	FormObject.elements["MinReputationCount"].value = 0;
	FormObject.elements["MaxReputationPerDay"].value = 10;
	FormObject.elements["ReputationRepeat"].value = 20;
	FormObject.elements["AdminReputationPower"].value = 10;
	FormObject.elements["InPrisonReputation"].value = "-9";
	FormObject.elements["CustomUserTitle"][0].checked = true;
	FormObject.elements["UserTitleMaxChars"].value = 25;
	FormObject.elements["UserTitleCensorWords"].value = "admin|forum|moderator";
	

	FormObject.elements["EnableForumsRSS"][0].checked = true;
	FormObject.elements["DisplayThreadStatus"][0].checked = true;
	FormObject.elements["DisplayPostTags"][0].checked = true;
	FormObject.elements["EnablePostPreviewPopup"][1].checked = true;
	FormObject.elements["ViewMode"][1].checked = true;
	FormObject.elements["RSSDefaultThreadsPerFeed"].value = 20;
	FormObject.elements["ThreadsPerPage"].value = 20;
	FormObject.elements["PostsPerPage"].value = 15;
	FormObject.elements["MinVoteOptions"].value = 2;
	FormObject.elements["MaxVoteOptions"].value = 20;
	FormObject.elements["DisplayEditNotes"][1].checked = true;
	FormObject.elements["RequireEditNotes"][1].checked = true;
	FormObject.elements["PostEditBodyAgeInMinutes"].value = 0;
	FormObject.elements["AllowDuplicatePosts"][1].checked = true;
	FormObject.elements["PostInterval"].value = 10;
	FormObject.elements["RegUserTimePost"].value = 0;
	FormObject.elements["PopularPostThresholdPosts"].value = 15;
	FormObject.elements["PopularPostThresholdViews"].value = 200;
	FormObject.elements["PopularPostThresholdDays"].value = 3;
	FormObject.elements["DisplayForumUsers"][0].checked = true;
	FormObject.elements["DisplayThreadUsers"][1].checked = true;

	FormObject.elements["UpFileTypes"].value = "gif|jpg|png|bmp|swf|txt|mid|doc|xls|zip|rar";
	FormObject.elements["AttachmentsSaveOption"].options[1].selected = true;
	FormObject.elements["MaxPostAttachmentsSize"].value = 10240;
	FormObject.elements["MaxFileSize"].value = 200;
	FormObject.elements["MaxFaceSize"].value = 100;
	
	
	FormObject.elements["WatermarkFontFamily"].value = "宋体";
	FormObject.elements["WatermarkFontSize"].value = 25;
	FormObject.elements["WatermarkFontColor"].value = "#000000";
	$("WatermarkFontColor").style.backgroundColor = "#000000";
	FormObject.elements["WatermarkFontIsBold"][0].checked = true;
	FormObject.elements["WatermarkWidthPosition"][0].checked = true;
	FormObject.elements["WatermarkHeightPosition"][2].checked = true;


	FormObject.elements["BannedHtmlLabel"].value = "link|script|object|iframe|form|style|div|caption|!--|meta";
	FormObject.elements["BannedHtmlEvent"].value = "javascript:|onerror|onload|onmouseover";
	FormObject.elements["BannedText"].value = "fuck|shit";
	FormObject.elements["BannedRegUserName"].value = "fuck|shit";

	FormObject.elements["EnableAntiSpamTextGenerateForRegister"][0].checked = true;
	FormObject.elements["EnableAntiSpamTextGenerateForLogin"][1].checked = true;
	FormObject.elements["EnableAntiSpamTextGenerateForPost"][1].checked = true;

	FormObject.elements["IntegralAddThread"].value = "+2";
	FormObject.elements["IntegralAddPost"].value = "+1";
	FormObject.elements["IntegralAddValuedPost"].value = "+3";
	FormObject.elements["IntegralDeleteThread"].value = "-2";
	FormObject.elements["IntegralDeletePost"].value = "-1";
	FormObject.elements["IntegralDeleteValuedPost"].value = "-3";
	
	FormObject.elements["APIEnable"][1].checked = true;
}

function IsObjInstalled (OjbSpanID,OjbStr) {
	OjbStr == "" ? $(OjbSpanID).innerHTML = "" : Ajax_CallBack(false,OjbSpanID,'Loading.asp?menu=IsObjInstalled&Object='+OjbStr);
}
</script>
<%
End Sub

Sub SiteInfo
	If IsObjInstalled("Scripting.FileSystemObject") Then
		Set fso = Server.CreateObject("Scripting.FileSystemObject")
		if not fso.folderexists(Server.MapPath("Themes/"&Request("DefaultSiteStyle")&"")) then Alert("默认风格设置错误，Themes/"&Request("DefaultSiteStyle")&" 目录不存在！")
		Set fso = nothing
	end if

	if Request("UpFileOption")<>"" then
		if Not IsObjInstalled(Request("UpFileOption")) then Alert("本服务器不支持 "&Request("UpFileOption")&" 组件！请关闭此功能！")
	end if
	
	if Request("SelectMailMode")<>"" then
		if Not IsObjInstalled(Request("SelectMailMode")) then Alert("本服务器不支持 "&Request("SelectMailMode")&" 组件！请关闭此功能！")
		if Request("SmtpServerMail")="" then Alert("请填写发件人的Email地址！")
	end if
	
	if Request("WatermarkOption")<>"" then
		if Not IsObjInstalled(Request("WatermarkOption")) then Alert("本服务器不支持 "&Request("WatermarkOption")&" 组件！请关闭此功能！")
	end if

	if Request("AccountActivation")="1" and Request("SelectMailMode")="" then Alert("您选择了注册用户密码通过Email发送，但是您没有设定发送邮件组件！")
	
	filtrate=split(Request("BannedIP"),"|")
	for i = 0 to ubound(filtrate)
		if instr("|"&REMOTE_ADDR&"","|"&filtrate(i)&"") > 0 then Alert("请检查您输入的IP地址是否正确")
	next

	
	FielsStr="UserOnlineTime|Timeout|UserNameMinLength|UserNameMaxLength|ThreadsPerPage|PostsPerPage|RSSDefaultThreadsPerFeed|PostInterval|PostEditBodyAgeInMinutes|RegUserTimePost|PopularPostThresholdPosts|PopularPostThresholdViews|MinVoteOptions|MaxVoteOptions|MaxPostAttachmentsSize|MaxFileSize|MaxFaceSize|AvatarHeight|AvatarWidth|SignatureMaxLength|MemberListPageSize|PopularPostThresholdDays"
	FielsStrArray=split(FielsStr,"|")
	for i=0 to ubound(FielsStrArray)
		if IsNumeric(Request.Form(""&FielsStrArray(i)&""))=false then Alert(FielsStrArray(i)&"输入框内的值，必须是数字类型！")
	next
	
	Rs.Open "["&TablePrefix&"SiteSettings]",Conn,1,3
	
	SiteConfigXMLDOM.loadxml("<bbsxp>"&Rs("SiteSettingsXML")&"</bbsxp>")
		SiteSettingsXMLStrings=""
		Set objNodes = SiteConfigXMLDOM.documentElement.ChildNodes
		Set objRoot = SiteConfigXMLDOM.documentElement
		for each ho in Request.Form
			objRoot.SelectSingleNode(ho).text = ""&server.HTMLEncode(Request(""&ho&""))&""
		next
		for each element in objNodes	
			SiteSettingsXMLStrings=SiteSettingsXMLStrings&"<"&element.nodename&">"&element.text&"</"&element.nodename&">"&vbCrlf
		next
	Rs("SiteSettingsXML")=SiteSettingsXMLStrings
	Rs.update
	Rs.close
	Response.Write("更新成功")
End Sub

Sub AdvancedSettingsUp
	Rs.Open "["&TablePrefix&"SiteSettings]",Conn,1,3
		for each ho in Request.Form
			Rs(ho)=Request(ho)
		next
	Rs.update
	Rs.close
	Response.Write("更新成功")
End Sub

Sub AdvancedSettings
%>
<form method="POST" action="?menu=AdvancedSettingsUp">
<div class="MenuTag">
	<li id="Tag_btn_0" onclick="ShowPannel(this)" class="NowTag">注册用户协议</li>
	<li id="Tag_btn_1" onclick="ShowPannel(this)">HTML代码设置</li>
</div>
<table id="Tag_tab_0" style="display:block" cellspacing=0 cellpadding=0 width=100% class="PannelBody">
	<tr>
		<td align=center><textarea name="CreateUserAgreement" rows="18" style="width:90%"><%=CreateUserAgreement%></textarea></td>
	</tr>
</table>
	<table id="Tag_tab_1" style="display:none" cellspacing=0 cellpadding=0 width=100% class="PannelBody">
		<tr>
			<td align="center" width="110">页面顶部信息<br /><font color="#FF0000">放于&lt;Body&gt;内</font></td>
			<td><textarea name="GenericHeader" rows="6" style="width:95%"><%=GenericHeader%></textarea></td>
		</tr>
		<tr>
			<td align="center" width="110">Banner (468 x 60)<br /><font color="#FF0000">顶部右侧位置</font> </td>
			<td><textarea name="GenericTop" rows="6" style="width:95%"><%=GenericTop%></textarea></td>
		</tr>

		<tr>
			<td align="center" width="110">页面底部信息 <br /><font color="#FF0000">放于&lt;Body&gt;内</font> </td>
			<td><textarea name="GenericBottom" rows="6" style="width:95%"><%=GenericBottom%></textarea></td>
		</tr>
	</table>
    <br />
    <table border="0"  width="100%" align="center">
	<tr>
		<td align="right" height="20"><input type="submit" value=" 保 存 " />		<input type="reset" value=" 重 置 " /></td>
	</tr>
	</table>
</form>
<%
End Sub

AdminFooter
%>