config.asp

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

	Application(strCookieURL & "intNewMemberPM") = modDict.Item("NewMemberPM")
'Rem User Field Code #######################################
	Application.UnLock

	if blnSetup <> "Y" then
		for counter = 0 to my_Conn.Errors.Count -1
			if my_Conn.Errors(counter).Number <> 0 or Err.number > 0 then
		 		myConnError = my_Conn.Errors(counter).Number
				my_Conn.Errors.Clear
				Err.Clear
		
				strSql = "SELECT " & strTablePrefix & "CONFIG.C_STRVERSION, "
				strSql = strSql & strTablePrefix & "CONFIG.C_STRSENDER "
				strSql = strSql & " FROM " & strTablePrefix & "CONFIG "

				set rsInfo = my_Conn.Execute (StrSql)
				strVersion = rsInfo("C_STRVERSION")
				strSender = rsInfo("C_STRSENDER")
		
				rsInfo.Close
				set rsInfo = nothing
				my_Conn.Close
				set my_Conn = nothing
		
				Response.Redirect strCookieURL & "setup.asp?RC=2&CC=1&MAIL=" & Server.UrlEncode(strSender) & "&VER=" & Server.URLEncode(strVersion) & "&strDBType="& strDBType & "&EC=" & myConnError
			end if
		next
	end if

	my_Conn.Close
	set my_Conn = nothing
	Application.Lock
	Application(strCookieURL & "ConfigLoaded")= "YES"
	Application.UnLock
end if

' ## Read the config-info from the application variables...

strVersion = Application(strCookieURL & "strVersion")
strForumTitle = Application(strCookieURL & "strForumTitle")
strCopyright = Application(strCookieURL & "strCopyright")
strTitleImage = Application(strCookieURL & "strTitleImage")
strHomeURL = Application(strCookieURL & "strHomeURL")
strForumURL = Application(strCookieURL & "strForumURL")
strBanner = Application(strCookieURL & "strBanner")
strBannerURL = Application(strCookieURL & "strBannerURL")
strAuthType = Application(strCookieURL & "strAuthType")
strSetCookieToForum = Application(strCookieURL & "strSetCookieToForum")
strEmail = Application(strCookieURL & "strEmail")
strUniqueEmail = Application(strCookieURL & "strUniqueEmail")
strMailMode = Application(strCookieURL & "strMailMode")
strMailServer = Application(strCookieURL & "strMailServer")
strSender = Application(strCookieURL & "strSender")
strDateType = Application(strCookieURL & "strDateType")
strTimeAdjust = Application(strCookieURL & "strTimeAdjust")
strTimeType = Application(strCookieURL & "strTimeType")
strMoveTopicMode = Application(strCookieURL & "strMoveTopicMode")
strIPLogging = Application(strCookieURL & "strIPLogging")
strPrivateForums = Application(strCookieURL & "strPrivateForums")
strShowModerators = Application(strCookieURL & "strShowModerators")
strAllowForumCode = Application(strCookieURL & "strAllowForumCode")
strIMGInPosts = Application(strCookieURL & "strIMGInPosts")
strAllowHTML = Application(strCookieURL & "strAllowHTML")
strAllowCODE = Application(strCookieURL & "strAllowCODE")
strAllowFLASH = Application(strCookieURL & "strAllowFLASH")
strNoCookies = Application(strCookieURL & "strNoCookies")

' ###	strSecureAdmin = Application(strCookieURL & "strSecureAdmin")

strHotTopic = Application(strCookieURL & "strHotTopic")
intHotTopicNum = Application(strCookieURL & "intHotTopicNum")
strICQ = Application(strCookieURL & "strICQ")
strYAHOO = Application(strCookieURL & "strYAHOO")
strAIM = Application(strCookieURL & "strAIM")
strFullName = Application(strCookieURL & "strFullName")
strPicture = Application(strCookieURL & "strPicture")
strSex = Application(strCookieURL & "strSex")
strCity= Application(strCookieURL & "strCity")
strState = Application(strCookieURL & "strState")
strAge = Application(strCookieURL & "strAge")
strCountry = Application(strCookieURL & "strCountry")
strOccupation = Application(strCookieURL & "strOccupation")
strBio = Application(strCookieURL & "strBio")
strHobbies = Application(strCookieURL & "strHobbies")
strLNews = 	Application(strCookieURL & "strLNews")
strQuote = Application(strCookieURL & "strQuote")
strMarStatus = Application(strCookieURL & "strMarStatus")
strFavLinks = Application(strCookieURL & "strFavLinks")
strRecentTopics = Application(strCookieURL & "strRecentTopics")
strAllowHideEmail = "1" '##not yet used !
strHomepage = Application(strCookieURL & "strHomepage")
strUseExtendedProfile = (strBio + strHobbies + strLNews + strRecentTopics + strPicture) > 0
strUseExtendedProfile = strUseExtendedProfile or ((strICQ + strYAHOO + strAIM + strFullName*2 + strSex + strCity + strState + strAge + strCountry + strOccupation + strFavLinks*2) > 5)
'Rem User Field Code #######################################
intPollMentor = Application(strCookieURL & "intPollMentor")
intAllowUploads = Application(strCookieURL & "intAllowUploads")
intSideMenu = Application(strCookieURL & "intSideMenu")
intPMessages = Application(strCookieURL & "intPMessages")
intSpellcheck = Application(strCookieURL & "intSpellcheck")
intUserFields = Application(strCookieURL & "intUserFields")
strImageURL = Application(strCookieURL & "strImagePath")
intNewMemberPM = Application(strCookieURL & "intNewMemberPM")
strUseExtendedProfile = strUseExtendedProfile or ((intUserFields ) > 0)
'Rem User Field Code #######################################
stricons = Application(strCookieURL & "stricons")

' ###	strGfxButtons = Application(strCookieURL & "strGfxButtons")

strEditedByDate = Application(strCookieURL & "strEditedByDate")
strBadWordFilter = Application(strCookieURL & "strBadWordFilter")
strBadWords = Application(strCookieURL & "strBadWords")
strDefaultFontFace = Application(strCookieURL & "strDefaultFontFace")
strDefaultFontSize = Application(strCookieURL & "strDefaultFontSize")
strHeaderFontSize = Application(strCookieURL & "strHeaderFontSize")
strFooterFontSize = Application(strCookieURL & "strFooterFontSize")
strPageBGColor = Application(strCookieURL & "strPageBGColor")
strPageBGImage = Application(strCookieURL & "strPageBGImage")
strDefaultFontColor = Application(strCookieURL & "strDefaultFontColor")
strLinkColor = Application(strCookieURL & "strLinkColor")
strLinkTextDecoration = Application(strCookieURL & "strLinkTextDecoration")
strVisitedLinkColor = Application(strCookieURL & "strVisitedLinkColor")
strVisitedTextDecoration = Application(strCookieURL & "strVisitedTextDecoration")
strActiveLinkColor = Application(strCookieURL & "strActiveLinkColor")
strHoverFontColor = Application(strCookieURL & "strHoverFontColor")
strHoverTextDecoration = Application(strCookieURL & "strHoverTextDecoration")
strHeadCellColor = Application(strCookieURL & "strHeadCellColor")
strHeadFontColor = Application(strCookieURL & "strHeadFontColor")
strCategoryCellColor = Application(strCookieURL & "strCategoryCellColor")
strCategoryFontColor = Application(strCookieURL & "strCategoryFontColor")
strForumFirstCellColor = Application(strCookieURL & "strForumFirstCellColor")
strForumCellColor = Application(strCookieURL & "strForumCellColor")
strAltForumCellColor = Application(strCookieURL & "strAltForumCellColor")
strForumFontColor = Application(strCookieURL & "strForumFontColor")
strForumLinkColor = Application(strCookieURL & "strForumLinkColor")
strTableBorderColor = Application(strCookieURL & "strTableBorderColor")
strPopUpTableColor = Application(strCookieURL & "strPopUpTableColor")
strPopUpBorderColor = Application(strCookieURL & "strPopUpBorderColor")
strNewFontColor = Application(strCookieURL & "strNewFontColor")
strInsistFontColor = Application(strCookieURL & "strInsistFontColor")
strTopicWidthLeft = Application(strCookieURL & "strTopicWidthLeft")
strTopicNoWrapLeft = Application(strCookieURL & "strTopicNoWrapLeft")
strTopicWidthRight = Application(strCookieURL & "strTopicWidthRight")
strTableWidth = Application(strCookieURL & "strTableWidth")
strTopicNoWrapRight = Application(strCookieURL & "strTopicNoWrapRight")
strShowRank = Application(strCookieURL & "strShowRank")
strRankAdmin = Application(strCookieURL & "strRankAdmin")
strRankMod = Application(strCookieURL & "strRankMod")
strRankLevel0 = Application(strCookieURL & "strRankLevel0")
strRankLevel1 = Application(strCookieURL & "strRankLevel1")
strRankLevel2 = Application(strCookieURL & "strRankLevel2")
strRankLevel3 = Application(strCookieURL & "strRankLevel3")
strRankLevel4 = Application(strCookieURL & "strRankLevel4")
strRankLevel5 = Application(strCookieURL & "strRankLevel5")
strRankColorAdmin = Application(strCookieURL & "strRankColorAdmin")
strRankColorMod = Application(strCookieURL & "strRankColorMod")
strRankColor0 = Application(strCookieURL & "strRankColor0")
strRankColor1 = Application(strCookieURL & "strRankColor1")
strRankColor2 = Application(strCookieURL & "strRankColor2")
strRankColor3 = Application(strCookieURL & "strRankColor3")
strRankColor4 = Application(strCookieURL & "strRankColor4")
strRankColor5 = Application(strCookieURL & "strRankColor5")
intRankLevel0 = Application(strCookieURL & "intRankLevel0")
intRankLevel1 = Application(strCookieURL & "intRankLevel1")
intRankLevel2 = Application(strCookieURL & "intRankLevel2")
intRankLevel3 = Application(strCookieURL & "intRankLevel3")
intRankLevel4 = Application(strCookieURL & "intRankLevel4")
intRankLevel5 = Application(strCookieURL & "intRankLevel5")
strShowStatistics = Application(strCookieURL & "strShowStatistics")

'###	strShowImagePoweredBy = Application(strCookieURL & "strShowImagePoweredBy")

strLogonForMail = Application(strCookieURL & "strLogonForMail")
strShowPaging = Application(strCookieURL & "strShowPaging")
strShowTopicNav = Application(strCookieURL & "strShowTopicNav")
strPageSize = Application(strCookieURL & "strPageSize")
strPageNumberSize = Application(strCookieURL & "strPageNumberSize")
strForumTimeAdjust = DateAdd("h", strTimeAdjust , Now())
strNTGroups = Application(strCookieURL & "STRNTGROUPS")
strAutoLogon = Application(strCookieURL & "STRAUTOLOGON")

' ################ 强制性使用安全管理模式 ################
strSecureAdmin = 1
if strSecureAdmin = "0" then
	Session(strCookieURL & "Approval") = "15916941253"
end if

on error goto 0

if strAuthType = "db" then
	strDBNTSQLName = "M_NAME"
	strAutoLogon = 0
	strNTGroups  = 0
else
	strDBNTSQLName = "M_USERNAME"
end if
if strImageUrl="" then strImageUrl = "images/"
%>