📄 inc_create_forum_mysql.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
'##
'#################################################################################
if (strDBType = "mysql") then
on error resume next
if (my_Conn.State = 0) Then
my_Conn.Open strConnString
end If
strSql = "DROP TABLE IF EXISTS " & strTablePrefix & "CATEGORY "
my_Conn.Execute (strSql),,adCmdText + adExecuteNoRecords
ChkDBInstall()
strSql = "CREATE TABLE " & strTablePrefix & "CATEGORY ( "
strSql = strSql & "CAT_ID INT (11) NOT NULL auto_increment, "
strSql = strSql & "CAT_STATUS SMALLINT (6) DEFAULT '1' NOT NULL , "
strSql = strSql & "CAT_NAME VARCHAR (100) DEFAULT '', "
strSql = strSql & "CAT_MODERATION int (11) DEFAULT '0', "
strSql = strSql & "CAT_SUBSCRIPTION int (11) DEFAULT '0', "
strSql = strSql & "CAT_ORDER int (11) DEFAULT '1', "
strSql = strSql & "PRIMARY KEY (CAT_ID), "
strSql = strSql & "KEY " & strTablePrefix & "CATEGORY_CAT_ID(CAT_ID), "
strSql = strSql & "KEY " & strTablePrefix & "CATEGORY_CAT_STATUS (CAT_STATUS) )"
my_Conn.Execute (strSql),,adCmdText + adExecuteNoRecords
ChkDBInstall()
strSql = "DROP TABLE IF EXISTS " & strTablePrefix & "CONFIG "
my_Conn.Execute (strSql),,adCmdText + adExecuteNoRecords
ChkDBInstall()
strSql = "DROP TABLE IF EXISTS " & strTablePrefix & "CONFIG_NEW "
my_Conn.Execute (strSql),,adCmdText + adExecuteNoRecords
ChkDBInstall()
strSql = "CREATE TABLE " & strTablePrefix & "CONFIG_NEW ( "
strSql = strSql & "ID int (11) NOT NULL auto_increment, "
strSql = strSql & "C_VARIABLE VARCHAR (255) , "
strSql = strSql & "C_VALUE VARCHAR (255), "
strSql = strSql & "PRIMARY KEY (ID)) "
my_Conn.Execute (strSql),,adCmdText + adExecuteNoRecords
'ChkDBInstall()
strSql = "DROP TABLE IF EXISTS " & strTablePrefix & "FORUM "
my_Conn.Execute (strSql),,adCmdText + adExecuteNoRecords
ChkDBInstall()
strSql = "CREATE TABLE " & strTablePrefix & "FORUM ( "
strSql = strSql & "CAT_ID int (11) DEFAULT '1' NOT NULL , "
strSql = strSql & "FORUM_ID smallint (6) NOT NULL auto_increment, "
strSql = strSql & "F_STATUS smallint (6) DEFAULT '1', "
strSql = strSql & "F_MAIL smallint (6) DEFAULT '1' , "
strSql = strSql & "F_SUBJECT VARCHAR (100) DEFAULT '' , "
strSql = strSql & "F_URL VARCHAR (255) DEFAULT '' , "
strSql = strSql & "F_DESCRIPTION TEXT DEFAULT '' , "
strSql = strSql & "F_TOPICS int (11) DEFAULT '0' , "
strSql = strSql & "F_COUNT int (11) DEFAULT '0' , "
strSql = strSql & "F_LAST_POST VARCHAR (14) DEFAULT '' , "
strSql = strSql & "F_PASSWORD_NEW VARCHAR (255) DEFAULT '' , "
strSql = strSql & "F_PRIVATEFORUMS int (11) DEFAULT '0' , "
strSql = strSql & "F_TYPE smallint (6) DEFAULT '0' , "
strSql = strSql & "F_IP VARCHAR (15) DEFAULT '000.000.000.000' , "
strSql = strSql & "F_LAST_POST_AUTHOR int (11) DEFAULT '1' , "
strSql = strSql & "F_LAST_POST_TOPIC_ID int (11) DEFAULT '0' , "
strSql = strSql & "F_LAST_POST_REPLY_ID int (11) DEFAULT '0' , "
strSql = strSql & "F_MODERATION int (11) DEFAULT '0', "
strSql = strSql & "F_SUBSCRIPTION int (11) DEFAULT '0' , "
strSql = strSql & "F_ORDER int (11) DEFAULT '1' , "
strSql = strSql & "F_DEFAULTDAYS int (11) DEFAULT '30' , "
strSql = strSql & "F_COUNT_M_POSTS smallint (6) DEFAULT '1' , "
strSql = strSql & "F_L_ARCHIVE VARCHAR (14) DEFAULT '' , "
strSql = strSql & "F_ARCHIVE_SCHED int (11) DEFAULT '30' , "
strSql = strSql & "F_L_DELETE VARCHAR (14) DEFAULT '' , "
strSql = strSql & "F_DELETE_SCHED int (11) DEFAULT '365' , "
strSql = strSql & "F_A_TOPICS int (11) DEFAULT '0' , "
strSql = strSql & "F_A_COUNT int (11) DEFAULT '0' , "
strSql = strSql & "PRIMARY KEY (CAT_ID, FORUM_ID), "
strSql = strSql & "KEY " & strTablePrefix & "FORUM_FORUM_ID(FORUM_ID), "
strSql = strSql & "KEY " & strTablePrefix & "FORUM_CAT_ID(CAT_ID)) "
my_Conn.Execute (strSql),,adCmdText + adExecuteNoRecords
ChkDBInstall()
strSql = "DROP TABLE IF EXISTS " & strMemberTablePrefix & "MEMBERS "
my_Conn.Execute (strSql),,adCmdText + adExecuteNoRecords
ChkDBInstall()
strSql = "CREATE TABLE " & strMemberTablePrefix & "MEMBERS ( "
strSql = strSql & "MEMBER_ID int (11) NOT NULL AUTO_INCREMENT, "
strSql = strSql & "M_STATUS smallint (6) DEFAULT '0' , "
strSql = strSql & "M_NAME VARCHAR (75) DEFAULT '' , "
strSql = strSql & "M_USERNAME VARCHAR (150) DEFAULT '' , "
strSql = strSql & "M_PASSWORD VARCHAR (65) DEFAULT '' , "
strSql = strSql & "M_EMAIL VARCHAR (50) DEFAULT '' , "
strSql = strSql & "M_COUNTRY VARCHAR (50) DEFAULT '' , "
strSql = strSql & "M_HOMEPAGE VARCHAR (255) DEFAULT '' , "
strSql = strSql & "M_SIG TEXT DEFAULT '' , "
strSql = strSql & "M_VIEW_SIG smallint (6) NULL DEFAULT '1' , "
strSql = strSql & "M_SIG_DEFAULT smallint (6) NULL DEFAULT '1' , "
strSql = strSql & "M_DEFAULT_VIEW int (11) DEFAULT '1' , "
strSql = strSql & "M_LEVEL smallint (6) DEFAULT '1' , "
strSql = strSql & "M_AIM VARCHAR (150) DEFAULT '' , "
strSql = strSql & "M_ICQ VARCHAR (150) DEFAULT '' , "
strSql = strSql & "M_MSN VARCHAR (150) DEFAULT '' , "
strSql = strSql & "M_YAHOO VARCHAR (150) DEFAULT '' , "
strSql = strSql & "M_POSTS int (11) DEFAULT '0' , "
strSql = strSql & "M_DATE VARCHAR (14) DEFAULT '' , "
strSql = strSql & "M_LASTHEREDATE VARCHAR (14) DEFAULT '' , "
strSql = strSql & "M_LASTPOSTDATE VARCHAR (14) DEFAULT '' , "
strSql = strSql & "M_TITLE VARCHAR (50) DEFAULT '' , "
strSql = strSql & "M_SUBSCRIPTION smallint (6) DEFAULT '0' , "
strSql = strSql & "M_HIDE_EMAIL smallint (6) DEFAULT '0' , "
strSql = strSql & "M_RECEIVE_EMAIL smallint (6) DEFAULT '1' , "
strSql = strSql & "M_LAST_IP VARCHAR (15) DEFAULT '000.000.000.000' , "
strSql = strSql & "M_IP VARCHAR (15) DEFAULT '000.000.000.000' , "
strSql = strSql & "M_FIRSTNAME VARCHAR (100) DEFAULT '' , "
strSql = strSql & "M_LASTNAME VARCHAR (100) DEFAULT '' , "
strSql = strSql & "M_OCCUPATION VARCHAR (255) DEFAULT '' , "
strSql = strSql & "M_SEX VARCHAR (50) DEFAULT '' , "
strSql = strSql & "M_AGE VARCHAR (10) DEFAULT '' , "
strSql = strSql & "M_DOB VARCHAR (8) DEFAULT '' , "
strSql = strSql & "M_HOBBIES TEXT DEFAULT '' , "
strSql = strSql & "M_LNEWS TEXT DEFAULT '' , "
strSql = strSql & "M_QUOTE TEXT DEFAULT '' , "
strSql = strSql & "M_BIO TEXT DEFAULT '' , "
strSql = strSql & "M_MARSTATUS VARCHAR (100) DEFAULT '' , "
strSql = strSql & "M_LINK1 VARCHAR (255) DEFAULT '' , "
strSql = strSql & "M_LINK2 VARCHAR (255) DEFAULT '' , "
strSql = strSql & "M_CITY VARCHAR (100) DEFAULT '' , "
strSql = strSql & "M_STATE VARCHAR (100) DEFAULT '' , "
strSql = strSql & "M_PHOTO_URL VARCHAR (255) DEFAULT '' , "
strSql = strSql & "M_KEY VARCHAR (32) DEFAULT '' , "
strSql = strSql & "M_NEWEMAIL VARCHAR (50) DEFAULT '', "
strSql = strSql & "M_PWKEY VARCHAR (32) DEFAULT '' , "
strSql = strSql & "M_SHA256 smallint (6) DEFAULT '1' ,"
strSql = strSql & "PRIMARY KEY (MEMBER_ID), "
strSql = strSql & "KEY " & strMemberTablePrefix & "MEMBERS_MEMBER_ID (MEMBER_ID) ) "
my_Conn.Execute (strSql),,adCmdText + adExecuteNoRecords
ChkDBInstall()
strSql = "DROP TABLE IF EXISTS " & strMemberTablePrefix & "MEMBERS_PENDING "
my_Conn.Execute (strSql),,adCmdText + adExecuteNoRecords
ChkDBInstall()
strSql = "CREATE TABLE " & strMemberTablePrefix & "MEMBERS_PENDING ( "
strSql = strSql & "MEMBER_ID int (11) NOT NULL AUTO_INCREMENT, "
strSql = strSql & "M_STATUS smallint (6) DEFAULT '0' , "
strSql = strSql & "M_NAME VARCHAR (75) DEFAULT '' , "
strSql = strSql & "M_USERNAME VARCHAR (150) DEFAULT '' , "
strSql = strSql & "M_PASSWORD VARCHAR (65) DEFAULT '' , "
strSql = strSql & "M_EMAIL VARCHAR (50) DEFAULT '' , "
strSql = strSql & "M_COUNTRY VARCHAR (50) DEFAULT '' , "
strSql = strSql & "M_HOMEPAGE VARCHAR (255) DEFAULT '' , "
strSql = strSql & "M_SIG TEXT DEFAULT '' , "
strSql = strSql & "M_VIEW_SIG smallint (6) NULL DEFAULT '1' , "
strSql = strSql & "M_SIG_DEFAULT smallint (6) NULL DEFAULT '1' , "
strSql = strSql & "M_DEFAULT_VIEW int (11) DEFAULT '1' , "
strSql = strSql & "M_LEVEL smallint (6) DEFAULT '1' , "
strSql = strSql & "M_AIM VARCHAR (150) DEFAULT '' , "
strSql = strSql & "M_ICQ VARCHAR (150) DEFAULT '' , "
strSql = strSql & "M_MSN VARCHAR (150) DEFAULT '' , "
strSql = strSql & "M_YAHOO VARCHAR (150) DEFAULT '' , "
strSql = strSql & "M_POSTS int (11) DEFAULT '0' , "
strSql = strSql & "M_DATE VARCHAR (14) DEFAULT '' , "
strSql = strSql & "M_LASTHEREDATE VARCHAR (14) DEFAULT '' , "
strSql = strSql & "M_LASTPOSTDATE VARCHAR (14) DEFAULT '' , "
strSql = strSql & "M_TITLE VARCHAR (50) DEFAULT '' , "
strSql = strSql & "M_SUBSCRIPTION smallint (6) DEFAULT '0' , "
strSql = strSql & "M_HIDE_EMAIL smallint (6) DEFAULT '0' , "
strSql = strSql & "M_RECEIVE_EMAIL smallint (6) DEFAULT '1' , "
strSql = strSql & "M_LAST_IP VARCHAR (15) DEFAULT '000.000.000.000' , "
strSql = strSql & "M_IP VARCHAR (15) DEFAULT '000.000.000.000' , "
strSql = strSql & "M_FIRSTNAME VARCHAR (100) DEFAULT '' , "
strSql = strSql & "M_LASTNAME VARCHAR (100) DEFAULT '' , "
strSql = strSql & "M_OCCUPATION VARCHAR (255) DEFAULT '' , "
strSql = strSql & "M_SEX VARCHAR (50) DEFAULT '' , "
strSql = strSql & "M_AGE VARCHAR (10) DEFAULT '' , "
strSql = strSql & "M_DOB VARCHAR (8) DEFAULT '' , "
strSql = strSql & "M_HOBBIES TEXT DEFAULT '' , "
strSql = strSql & "M_LNEWS TEXT DEFAULT '' , "
strSql = strSql & "M_QUOTE TEXT DEFAULT '' , "
strSql = strSql & "M_BIO TEXT DEFAULT '' , "
strSql = strSql & "M_MARSTATUS VARCHAR (100) DEFAULT '' , "
strSql = strSql & "M_LINK1 VARCHAR (255) DEFAULT '' , "
strSql = strSql & "M_LINK2 VARCHAR (255) DEFAULT '' , "
strSql = strSql & "M_CITY VARCHAR (100) DEFAULT '' , "
strSql = strSql & "M_STATE VARCHAR (100) DEFAULT '' , "
strSql = strSql & "M_PHOTO_URL VARCHAR (255) DEFAULT '' , "
strSql = strSql & "M_KEY VARCHAR (32) DEFAULT '' , "
strSql = strSql & "M_NEWEMAIL VARCHAR (50) DEFAULT '', "
strSql = strSql & "M_PWKEY VARCHAR (32) DEFAULT '' , "
strSql = strSql & "M_APPROVE smallint (6) DEFAULT '' , "
strSql = strSql & "M_SHA256 smallint (6) DEFAULT '1' , "
strSql = strSql & "PRIMARY KEY (MEMBER_ID) ) "
my_Conn.Execute (strSql),,adCmdText + adExecuteNoRecords
ChkDBInstall()
strSql = "DROP TABLE IF EXISTS " & strTablePrefix & "MODERATOR "
my_Conn.Execute (strSql),,adCmdText + adExecuteNoRecords
ChkDBInstall()
strSql = "CREATE TABLE " & strTablePrefix & "MODERATOR ( "
strSql = strSql & "MOD_ID int (11) NOT NULL auto_increment, "
strSql = strSql & "FORUM_ID int (11) DEFAULT '1' , "
strSql = strSql & "MEMBER_ID int (11) DEFAULT '1' , "
strSql = strSql & "MOD_TYPE smallint (6) DEFAULT '0', "
strSql = strSql & "PRIMARY KEY (MOD_ID))"
my_Conn.Execute (strSql),,adCmdText + adExecuteNoRecords
ChkDBInstall()
strSql = "DROP TABLE IF EXISTS " & strTablePrefix & "REPLY "
my_Conn.Execute (strSql),,adCmdText + adExecuteNoRecords
ChkDBInstall()
strSql = "CREATE TABLE " & strTablePrefix & "REPLY ( "
strSql = strSql & "CAT_ID int (11) DEFAULT '1' NOT NULL , "
strSql = strSql & "FORUM_ID int (11) DEFAULT '1' NOT NULL , "
strSql = strSql & "TOPIC_ID int (11) DEFAULT '1' NOT NULL , "
strSql = strSql & "REPLY_ID int (11) NOT NULL auto_increment, "
strSql = strSql & "R_MAIL smallint (6) DEFAULT '0' , "
strSql = strSql & "R_AUTHOR int (11) DEFAULT '1' , "
strSql = strSql & "R_MESSAGE text , "
strSql = strSql & "R_DATE VARCHAR (14) DEFAULT '' , "
strSql = strSql & "R_IP VARCHAR (15) DEFAULT '000.000.000.000', "
strSql = strSql & "R_STATUS smallint (6) DEFAULT '0', "
strSql = strSql & "R_LAST_EDIT VARCHAR (14) , "
strSql = strSql & "R_LAST_EDITBY int (11) , "
strSql = strSql & "R_SIG smallint (6) DEFAULT '0', "
strSql = strSql & "PRIMARY KEY (CAT_ID, FORUM_ID, TOPIC_ID, REPLY_ID), "
strSql = strSql & "KEY " & strTablePrefix & "REPLY_CATFORTOPREPL(CAT_ID,FORUM_ID,TOPIC_ID, REPLY_ID), "
strSql = strSql & "KEY " & strTablePrefix & "REPLY_REP_ID(REPLY_ID), "
strSql = strSql & "KEY " & strTablePrefix & "REPLY_CAT_ID(CAT_ID), "
strSql = strSql & "KEY " & strTablePrefix & "REPLY_FORUM_ID(FORUM_ID), "
strSql = strSql & "KEY " & strTablePrefix & "REPLY_TOPIC_ID (TOPIC_ID) )"
my_Conn.Execute (strSql),,adCmdText + adExecuteNoRecords
ChkDBInstall()
strSql = "DROP TABLE IF EXISTS " & strTablePrefix & "TOPICS "
my_Conn.Execute (strSql),,adCmdText + adExecuteNoRecords
ChkDBInstall()
strSql = "CREATE TABLE " & strTablePrefix & "TOPICS ( "
strSql = strSql & "CAT_ID int (11) DEFAULT '1' NOT NULL , "
strSql = strSql & "FORUM_ID int (11) DEFAULT '1' NOT NULL , "
strSql = strSql & "TOPIC_ID int (11) NOT NULL auto_increment, "
strSql = strSql & "T_STATUS smallint (6) DEFAULT '1' , "
strSql = strSql & "T_MAIL smallint (6) DEFAULT '0' , "
strSql = strSql & "T_SUBJECT VARCHAR (100) DEFAULT '' , "
strSql = strSql & "T_MESSAGE text , "
strSql = strSql & "T_AUTHOR int (11) DEFAULT '1' , "
strSql = strSql & "T_REPLIES int (11) DEFAULT '0' , "
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -