config.asp

一个不错的ASP论坛源码

<%
'########## Snitz Forums 2000 Version 3.1 SR4 ####################
'#                                                               #
'#  汉化修改: 资源搜罗站                                         #
'#  电子邮件: [e-mail]                                     #
'#  主页地址: http://www.sdsea.com                               #
'#            http://www.99ss.net                                #
'#            http://www.cdown.net                               #
'#	     http://www.wzdown.com                               #
'#	     http://www.13888.net                                #
'#  论坛地址:http://ubb.yesky.net                                #
'#  最后修改日期: 2001/03/12    中文版本：Version 3.1 SR4        #
'#################################################################
'# 原始来源                                                      #
'# Snitz Forums 2000 Version 3.1 SR4                             #
'# Copyright 2000 http://forum.snitz.com - All Rights Reserved   #
'#################################################################
'#【版权声明】                                                   #
'#                                                               #
'# 本软体为共享软体(shareware)提供个人网站免费使用，请勿非法修改,#
'# 转载，散播，或用于其他图利行为，并请勿删除版权声明。          #
'# 如果您的网站正式起用了这个脚本，请您通知我们，以便我们能够知晓#
'# 如果可能，请在您的网站做上我们的链接，希望能给予合作。谢谢！  #
'#################################################################
'# 请您尊重我们的劳动和版权，不要删除以上的版权声明部分，谢谢合作#
'# 如有任何问题请到我们的论坛告诉我们                            #
'#################################################################

on error resume next
Session.LCID = 1033 '## Do Not Edit
Response.Buffer = true

dim strDBType, strConnString, strTablePrefix, strMemberTablePrefix '## Do Not Edit

'#################################################################################
'## SELECT YOUR DATABASE TYPE AND CONNECTION TYPE
'#################################################################################
'strDBType = "sqlserver" '## access, sqlserver or mysql
strDBType = "access" '## access, sqlserver or mysql
'strDBType = "mysql" '## access, sqlserver or mysql

' ## Make sure to uncomment one of the strConnString lines !!
'strConnString = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=c:\inetpub\dbroot\snitz_forums_2000.mdb" '## MS Access 97
'strConnString = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("tools/snitz2000.mdb")  '## MS Access 97 using virtual path
strConnString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("tools/snitz2000.mdb") '## MS Access 2000 using virtual path
'strConnString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=e:\domains\huwr.121host.net\user\data\snitz_forums_2000.mdb;" '## MS Access 2000
'strConnString = "driver={SQL Server};server=192.168.0.2;uid=sa;pwd=wynnston;database=HRForum" '## MS SQL Server 7
'strConnString = "driver=MySQL;server=SERVER_NAME;uid=MYSQL_USER;pwd=PARRWORD;database=DATABASE_NAME" '## MySQL

strTablePrefix = "FORUM_"
strMemberTablePrefix = "FORUM_"

'#################################################################################
'## Do Not Edit Below This Line - It could destroy your forums and lose data
'#################################################################################

dim strVersion, strForumTitle, strCopyright, strTitleImage, strHomeURL, strForumURL, strCookieURL
dim strAuthType, strSetCookieToForum
dim strEmail, strUniqueEmail, strMailMode, strMailServer, strSender
dim strDateType, strTimeAdjust, strTimeType, strForumTimeAdjust
dim strMoveTopicMode, strIPLogging, strPrivateForums, strShowModerators, strShowRank, strAllowForumCode, strAllowHTML
dim strNoCookies, strEditedByDate
dim intHotTopicNum, strHotTopic
dim strIMGInPosts
dim strHomepage, strICQ, strAIM, strInForumAdmin, strSecureAdmin, stricons, strGfxButtons
dim strBadWordFiler, strBadWords
dim strDefaultFontFace, strDefaultFontSize, strHeaderFontSize, strFooterFontSize
dim strPageBGColor, strDefaultFontColor,strPageBGImage
dim strLinkColor, strLinkTextDecoration, strVisitedLinkColor, strVisitedTextDecoration, strActiveLinkColor, strHoverFontColor, strHoverTextDecoration
dim strHeadCellColor, strHeadFontColor, strCategoryCellColor, strCategoryFontColor
dim strForumFirstCellColor, strForumCellColor, strAltForumCellColor, strForumFontColor, strForumLinkColor
dim strTableBorderColor, strPopUpTableColor, strPopUpBorderColor, strNewFontColor, strTopicWidthLeft, strTopicNoWrapLeft, strTopicWidthRight, strTopicNoWrapRight
dim strRankColor1, strRankColor2, strRankColor3
dim strRankLevel0, strRankLevel1, strRankLevel2, strRankLevel3, strRankLevel4, strRankLevel5
dim intRankLevel0, intRankLevel1, intRankLevel2, intRankLevel3, intRankLevel4, intRankLevel5
dim strShowStatistics, strShowImagePoweredBy, strLogonForMail, strShowPaging, strShowTopicNav, strPageSize, strPageNumberSize
dim strNTGroupsSTR
dim strYOffset
dim strStaticYOffset
dim strMenuWidth,strAuthor


strCookieURL = Left(Request.ServerVariables("Path_Info"), InstrRev(Request.ServerVariables("Path_Info"), "/"))
strUniqueID = "Snitz00"

if Application(strCookieURL & "ConfigLoaded")= "" or IsNull(Application(strCookieURL & "ConfigLoaded")) or blnSetup="Y" then 

	'## if the configvariables aren't loaded into the Application object
	'## or after the admin has changed the configuration
	'## the variables get (re)loaded

	set my_Conn = Server.CreateObject("ADODB.Connection")
	my_Conn.Errors.Clear

	my_Conn.Open strConnString

	if blnSetup <> "Y" then 
		for counter = 0 to my_conn.Errors.Count -1
			ConnErrorNumber = my_conn.Errors(counter).Number
			if my_conn.Errors(counter).Number <> 0 then 
				my_conn.Errors.Clear 
				Response.Redirect "setup.asp?RC=1&CC=1&strDBType=" & strDBType & "&EC=" & ConnErrorNumber
			end if
		next
	end if

	my_conn.Errors.Clear 


	'## Forum_SQL
	strSql = "SELECT C_STRVERSION "
	strSql = strSql & ", C_STRFORUMTITLE "
	strSql = strSql & ", C_STRCOPYRIGHT "
	strSql = strSql & ", C_STRTITLEIMAGE "
	strSql = strSql & ", C_STRHOMEURL "
	strSql = strSql & ", C_STRFORUMURL "
	strSql = strSql & ", C_STRAUTHTYPE "
	strSql = strSql & ", C_STRSETCOOKIETOFORUM "
	strSql = strSql & ", C_STREMAIL "
	strSql = strSql & ", C_STRUNIQUEEMAIL "
	strSql = strSql & ", C_STRMAILMODE "
	strSql = strSql & ", C_STRMAILSERVER "
	strSql = strSql & ", C_STRSENDER "
	strSql = strSql & ", C_STRDATETYPE "
	strSql = strSql & ", C_STRTIMEADJUST "
	strSql = strSql & ", C_STRTIMETYPE "
	strSql = strSql & ", C_STRMOVETOPICMODE "
	strSql = strSql & ", C_STRIPLOGGING "
	strSql = strSql & ", C_STRPRIVATEFORUMS "
	strSql = strSql & ", C_STRSHOWMODERATORS "
	strSql = strSql & ", C_STRALLOWFORUMCODE "
	strSql = strSql & ", C_STRALLOWHTML "
	strSql = strSql & ", C_STRNOCOOKIES "
	strSql = strSql & ", C_STRSECUREADMIN "
	strSql = strSql & ", C_STRHOTTOPIC "
	strSql = strSql & ", C_INTHOTTOPICNUM "
	strSql = strSql & ", C_STRIMGINPOSTS "
	strSql = strSql & ", C_STRHOMEPAGE "
	strSql = strSql & ", C_STRICQ "
	strSql = strSql & ", C_STRYAHOO "
	strSql = strSql & ", C_STRAIM "
	strSql = strSql & ", C_stricons "
	strSql = strSql & ", C_STRGFXBUTTONS "
	strSql = strSql & ", C_STREDITEDBYDATE "
	strSql = strSql & ", C_STRBADWORDFILTER "
	strSql = strSql & ", C_STRBADWORDS "
	strSql = strSql & ", C_STRDEFAULTFONTFACE "
	strSql = strSql & ", C_STRDEFAULTFONTSIZE "
	strSql = strSql & ", C_STRHEADERFONTSIZE "
	strSql = strSql & ", C_STRFOOTERFONTSIZE "
	strSql = strSql & ", C_STRPAGEBGCOLOR "
	strSql = strSql & ", C_STRPAGEBGIMAGE "
	strSql = strSql & ", C_STRDEFAULTFONTCOLOR "
	strSql = strSql & ", C_STRLINKCOLOR "
	strSql = strSql & ", C_STRLINKTEXTDECORATION "
	strSql = strSql & ", C_STRVISITEDLINKCOLOR "
	strSql = strSql & ", C_STRVISITEDTEXTDECORATION "
	strSql = strSql & ", C_STRACTIVELINKCOLOR "
	strSql = strSql & ", C_STRHOVERFONTCOLOR "
	strSql = strSql & ", C_STRHOVERTEXTDECORATION "
	strSql = strSql & ", C_STRHEADCELLCOLOR "
	strSql = strSql & ", C_STRHEADFONTCOLOR "
	strSql = strSql & ", C_STRCATEGORYCELLCOLOR "
	strSql = strSql & ", C_STRCATEGORYFONTCOLOR "
	strSql = strSql & ", C_STRFORUMFIRSTCELLCOLOR "
	strSql = strSql & ", C_STRFORUMCELLCOLOR "
	strSql = strSql & ", C_STRALTFORUMCELLCOLOR "
	strSql = strSql & ", C_STRFORUMFONTCOLOR "
	strSql = strSql & ", C_STRFORUMLINKCOLOR "
	strSql = strSql & ", C_STRTABLEBORDERCOLOR "
	strSql = strSql & ", C_STRPOPUPTABLECOLOR "
	strSql = strSql & ", C_STRPOPUPBORDERCOLOR "
	strSql = strSql & ", C_STRNEWFONTCOLOR "
	strSql = strSql & ", C_STRTOPICWIDTHLEFT "
	strSql = strSql & ", C_STRTOPICNOWRAPLEFT "
	strSql = strSql & ", C_STRTOPICWIDTHRIGHT "
	strSql = strSql & ", C_STRTOPICNOWRAPRIGHT "
	strSql = strSql & ", C_STRSHOWRANK "
	strSql = strSql & ", C_STRRANKADMIN "
	strSql = strSql & ", C_STRRANKMOD "
	strSql = strSql & ", C_STRRANKLEVEL0 "
	strSql = strSql & ", C_STRRANKLEVEL1 "
	strSql = strSql & ", C_STRRANKLEVEL2 "
	strSql = strSql & ", C_STRRANKLEVEL3 "
	strSql = strSql & ", C_STRRANKLEVEL4 "
	strSql = strSql & ", C_STRRANKLEVEL5 "
	strSql = strSql & ", C_STRRANKCOLORADMIN "
	strSql = strSql & ", C_STRRANKCOLORMOD "
	strSql = strSql & ", C_STRRANKCOLOR0 "
	strSql = strSql & ", C_STRRANKCOLOR1 "