admin_config_features.asp

代码名称： Snitz Forums 2000 代码语言： 英文 代码类型： 国外代码 运行环境： ASP 授权方式： 免费代码 代码大小： 530kb 代码等级： 3 整

<%
'#################################################################################
'## Snitz Forums 2000 v3.4.05
'#################################################################################
'## Copyright (C) 2000-05 Michael Anderson, Pierre Gorissen,
'##                       Huw Reddick and Richard Kinser
'##
'## This program is free software; you can redistribute it and/or
'## modify it under the terms of the GNU General Public License
'## as published by the Free Software Foundation; either version 2
'## of the License, or (at your option) any later version.
'##
'## All copyright notices regarding Snitz Forums 2000
'## must remain intact in the scripts and in the outputted HTML
'## The "powered by" text/logo with a link back to
'## http://forum.snitz.com in the footer of the pages MUST
'## remain visible when the pages are viewed on the internet or intranet.
'##
'## This program is distributed in the hope that it will be useful,
'## but WITHOUT ANY WARRANTY; without even the implied warranty of
'## MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
'## GNU General Public License for more details.
'##
'## You should have received a copy of the GNU General Public License
'## along with this program; if not, write to the Free Software
'## Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA  02111-1307, USA.
'##
'## Support can be obtained from our support forums at:
'## http://forum.snitz.com
'##
'## Correspondence and Marketing Questions can be sent to:
'## [e-mail]
'##
'#################################################################################
%>
<!--#INCLUDE FILE="config.asp"-->
<!--#INCLUDE FILE="inc_sha256.asp"-->
<!--#INCLUDE FILE="inc_header.asp" -->
<!--#INCLUDE FILE="inc_func_admin.asp" -->
<!--#INCLUDE FILE="inc_moderation.asp" -->
<%
if Session(strCookieURL & "Approval") <> "15916941253" then
	scriptname = split(request.servervariables("SCRIPT_NAME"),"/")
	Response.Redirect "admin_login.asp?target=" & scriptname(ubound(scriptname))
end if
Response.Write	"      <table border=""0"" width=""100%"">" & vbNewLine & _
		"        <tr>" & vbNewLine & _
		"          <td width=""33%"" align=""left"" nowrap><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>" & vbNewLine & _
		"          " & getCurrentIcon(strIconFolderOpen,"","") & "&nbsp;<a href=""default.asp"">All&nbsp;Forums</a><br />" & vbNewLine & _
		"          " & getCurrentIcon(strIconBar,"","") & getCurrentIcon(strIconFolderOpen,"","") & "&nbsp;<a href=""admin_home.asp"">Admin&nbsp;Section</a><br />" & vbNewLine & _
		"          " & getCurrentIcon(strIconBlank,"","") & getCurrentIcon(strIconBar,"","") & getCurrentIcon(strIconFolderOpenTopic,"","") & "&nbsp;Feature&nbsp;Configuration<br /></font></td>" & vbNewLine & _
		"        </tr>" & vbNewLine & _
		"      </table>" & vbNewLine

if Request.Form("Method_Type") = "Write_Configuration" then 
	Err_Msg = ""
	if Request.Form("strIMGInPosts") = "1" and Request.Form("strAllowForumCode") = "0" then 
		Err_Msg = Err_Msg & "<li>Forum Code Must be Enabled in order to Enable Images</li>"
	end if
	if Request.Form("strAllowHTML") = "1" and Request.Form("strAllowForumCode") = "1" then 
		Err_Msg = Err_Msg & "<li>HTML and ForumCode cannot both be On at the same time</li>"
	end if
	if Request.Form("intHotTopicNum") = "" then 
		Err_Msg = Err_Msg & "<li>You Must Enter a Hot Topic Number</li>"
	elseif IsNumeric(Request.Form("intHotTopicNum")) = False then
		Err_Msg = Err_Msg & "<li>Hot Topic Number must be a number</li>"
	elseif cLng(Request.Form("intHotTopicNum")) = 0 then
		Err_Msg = Err_Msg & "<li>Hot Topic Number cannot be 0</li>"
	end if
	if left(Request.Form("intHotTopicNum"), 1) = "-" then 
		Err_Msg = Err_Msg & "<li>You Must Enter a positive Hot Topic Number</li>"
	end if
	if left(Request.Form("intHotTopicNum"), 1) = "+" then 
		Err_Msg = Err_Msg & "<li>You Must Enter a positive Hot Topic Number without the <b>+</b></li>"
	end if
	if Request.Form("strPageSize") = "" then
		Err_Msg = Err_Msg & "<li>You Must Enter the number of Items per Page</li>"
	elseif IsNumeric(Request.Form("strPageSize")) = False then
		Err_Msg = Err_Msg & "<li>Items per Page must be a number</li>"
	elseif cLng(Request.Form("strPageSize")) = 0 then
		Err_Msg = Err_Msg & "<li>Items per Page cannot be 0</li>"
	end if
	if Request.Form("strPageNumberSize") = "" then
		Err_Msg = Err_Msg & "<li>You Must Enter the number of Pages per Row</li>"
	elseif IsNumeric(Request.Form("strPageNumberSize")) = False then
		Err_Msg = Err_Msg & "<li>Pages per Row must be a number</li>"
	elseif cLng(Request.Form("strPageNumberSize")) = 0 then
		Err_Msg = Err_Msg & "<li>Pages per Row cannot be 0</li>"
	end if

	if (strShowTimer = "1" or Request.Form("strShowTimer") = "1") and Request.Form("strShowTimer") <> "0" then
		if trim(Request.Form("strTimerPhrase")) = "" then
			Err_Msg = Err_Msg & "<li>You Must Enter a Phrase for the Timer</li>"
		end if
		if Instr(Request.Form("strTimerPhrase"), "[TIMER]") = "0" then
			Err_Msg = Err_Msg & "<li>Your Timer Phrase must contain the [TIMER] placeholder</li>"
		end if
	end if
	if strModeration = "1" and Request.Form("strModeration") = "0" then
        	if CheckForUnmoderatedPosts("BOARD", 0, 0, 0) > 0 then
			Err_Msg = Err_Msg & "<li>Please Approve or Delete all UnModerated/Held posts before turning Moderation off.</li>"
		end if
	end if

	if Err_Msg = "" then
		for each key in Request.Form