config.asp

一个不错的ASP论坛源码

	strSql = strSql & ", C_STRRANKCOLOR2 "
	strSql = strSql & ", C_STRRANKCOLOR3 "
	strSql = strSql & ", C_STRRANKCOLOR4 "
	strSql = strSql & ", C_STRRANKCOLOR5 "
	strSql = strSql & ", C_INTRANKLEVEL0 "
	strSql = strSql & ", C_INTRANKLEVEL1 "
	strSql = strSql & ", C_INTRANKLEVEL2 "
	strSql = strSql & ", C_INTRANKLEVEL3 "
	strSql = strSql & ", C_INTRANKLEVEL4 "
	strSql = strSql & ", C_INTRANKLEVEL5 "
	strSql = strSql & ", C_STRSIGNATURES "
	strSql = strSql & ", C_STRSHOWSTATISTICS "
	strSql = strSql & ", C_STRSHOWIMAGEPOWEREDBY "
	strSql = strSql & ", C_STRLOGONFORMAIL "
	strSql = strSql & ", C_STRSHOWPAGING "
	strSql = strSql & ", C_STRSHOWTOPICNAV "
	strSql = strSql & ", C_STRPAGESIZE "
	strSql = strSql & ", C_STRPAGENUMBERSIZE "
	strSql = strSql & ", C_STRFULLNAME"
	strSql = strSql & ", C_STRPICTURE"
	strSql = strSql & ", C_STRSEX"
	strSql = strSql & ", C_STRCITY"
	strSql = strSql & ", C_STRSTATE"
	strSql = strSql & ", C_STRAGE"
	strSql = strSql & ", C_STRCOUNTRY"
	strSql = strSql & ", C_STROCCUPATION"
	strSql = strSql & ", C_STRBIO"
	strSql = strSql & ", C_STRHOBBIES"
	strSql = strSql & ", C_STRLNEWS"
	strSql = strSql & ", C_STRQUOTE"
	strSql = strSql & ", C_STRMARSTATUS"
	strSql = strSql & ", C_STRFAVLINKS"
	strSql = strSql & ", C_STRRECENTTOPICS"
	strSql = strSql & ", C_STRHOMEPAGE"
	strSql = strSql & ", C_STRNTGROUPS"
	strSql = strSql & ", C_STRAUTOLOGON"
	strSql = strSql & " FROM " & strTablePrefix & "CONFIG "

	'Response.Write strSQL
	'Response.End

	set rsConfig = my_Conn.Execute (strSql)
	
'############ HuwR Config stuff #####################
	Dim modDict
	Set modDict = Server.CreateObject("Scripting.Dictionary")
	set objRec = my_Conn.execute("SELECT M_CODE, M_VALUE FROM " & strTablePrefix & "MODS WHERE M_NAME = 'HModEnable'")

	while not objRec.EOF 
	modDict.Add objRec.Fields.Item("m_code").Value, objRec.Fields.Item("m_value").Value
	objRec.moveNext
	wend 
	intPMessages = modDict.Item("Pmessages")
	intUserFields = modDict.Item("UserFields")
	intAllowUploads = modDict.Item("Attachment")
	intPollMentor = modDict.Item("PollMentor")
	intSideMenu = modDict.Item("SideMenu")
	strImageUrl = modDict.Item("imageURLPath")
	intNewMemberPM = modDict.Item("NewMemberPM")
	
	on error resume next
	set sc = GetObject("java:SpellCheck")
	if err.number <> 0 then
		intSpellCheck = 0
	else
		intSpellCheck = 1
	end if
	set sc = Nothing

'############ HuwR Config stuff #####################

	Application.Lock
	Application(strCookieURL & "strVersion") = rsConfig("C_STRVERSION")
	Application(strCookieURL & "strForumTitle") = rsConfig("C_STRFORUMTITLE")
	Application(strCookieURL & "strCopyright") = rsConfig("C_STRCOPYRIGHT")
	Application(strCookieURL & "strTitleImage") = rsConfig("C_STRTITLEIMAGE")
	Application(strCookieURL & "strHomeURL") = rsConfig("C_STRHOMEURL")
	Application(strCookieURL & "strForumURL") = rsConfig("C_STRFORUMURL")

	Application(strCookieURL & "strAuthType") = rsConfig("C_STRAUTHTYPE")
	Application(strCookieURL & "strSetCookieToForum") = rsConfig("C_STRSETCOOKIETOFORUM")
	Application(strCookieURL & "strEmail") = rsConfig("C_STREMAIL")
	Application(strCookieURL & "strUniqueEmail") = rsConfig("C_STRUNIQUEEMAIL")
	Application(strCookieURL & "strMailMode") = rsConfig("C_STRMAILMODE")
	Application(strCookieURL & "strMailServer") = rsConfig("C_STRMAILSERVER")
	Application(strCookieURL & "strSender") = rsConfig("C_STRSENDER")
	Application(strCookieURL & "strDateType") = rsConfig("C_STRDATETYPE")
	Application(strCookieURL & "strTimeAdjust") = rsConfig("C_STRTIMEADJUST")
	Application(strCookieURL & "strTimeType") = rsConfig("C_STRTIMETYPE")
	Application(strCookieURL & "strMoveTopicMode") = rsConfig("C_STRMOVETOPICMODE")
	Application(strCookieURL & "strIPLogging") = rsConfig("C_STRIPLOGGING")
	Application(strCookieURL & "strPrivateForums") = rsConfig("C_STRPRIVATEFORUMS")
	Application(strCookieURL & "strShowModerators") = rsConfig("C_STRSHOWMODERATORS")
	Application(strCookieURL & "strAllowForumCode") = rsConfig("C_STRALLOWFORUMCODE")
	Application(strCookieURL & "strIMGInPosts") = rsConfig("C_STRIMGINPOSTS")
	Application(strCookieURL & "strAllowHTML") = rsConfig("C_STRALLOWHTML")
	Application(strCookieURL & "strNoCookies") = rsConfig("C_STRNOCOOKIES")
	Application(strCookieURL & "strSecureAdmin") = rsConfig("C_STRSECUREADMIN")
	Application(strCookieURL & "strHotTopic") = rsConfig("C_STRHOTTOPIC")
	Application(strCookieURL & "intHotTopicNum") = rsConfig("C_INTHOTTOPICNUM")
	Application(strCookieURL & "strHomepage") = rsConfig("C_STRHOMEPAGE")
	Application(strCookieURL & "strICQ") = rsConfig("C_STRICQ")
	Application(strCookieURL & "strYAHOO") = rsConfig("C_STRYAHOO")
	Application(strCookieURL & "strAIM") = rsConfig("C_STRAIM")
	Application(strCookieURL & "stricons") = rsConfig("C_stricons")
	Application(strCookieURL & "strGfxButtons") = rsConfig("C_STRGFXBUTTONS")
	Application(strCookieURL & "strEditedByDate") = rsConfig("C_STREDITEDBYDATE")
	Application(strCookieURL & "strBadWordFilter") = rsConfig("C_STRBADWORDFILTER")
	Application(strCookieURL & "strBadWords") = rsConfig("C_STRBADWORDS")
	Application(strCookieURL & "strDefaultFontFace") = rsConfig("C_STRDEFAULTFONTFACE")
	Application(strCookieURL & "strDefaultFontSize") = rsConfig("C_STRDEFAULTFONTSIZE")
	Application(strCookieURL & "strHeaderFontSize") = rsConfig("C_STRHEADERFONTSIZE")
	Application(strCookieURL & "strFooterFontSize") = rsConfig("C_STRFOOTERFONTSIZE")
	Application(strCookieURL & "strPageBGColor") = rsConfig("C_STRPAGEBGCOLOR")
	Application(strCookieURL & "strPageBGImage") = rsConfig("C_STRPAGEBGIMAGE")
	Application(strCookieURL & "strDefaultFontColor") = rsConfig("C_STRDEFAULTFONTCOLOR")
	Application(strCookieURL & "strLinkColor") = rsConfig("C_STRLINKCOLOR")
	Application(strCookieURL & "strLinkTextDecoration") = rsConfig("C_STRLINKTEXTDECORATION")
	Application(strCookieURL & "strVisitedLinkColor") = rsConfig("C_STRVISITEDLINKCOLOR")
	Application(strCookieURL & "strVisitedTextDecoration") = rsConfig("C_STRVISITEDTEXTDECORATION")
	Application(strCookieURL & "strActiveLinkColor") = rsConfig("C_STRACTIVELINKCOLOR")
	Application(strCookieURL & "strHoverFontColor") = rsConfig("C_STRHOVERFONTCOLOR")
	Application(strCookieURL & "strHoverTextDecoration") = rsConfig("C_STRHOVERTEXTDECORATION")
	Application(strCookieURL & "strHeadCellColor") = rsConfig("C_STRHEADCELLCOLOR")
	Application(strCookieURL & "strHeadFontColor") = rsConfig("C_STRHEADFONTCOLOR")
	Application(strCookieURL & "strCategoryCellColor") = rsConfig("C_STRCATEGORYCELLCOLOR")
	Application(strCookieURL & "strCategoryFontColor") = rsConfig("C_STRCATEGORYFONTCOLOR")
	Application(strCookieURL & "strForumFirstCellColor") = rsConfig("C_STRFORUMFIRSTCELLCOLOR")
	Application(strCookieURL & "strForumCellColor") = rsConfig("C_STRFORUMCELLCOLOR")
	Application(strCookieURL & "strAltForumCellColor") = rsConfig("C_STRALTFORUMCELLCOLOR")
	Application(strCookieURL & "strForumFontColor") = rsConfig("C_STRFORUMFONTCOLOR")
	Application(strCookieURL & "strForumLinkColor") = rsConfig("C_STRFORUMLINKCOLOR")
	Application(strCookieURL & "strTableBorderColor") = rsConfig("C_STRTABLEBORDERCOLOR")
	Application(strCookieURL & "strPopUpTableColor") = rsConfig("C_STRPOPUPTABLECOLOR")
	Application(strCookieURL & "strPopUpBorderColor") = rsConfig("C_STRPOPUPBORDERCOLOR")
	Application(strCookieURL & "strNewFontColor") = rsConfig("C_STRNEWFONTCOLOR")
	Application(strCookieURL & "strTopicWidthLeft") = rsConfig("C_STRTOPICWIDTHLEFT")
	Application(strCookieURL & "strTopicNoWrapLeft") = rsConfig("C_STRTOPICNOWRAPLEFT")
	Application(strCookieURL & "strTopicWidthRight") = rsConfig("C_STRTOPICWIDTHRIGHT")
	Application(strCookieURL & "strTopicNoWrapRight") = rsConfig("C_STRTOPICNOWRAPRIGHT")
	Application(strCookieURL & "strShowRank") = rsConfig("C_STRSHOWRANK")
	Application(strCookieURL & "strRankAdmin") = rsConfig("C_STRRANKADMIN")
	Application(strCookieURL & "strRankMod") = rsConfig("C_STRRANKMOD")
	Application(strCookieURL & "strRankLevel0") = rsConfig("C_STRRANKLEVEL0")
	Application(strCookieURL & "strRankLevel1") = rsConfig("C_STRRANKLEVEL1")
	Application(strCookieURL & "strRankLevel2") = rsConfig("C_STRRANKLEVEL2")
	Application(strCookieURL & "strRankLevel3") = rsConfig("C_STRRANKLEVEL3")
	Application(strCookieURL & "strRankLevel4") = rsConfig("C_STRRANKLEVEL4")
	Application(strCookieURL & "strRankLevel5") = rsConfig("C_STRRANKLEVEL5")
	Application(strCookieURL & "strRankColorAdmin") = rsConfig("C_STRRANKCOLORADMIN")
	Application(strCookieURL & "strRankColorMod") = rsConfig("C_STRRANKCOLORMOD")
	Application(strCookieURL & "strRankColor0") = rsConfig("C_STRRANKCOLOR0")
	Application(strCookieURL & "strRankColor1") = rsConfig("C_STRRANKCOLOR1")
	Application(strCookieURL & "strRankColor2") = rsConfig("C_STRRANKCOLOR2")
	Application(strCookieURL & "strRankColor3") = rsConfig("C_STRRANKCOLOR3")
	Application(strCookieURL & "strRankColor4") = rsConfig("C_STRRANKCOLOR4")
	Application(strCookieURL & "strRankColor5") = rsConfig("C_STRRANKCOLOR5")
	Application(strCookieURL & "intRankLevel0") = rsConfig("C_INTRANKLEVEL0")
	Application(strCookieURL & "intRankLevel1") = rsConfig("C_INTRANKLEVEL1")
	Application(strCookieURL & "intRankLevel2") = rsConfig("C_INTRANKLEVEL2")
	Application(strCookieURL & "intRankLevel3") = rsConfig("C_INTRANKLEVEL3")
	Application(strCookieURL & "intRankLevel4") = rsConfig("C_INTRANKLEVEL4")
	Application(strCookieURL & "intRankLevel5") = rsConfig("C_INTRANKLEVEL5")
	Application(strCookieURL & "strShowStatistics") = rsconfig("C_STRSHOWSTATISTICS")
	Application(strCookieURL & "strShowImagePoweredBy") = rsconfig("C_STRSHOWIMAGEPOWEREDBY")
	Application(strCookieURL & "strLogonForMail") = rsconfig("C_STRLOGONFORMAIL")
	Application(strCookieURL & "strShowPaging") = rsconfig("C_STRSHOWPAGING")
	Application(strCookieURL & "strShowTopicNav") = rsconfig("C_STRSHOWTOPICNAV")
	Application(strCookieURL & "strPageSize") = rsconfig("C_STRPAGESIZE")
	Application(strCookieURL & "strPageNumberSize") = rsconfig("C_STRPAGENUMBERSIZE")
	Application(strCookieURL & "strFullName") = rsconfig("C_STRFULLNAME")
	Application(strCookieURL & "strPicture") = rsconfig("C_STRPICTURE")
	Application(strCookieURL & "strSex") = rsconfig("C_STRSEX")
	Application(strCookieURL & "strCity") = rsconfig("C_STRCITY")
	Application(strCookieURL & "strState") = rsconfig("C_STRSTATE")
	Application(strCookieURL & "strAge") = rsconfig("C_STRAGE")
	Application(strCookieURL & "strCountry") = rsconfig("C_STRCOUNTRY")
	Application(strCookieURL & "strOccupation") = rsconfig("C_STROCCUPATION")
	Application(strCookieURL & "strBio") = rsconfig("C_STRBIO")
	Application(strCookieURL & "strHobbies") = rsconfig("C_STRHOBBIES")
	Application(strCookieURL & "strLNews") = rsconfig("C_STRLNEWS")
	Application(strCookieURL & "strQuote") = rsconfig("C_STRQUOTE")
	Application(strCookieURL & "strMarStatus") = rsconfig("C_STRMARSTATUS")
	Application(strCookieURL & "strFavLinks") = rsconfig("C_STRFAVLINKS")
	Application(strCookieURL & "strRecentTopics") = rsconfig("C_STRRECENTTOPICS")
	Application(strCookieURL & "strHomePage") = rsconfig("C_STRHOMEPAGE")
	Application(strCookieURL & "STRNTGROUPS") = rsConfig("C_STRNTGROUPS")
	Application(strCookieURL & "STRAUTOLOGON") = rsConfig("C_STRAUTOLOGON")
'Rem User Field Code #######################################
	Application(strCookieURL & "intUserFields") = modDict.Item("UserFields")