config.asp

此程序是一个个人主页创造程序,该程序无插件,无任何恶意程序.

<%
'#############################################################
'#      中国在线--极酷论坛 ver.2001 3.0
'#
'#  版权所有: 中国在线 (ChinaXP.Net)
'#
'#  制作人  : 周周 (SeeYa!)
'#
'#
'#  主页地址: http://www.ChinaXP.net/    中国在线
'#	      http://www.ChinaXP.Net/bbs/    中国在线--极酷论坛
'#
'#############################################################
%>
<!--#INCLUDE FILE="Conn.asp" -->
<%
Session.LCID = 1033		'## Do Not Edit
Response.Buffer = true

Dim strForumName, strWebUrl, strVersionNumber

' ################ 修改论坛数据库路径，请到 Conn.asp 文件修改 ################

strForumName = "版本："
strWebUrl = "http://www.ChinaXP.Net"
strVersionNumber = "ChinaXP BBS Ver.2001 3.0 SP1"

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

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

' ## Make sure to uncomment one of the strConnString lines !!
'strConnString = "driver=MySQL;server=SERVER_NAME;uid=MYSQL_USER;pwd=PARRWORD;database=DATABASE_NAME"	'## MySQL
'strConnString = "Driver={SQL Server};Server=WORMCN-PPFSKJVA;uid=sa;pwd=sa;Database=Forums"		' ### MS SQL Server 7

'strConnString = "Provider=SQLOLEDB.1;Data Source=WORMCN-PPFSKJVA;User ID=sa;PASSWORD=sa;Initial Catalog=Forums;Persist Security Info=True;Use Procedure for Prepare=1;Auto Translate=True;Packet Size=4096;Use Encryption for Data=False;Tag with column collation when possible=False;"		' ### MS SQL Server 7
'strConnString = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath(dbPath)		' ### MS Access 97 using virtual path
strConnString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(dbPath)		' ### MS Access 2000 using virtual path

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, strAllowFlash, strAllowCODE
dim strNoCookies, strEditedByDate
dim intHotTopicNum, strHotTopic
dim strIMGInPosts
dim strHomepage, strICQ, strAIM, strInForumAdmin, stricons
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, strLogonForMail, strShowPaging, strShowTopicNav, strPageSize, strPageNumberSize
dim strNTGroupsSTR
dim strAuthor
Dim strTableWidth, strInsistFontColor, strBanner, strBannerURL

'### 下是已经删除的部分变量 ###
'Dim strShowImagePoweredBy, strGfxButtons
'Dim strSecureAdmin	' ### 保全管理模式 ###

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 strCookieURL & "setup.asp?RC=1&CC=1&strDBType=" & strDBType & "&EC=" & ConnErrorNumber
			end if
		next
	end if

	my_conn.Errors.Clear


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