admin_config_email.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_func_member.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%"" align=""center"">" & 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;E-mail&nbsp;Server&nbsp;Configuration<br /></font></td>" & vbNewLine & _
		"        </tr>" & vbNewLine & _
		"      </table>" & vbNewLine

if Request.Form("Method_Type") = "Write_Configuration" then 
	Err_Msg = ""
	if Request.Form("strMailServer") = "" and Request.Form("strMailMode") <> "cdonts" and Request.Form("strEmail") = "1" then 
		Err_Msg = Err_Msg & "<li>You Must Enter the Address of your Mail Server</li>"
	end if
	if ((lcase(left(Request.Form("strMailServer"), 7)) = "http://") or (lcase(left(Request.Form("strMailServer"), 8)) = "https://")) and Request.Form("strEmail") = "1" then
		Err_Msg = Err_Msg & "<li>Do not prefix the Mail Server Address with <b>http://</b>, <b>https://</b> or <b>file://</b></li>"
	end if
	if Request.Form("strSender") = "" then 
		Err_Msg = Err_Msg & "<li>You Must Enter the E-mail Address of the Forum Administrator</li>"
	else
		if EmailField(Request.Form("strSender")) = 0 and Request.Form("strSender") <> "" then 
			Err_Msg = Err_Msg & "<li>You Must enter a valid E-mail Address for the Forum Administrator</li>"
		end if
	end if
	if Request.Form("strRestrictReg") = 1 and Request.Form("strEmailVal") = 0 then
		Err_Msg = Err_Msg & "<li>Email Validation must be enabled in order to enable the Restrict Registration Option</li>"
	end if

	if Err_Msg = "" then
		'## Forum_SQL
		for each key in Request.Form 
			if left(key,3) = "str" or left(key,3) = "int" then
				strDummy = SetConfigValue(1, key, ChkString(Request.Form(key),"SQLString"))
			end if
		next
		Application(strCookieURL & "ConfigLoaded") = ""

		Response.Write	"      <p align=""center""><font face=""" & strDefaultFontFace & """ size=""" & strHeaderFontSize & """>Configuration Posted!</font></p>" & vbNewLine & _
				"      <meta http-equiv=""Refresh"" content=""2; URL=admin_home.asp"">" & vbNewLine & _
				"      <p align=""center""><font face=""" & strDefaultFontFace & """ size=""" & strHeaderFontSize & """>Congratulations!</font></p>" & vbNewLine & _
				"      <p align=""center""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><a href=""admin_home.asp"">Back To Admin Home</font></a></p>" & vbNewLine
	else
		Response.Write	"      <p align=""center""><font face=""" & strDefaultFontFace & """ size=""" & strHeaderFontSize & """ color=""" & strHiLiteFontColor & """>There Was A Problem With Your Details</font></p>" & vbNewLine & _
				"      <table align=""center"" border=""0"">" & vbNewLine & _
				"        <tr>" & vbNewLine & _
				"          <td><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strHiLiteFontColor & """><ul>" & Err_Msg & "</ul></font></td>" & vbNewLine & _
				"        </tr>" & vbNewLine & _
				"      </table>" & vbNewLine & _
				"      <p align=""center""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><a href=""JavaScript:history.go(-1)"">Go Back To Enter Data</a></font></p>" & vbNewLine
	end if
else
	Dim theComponent(20)
	Dim theComponentName(20)
	Dim theComponentValue(20)

	'## the components
	theComponent(0) = "ABMailer.Mailman"
	theComponent(1) = "Persits.MailSender"
	theComponent(2) = "SMTPsvg.Mailer"
	theComponent(3) = "SMTPsvg.Mailer"
	theComponent(4) = "CDONTS.NewMail"
	theComponent(5) = "CDONTS.NewMail"
	theComponent(6) = "CDO.Message"
	theComponent(7) = "dkQmail.Qmail"
	theComponent(8) = "Dundas.Mailer"
	theComponent(9) = "Dundas.Mailer"
	theComponent(10) = "Innoveda.MailSender"
	theComponent(11) = "Geocel.Mailer"
	theComponent(12) = "iismail.iismail.1"
	theComponent(13) = "Jmail.smtpmail"
	theComponent(14) = "Jmail.Message"
	theComponent(15) = "MDUserCom.MDUser"
	theComponent(16) = "ASPMail.ASPMailCtrl.1"
	theComponent(17) = "ocxQmail.ocxQmailCtrl.1"
	theComponent(18) = "SoftArtisans.SMTPMail"
	theComponent(19) = "SmtpMail.SmtpMail.1"
	theComponent(20) = "VSEmail.SMTPSendMail"

	'## the name of the components
	theComponentName(0) = "ABMailer v2.2+"
	theComponentName(1) = "ASPEMail"
	theComponentName(2) = "ASPMail"
	theComponentName(3) = "ASPQMail"
	theComponentName(4) = "CDONTS (IIS 3/4/5)"
	theComponentName(5) = "Chili!Mail (Chili!Soft ASP)"
	theComponentName(6) = "CDOSYS (IIS 5/5.1/6)"
	theComponentName(7) = "dkQMail"
	theComponentName(8) = "Dundas Mail (QuickSend)"
	theComponentName(9) = "Dundas Mail (SendMail)"
	theComponentName(10) = "FreeMailSender"
	theComponentName(11) = "GeoCel"
	theComponentName(12) = "IISMail"
	theComponentName(13) = "JMail 3.x"
	theComponentName(14) = "JMail 4.x"
	theComponentName(15) = "MDaemon"