📄 setup.asp
字号:
<%
'#################################################################################
'## Snitz Forums 2000 v3.4.05
'#################################################################################
'## Copyright (C) 2000-05 Michael Anderson, Pierre Gorissen,
'## Huw Reddick and Richard Kinser
'##
'## 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 (at your option) 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
'## http://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 our support forums at:
'## http://forum.snitz.com
'##
'## Correspondence and Marketing Questions can be sent to:
'## manderson@snitz.com
'##
'#################################################################################
'#################################################################################
strNewVersion = "Snitz Forums 2000 Version 3.4.05"
'#################################################################################
Dim NewConfig
ResponseCode = Request.QueryString("RC")
%>
<!--#INCLUDE FILE="inc_sha256.asp"-->
<%
Dim strCurrentDateTime
Dim strlhDateTime
strCurrentDateTime = DateToStr(Now())
strlhDateTime = DateToStr(dateadd("n", -5, Now()))
if ResponseCode <> "" then 'No parameter
blnSetup = "Y"
else
strCookieURL = Left(Request.ServerVariables("Path_Info"), InstrRev(Request.ServerVariables("Path_Info"), "/"))
Application.Lock
Application(strCookieURL & "ConfigLoaded")= ""
Application.UnLock
end if
if blnSetup <> "Y" then NewConfig = 1
%>
<!-- #INCLUDE FILE="config.asp" -->
<%
Response.Buffer = True
Response.Write "<html>" & vbNewLine & _
vbNewLine & _
"<head>" & vbNewLine & _
"<title>Forum-Setup Page</title>" & vbNewLine
'## START - REMOVAL, MODIFICATION OR CIRCUMVENTING THIS CODE WILL VIOLATE THE SNITZ FORUMS 2000 LICENSE AGREEMENT
Response.Write "<meta name=""copyright"" content=""This Forum code is Copyright (C) 2000-05 Michael Anderson, Pierre Gorissen, Huw Reddick and Richard Kinser, Non-Forum Related code is Copyright (C) " & strCopyright & """>" & vbNewline
'## END - REMOVAL, MODIFICATION OR CIRCUMVENTING THIS CODE WILL VIOLATE THE SNITZ FORUMS 2000 LICENSE AGREEMENT
Response.Write "<style><!--" & vbNewLine & _
"a:link {color:darkblue;text-decoration:underline}" & vbNewLine & _
"a:visited {color:blue;text-decoration:underline}" & vbNewLine & _
"a:hover {color:red;text-decoration:underline}" & vbNewLine & _
"--></style>" & vbNewLine & _
"</head>" & vbNewLine & _
vbNewLine & _
"<body bgColor=""white"" text=""midnightblue"" link=""darkblue"" aLink=""red"" vLink=""red"" onLoad=""window.focus()"">" & vbNewLine
If strDBType = "" then
Response.Write "<table border=""0"" cellspacing=""0"" cellpadding=""5"" width=""50%"" height=""50%"" align=""center"">" & vbNewLine & _
" <tr>" & vbNewLine & _
" <td bgColor=""#9FAFDF"" align=""center""><p><font face=""Verdana, Arial, Helvetica"" size=""2"">" & _
"<b>Database Setup....</b><br /><br />" & _
"Your <b>strDBType</b> is not set, please edit your <b>config.asp</b><br />to reflect your database type." & _
"</font></p></td>" & vbNewLine & _
" </tr>" & vbNewLine & _
" <tr>" & vbNewLine & _
" <td align=""center""><font face=""Verdana, Arial, Helvetica"" size=""2"">" & _
"<a href=""setup.asp"" target=""_top"">Click here to retry.</a></font></td>" & vbNewLine & _
" </tr>" & vbNewLine & _
"</table>" & vbNewLine & _
"</body>" & vbNewLine & _
"</html>" & vbNewLine
Response.End
end if
if ResponseCode = "" then 'No parameter
' Check to see if all the fields are in the database
on error resume next
set my_Conn = Server.CreateObject("ADODB.Connection")
my_Conn.Open strConnString
for counter = 0 to my_Conn.Errors.Count -1
ConnErrorNumber = Err.Number
ConnErrorDesc = my_conn.Errors(counter).Description
if ConnErrorNumber <> 0 then
my_Conn.Errors.Clear
Err.Clear
Response.Redirect "setup.asp?RC=1&EC=" & ConnErrorNumber & "&ED=" & Server.URLEncode(ConnErrorDesc)
end if
next
my_Conn.Errors.Clear
Err.Clear
strSql = "SELECT CAT_ID, FORUM_ID, F_STATUS, F_MAIL, F_SUBJECT, F_URL, F_DESCRIPTION, F_TOPICS, F_COUNT, F_LAST_POST, "
strSql = strSql & "F_PASSWORD_NEW, F_PRIVATEFORUMS, F_TYPE, F_IP, F_LAST_POST_AUTHOR, F_A_TOPICS, F_A_COUNT, "
strSQL = strSQL & "F_MODERATION, F_SUBSCRIPTION, F_ORDER, F_L_ARCHIVE, F_ARCHIVE_SCHED, F_L_DELETE, F_DELETE_SCHED"
strSql = strSql & " FROM " & strTablePrefix & "FORUM"
my_Conn.Execute strSql
Call CheckSqlError()
my_Conn.Errors.Clear
Err.Clear
strSql = "SELECT CAT_ID, FORUM_ID, TOPIC_ID, T_STATUS, T_SUBJECT, T_MESSAGE, T_AUTHOR, T_REPLIES, "
strSql = strSql & " T_VIEW_COUNT, T_LAST_POST, T_DATE, T_LAST_POSTER, T_IP, T_ARCHIVE_FLAG, T_LAST_POST_AUTHOR "
strSql = strSql & " FROM " & strTablePrefix & "TOPICS"
my_Conn.Execute strSql
Call CheckSqlError()
my_Conn.Errors.Clear
Err.Clear
strSql = "SELECT MEMBER_ID, M_STATUS, M_NAME, M_USERNAME, M_PASSWORD, M_EMAIL, M_COUNTRY, M_HOMEPAGE, "
strSql = strSql & "M_SIG, M_DEFAULT_VIEW, M_LEVEL, M_AIM, M_ICQ, M_MSN, M_YAHOO, M_POSTS, M_DATE, M_LASTHEREDATE, "
strSql = strSql & "M_LASTPOSTDATE, M_TITLE, M_SUBSCRIPTION, M_HIDE_EMAIL, M_RECEIVE_EMAIL, M_LAST_IP, M_IP, "
strSql = strSql & "M_FIRSTNAME, M_LASTNAME, M_OCCUPATION, M_SEX, M_AGE, M_HOBBIES, M_LNEWS, M_QUOTE, M_BIO, "
strSql = strSql & "M_MARSTATUS, M_LINK1, M_LINK2, M_CITY, M_STATE, M_PHOTO_URL, M_KEY, M_NEWEMAIL, M_PWKEY, M_SHA256 "
strSql = strSql & " FROM " & strMemberTablePrefix & "MEMBERS"
my_Conn.Execute strSql
Call CheckSqlError()
my_Conn.Errors.Clear
Err.Clear
strSql = "SELECT MEMBER_ID, M_STATUS, M_NAME, M_USERNAME, M_PASSWORD, M_EMAIL, M_COUNTRY, M_HOMEPAGE, "
strSql = strSql & "M_SIG, M_DEFAULT_VIEW, M_LEVEL, M_AIM, M_ICQ, M_MSN, M_YAHOO, M_POSTS, M_DATE, M_LASTHEREDATE, "
strSql = strSql & "M_LASTPOSTDATE, M_TITLE, M_SUBSCRIPTION, M_HIDE_EMAIL, M_RECEIVE_EMAIL, M_LAST_IP, M_IP, "
strSql = strSql & "M_FIRSTNAME, M_LASTNAME, M_OCCUPATION, M_SEX, M_AGE, M_HOBBIES, M_LNEWS, M_QUOTE, M_BIO, "
strSql = strSql & "M_MARSTATUS, M_LINK1, M_LINK2, M_CITY, M_STATE, M_PHOTO_URL, M_KEY, M_NEWEMAIL, M_PWKEY, M_SHA256 "
strSql = strSql & " FROM " & strMemberTablePrefix & "MEMBERS_PENDING"
my_Conn.Execute strSql
Call CheckSqlError()
my_Conn.Errors.Clear
Err.Clear
on error goto 0
if strVersion <> strNewVersion then
Response.Redirect "setup.asp?RC=3&MAIL=" & Server.UrlEncode(strSender) & "&VER=" & Server.URLEncode(strVersion) & "&EC=" & Server.UrlEncode("Different or New Version-ID detected")
end if
'## This part of the code is only reached if all is ok !!
Response.Write "<div align=""center""><center>" & vbNewLine & _
"<p><font face=""Verdana, Arial, Helvetica"" size=""4"">Forum setup has been completed.</font></p>" & vbNewLine & _
"</center></div>" & vbNewLine & _
"<table border=""0"" cellspacing=""0"" cellpadding=""5"" width=""50%"" height=""50%"" align=""center"">" & vbNewLine & _
" <tr>" & vbNewLine & _
" <td bgColor=""#9FAFDF"" align=""center"">" & vbNewLine & _
" <p><font face=""Verdana, Arial, Helvetica"" size=""2"">" & vbNewLine & _
" <b>Congratulations!!</b><br />" & vbNewLine & _
" The forum setup has been completed successfully.<br />" & vbNewLine & _
" You can now start using Snitz Forums 2000.</font></p>" & vbNewLine & _
" <p><font face=""Verdana, Arial, Helvetica"" size=""2"">" & vbNewLine & _
" If you have questions or remarks you can visit us at: <a href=""http://forum.snitz.com"">http://forum.snitz.com</a></font></p>" & vbNewLine & _
" <p><font face=""Verdana, Arial, Helvetica"" size=""2"">" & vbNewLine & _
" You can also post the address of your forum there<br />" & vbNewLine & _
" so others can come and visit you." & vbNewLine & _
" </font></p></td>" & vbNewLine & _
" </tr>" & vbNewLine & _
" <tr>" & vbNewLine & _
" <td align=""center"">" & vbNewLine & _
" <font face=""Verdana, Arial, Helvetica"" size=""2"">" & vbNewLine & _
" <a href=""default.asp"" target=""_top"">Click here to go to the forum.</a>" & vbNewLine & _
" </font></td>" & vbNewLine & _
" </tr>" & vbNewLine & _
" <tr>" & vbNewLine & _
" <td align=""center"">" & vbNewLine & _
" <font face=""Verdana, Arial, Helvetica"" size=""2"">" & vbNewLine & _
" <a href=""setup.asp?RC=3"" target=""_top"">Upgrade the database.</a><br /><small>(shouldn't be needed for this database!)</small>" & vbNewLine & _
" </font></td>" & vbNewLine & _
" </tr>" & vbNewLine
if strDBType <> "access" then
Response.Write " <tr>" & vbNewLine & _
" <td align=""center"">" & vbNewLine & _
" <font face=""Verdana, Arial, Helvetica"" size=""2"">" & vbNewLine & _
" <a href=""setup.asp?RC=5"" target=""_top"">Create the database tables.</a><br /><small>(shouldn't be needed for this database!)</small>" & vbNewLine & _
" </font></td>" & vbNewLine & _
" </tr>" & vbNewLine
end if
Response.Write "</table>" & vbNewLine
elseif ResponseCode = 1 then '## cannot open database
ErrorCode = Request.QueryString("EC")
ErrorDesc = Request.QueryString("ED")
CustomCode = Request.QueryString("CC")
Response.Write "<div align=""center""><center>" & vbNewLine & _
"<p><font face=""Verdana, Arial, Helvetica"" size=""4"">There has been an error !!</font></p>" & vbNewLine & _
"</center></div>" & vbNewLine & _
"<table border=""0"" cellspacing=""0"" cellpadding=""5"" width=""50%"" height=""50%"" align=""center"">" & vbNewLine & _
" <tr>" & vbNewLine & _
" <td bgColor=""#9FAFDF"" align=""center"">" & vbNewLine & _
" <p><font face=""Verdana, Arial, Helvetica"" size=""2"">" & vbNewLine
if CustomCode = 1 then
Response.Write " The database could not be opened !!<br />" & vbNewLine & _
" Check your config.asp file and set the <br /><b>strConnString</b> so it points to the database.<br />" & vbNewLine & _
" Also check if <b>strDBType</b> is set to the right databasetype.<br />" & vbNewLine & _
" <br />" & vbNewLine
elseif CustomCode = 2 then
Response.Write " Couldn't read from one or more tables in the database.<br /> Make sure none of the tables are exclusively locked by another user.<br /><br />" & vbNewLine
elseif CustomCode = 3 then
Response.Write " Couldn't open the database.<br /> Make sure you supplied a correct username and password.<br /><br />" & vbNewLine
else
Response.Write " The database could not be opened !!<br />" & vbNewLine & _
" <br />" & vbNewLine
end if
if ErrorCode <> "" and ErrorCode < "0" then
Response.Write(" <p>Code : " & Hex(ErrorCode) & "</p>" & vbNewLine)
if ErrorDesc <> "" then
Response.Write(" <p><b>Error Description</b> : <br />" & ErrorDesc & "</p>" & vbNewLine)
end if
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -