以下就是那个代码，你看看
<%
'#################################################################################
'## Copyright (C) 2000 Michael Anderson and Pierre Gorissen
'##
'## 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 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
'##
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 support forums at:
'##
forum.snitz.com '##
'## Correspondence and Marketing Questions can be sent to:
'## reinhold@bigfoot.com
'##
'## or
'##
'## Snitz Communications
'## C/O: Michael Anderson
'## PO Box 200
'## Harpswell, ME 04079
'#################################################################################
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 (access, sqlserver or mysql)
'#################################################################################
'strDBType = "sqlserver"
'strDBType = "access"
'strDBType = "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 = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("/fpdb/snitz_forums_2000.mdb") '## MS Access 2000 using virtual path
'strConnString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\inetpub\dbroot\forum.snitz.com\snitz_forum.mdb;" '## MS Access 2000
'strConnString = "driver={SQL Server};server=SERVER_NAME;uid=SQL_USER;pwd=PASSWORD;database=DATABASE_NAME" '## 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 strBadWordFilter, strBadWords
dim strDefaultFontFace, strDefaultFontSize, strHeaderFontSize, strFooterFontSize
dim strPageBGColor, strDefaultFontColor
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
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_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 "
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 "
set rsConfig = my_Conn.Execute (strSql)
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 & "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")
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 "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")
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")
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)
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")
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")
strTopicWidthLeft = Application(strCookieURL & "strTopicWidthLeft")
strTopicNoWrapLeft = Application(strCookieURL & "strTopicNoWrapLeft")
strTopicWidthRight = Application(strCookieURL & "strTopicWidthRight")
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")
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
%>
