⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 inc_create_forum_mssql.asp

📁 代码名称： Snitz Forums 2000 代码语言： 英文 代码类型： 国外代码 运行环境： ASP 授权方式： 免费代码 代码大小： 530kb 代码等级： 3 整
💻 ASP
📖 第 1 页 / 共 3 页
字号:
🔍
123 
<%
'#################################################################################
'## 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 = "sqlserver") then
	if strSQL_Server = "SQL6" then
		strN = ""
	else
		strN = "n"
	end if

	my_Conn.Errors.Clear
	on error resume next

	strSql = "CREATE TABLE " & strTablePrefix & "CATEGORY ( "
	strSql = strSql & "CAT_ID int IDENTITY (1, 1) NOT NULL , "
	strSql = strSql & "CAT_STATUS smallint NULL , "
	strSql = strSql & "CAT_NAME " & strN & "varchar (100) NULL , "
	strSql = strSql & "CAT_MODERATION int NULL CONSTRAINT " & strTablePrefix & "SnitzC1020 DEFAULT 0, "
	strSql = strSql & "CAT_SUBSCRIPTION int NULL CONSTRAINT " & strTablePrefix & "SnitzC1021 DEFAULT 0, "
	strSql = strSql & "CAT_ORDER int NULL CONSTRAINT " & strTablePrefix & "SnitzC1022 DEFAULT 1 )"

	my_Conn.Execute (strSql),,adCmdText + adExecuteNoRecords
	ChkDBInstall()

	strSql = "CREATE TABLE " & strTablePrefix & "CONFIG_NEW ( "
	strSql = strSql & "ID int IDENTITY (1, 1) NOT NULL , "
	strSql = strSql & "C_VARIABLE " & strN & "varchar (255) NULL , "
	strSql = strSql & "C_VALUE " & strN & "varchar (255) NULL )"

	my_Conn.Execute (strSql),,adCmdText + adExecuteNoRecords
	'ChkDBInstall()

	strSql = "CREATE TABLE " & strTablePrefix & "FORUM ( "
	strSql = strSql & "CAT_ID int NOT NULL , "
	strSql = strSql & "FORUM_ID int IDENTITY (1, 1) NOT NULL , "
	strSql = strSql & "F_STATUS smallint NULL , "
	strSql = strSql & "F_MAIL smallint NULL , "
	strSql = strSql & "F_SUBJECT " & strN & "varchar (100) NULL , "
	strSql = strSql & "F_URL " & strN & "varchar (255) NULL , "
	strSql = strSql & "F_DESCRIPTION " & strN & "text NULL , "
	strSql = strSql & "F_TOPICS int NULL , "
	strSql = strSql & "F_COUNT int NULL , "
	strSql = strSql & "F_LAST_POST " & strN & "varchar (14) NULL , "
	strSql = strSql & "F_PASSWORD_NEW " & strN & "varchar (255) NULL , "
	strSql = strSql & "F_PRIVATEFORUMS int NULL , "
	strSql = strSql & "F_TYPE smallint NULL , "
	strSql = strSql & "F_IP " & strN & "varchar (15) NULL,  "
	strSql = strSql & "F_LAST_POST_AUTHOR int NULL, "
	strSql = strSql & "F_LAST_POST_TOPIC_ID int NULL, "
	strSql = strSql & "F_LAST_POST_REPLY_ID int NULL, "
	strSql = strSql & "F_A_TOPICS int NULL , "
	strSql = strSql & "F_A_COUNT int NULL , "
	strSql = strSql & "F_DEFAULTDAYS int NULL DEFAULT 30 , "
	strSql = strSql & "F_COUNT_M_POSTS smallint NULL DEFAULT 1 , "
	strSql = strSql & "F_MODERATION int NOT NULL CONSTRAINT " & strTablePrefix & "SnitzC1018 DEFAULT 0, "
	strSql = strSql & "F_SUBSCRIPTION int NOT NULL CONSTRAINT " & strTablePrefix & "SnitzC1019 DEFAULT 0, "
	strSql = strSql & "F_ORDER int NOT NULL CONSTRAINT " & strTablePrefix & "SnitzC1025 DEFAULT 1, "
	strSql = strSql & "F_L_ARCHIVE " & strN & "varchar (14) NOT NULL CONSTRAINT " & strTablePrefix & "SnitzC1026 DEFAULT '', "
	strSql = strSql & "F_ARCHIVE_SCHED int NOT NULL CONSTRAINT " & strTablePrefix & "SnitzC1027 DEFAULT 30, "
	strSql = strSql & "F_L_DELETE " & strN & "varchar (14) NOT NULL CONSTRAINT " & strTablePrefix & "SnitzC1028 DEFAULT '', "
	strSql = strSql & "F_DELETE_SCHED int NOT NULL CONSTRAINT " & strTablePrefix & "SnitzC1029 DEFAULT 365 ) "

	my_Conn.Execute (strSql),,adCmdText + adExecuteNoRecords
	ChkDBInstall()

	strSql = "CREATE TABLE " & strMemberTablePrefix & "MEMBERS ( "
	strSql = strSql & "MEMBER_ID int IDENTITY (1, 1) NOT NULL , "
	strSql = strSql & "M_STATUS smallint NULL , "
	strSql = strSql & "M_NAME " & strN & "varchar (75) NULL DEFAULT '' , "
	strSql = strSql & "M_USERNAME " & strN & "varchar (150) NULL DEFAULT '' , "
	strSql = strSql & "M_PASSWORD " & strN & "varchar (65) NULL DEFAULT '' , "
	strSql = strSql & "M_EMAIL " & strN & "varchar (50) NULL DEFAULT '' , "
	strSql = strSql & "M_COUNTRY " & strN & "varchar (50) NULL DEFAULT '' , "
	strSql = strSql & "M_HOMEPAGE " & strN & "varchar (255) NULL DEFAULT '' , "
	strSql = strSql & "M_SIG " & strN & "text NULL DEFAULT '' , "
	strSql = strSql & "M_VIEW_SIG smallint NULL DEFAULT 1 , "
	strSql = strSql & "M_SIG_DEFAULT smallint NULL DEFAULT 1 , "
	strSql = strSql & "M_DEFAULT_VIEW int NULL , "
	strSql = strSql & "M_LEVEL smallint NULL , "
	strSql = strSql & "M_AIM " & strN & "varchar (150) NULL DEFAULT '' , "
	strSql = strSql & "M_ICQ " & strN & "varchar (150) NULL DEFAULT '' , "
	strSql = strSql & "M_MSN " & strN & "varchar (150) NULL DEFAULT '' , "
	strSql = strSql & "M_YAHOO " & strN & "varchar (150) NULL DEFAULT '' , "
	strSql = strSql & "M_POSTS int NULL DEFAULT '0' , "
	strSql = strSql & "M_DATE " & strN & "varchar (14) NULL , "
	strSql = strSql & "M_LASTHEREDATE " & strN & "varchar (14) NULL DEFAULT '' , "
	strSql = strSql & "M_LASTPOSTDATE " & strN & "varchar (14) NULL DEFAULT '' , "
	strSql = strSql & "M_TITLE " & strN & "varchar (50) NULL DEFAULT '' , "
	strSql = strSql & "M_SUBSCRIPTION smallint NULL , "
	strSql = strSql & "M_HIDE_EMAIL smallint NULL , "
	strSql = strSql & "M_RECEIVE_EMAIL smallint NULL , "
	strSql = strSql & "M_LAST_IP " & strN & "varchar (15) NULL , "
	strSql = strSql & "M_IP " & strN & "varchar (15) NULL , "
	strSql = strSql & "M_FIRSTNAME " & strN & "varchar (100) NULL CONSTRAINT " & strTablePrefix & "SnitzC0369 DEFAULT '' ,"
	strSql = strSql & "M_LASTNAME " & strN & "varchar (100) NULL CONSTRAINT " & strTablePrefix & "SnitzC0370 DEFAULT '' ,"
	strSql = strSql & "M_OCCUPATION " & strN & "varchar (255) NULL CONSTRAINT " & strTablePrefix & "SnitzC0371 DEFAULT '' ,"
	strSql = strSql & "M_SEX " & strN & "varchar (50) NULL CONSTRAINT " & strTablePrefix & "SnitzC0372 DEFAULT '' , "
	strSql = strSql & "M_AGE " & strN & "varchar (10) NULL CONSTRAINT " & strTablePrefix & "SnitzC0373 DEFAULT '' , "
	strSql = strSql & "M_DOB " & strN & "varchar (8) NULL DEFAULT '' , "
	strSql = strSql & "M_HOBBIES " & strN & "text NULL DEFAULT '' , "
	strSql = strSql & "M_LNEWS " & strN & "text NULL DEFAULT '' , "
	strSql = strSql & "M_QUOTE " & strN & "text NULL DEFAULT '' , "
	strSql = strSql & "M_BIO " & strN & "text NULL DEFAULT '' , "
	strSql = strSql & "M_MARSTATUS " & strN & "varchar (100) NULL CONSTRAINT " & strTablePrefix & "SnitzC0374 DEFAULT '' ,"
	strSql = strSql & "M_LINK1 " & strN & "varchar (255) NULL CONSTRAINT " & strTablePrefix & "SnitzC0375 DEFAULT '' ,"
	strSql = strSql & "M_LINK2 " & strN & "varchar (255) NULL CONSTRAINT " & strTablePrefix & "SnitzC0376 DEFAULT '' , "
	strSql = strSql & "M_CITY " & strN & "varchar (100) NULL CONSTRAINT " & strTablePrefix & "SnitzC0377 DEFAULT '' , "
	strSql = strSql & "M_STATE " & strN & "varchar (100) NULL CONSTRAINT " & strTablePrefix & "SnitzC0379 DEFAULT '' , "
	strSql = strSql & "M_PHOTO_URL " & strN & "varchar (255) NULL CONSTRAINT " & strTablePrefix & "SnitzC0378 DEFAULT '' , "
	strSql = strSql & "M_KEY " & strN & "varchar (32) NULL DEFAULT '' , "
	strSql = strSql & "M_NEWEMAIL " & strN & "varchar (50) NULL DEFAULT '' , "
	strSql = strSql & "M_PWKEY " & strN & "varchar (32) NULL DEFAULT '' , "
	strSql = strSql & "M_SHA256 smallint NULL DEFAULT 1 )"

	my_Conn.Execute (strSql),,adCmdText + adExecuteNoRecords
	ChkDBInstall()

	strSql = "CREATE TABLE " & strMemberTablePrefix & "MEMBERS_PENDING ( "
	strSql = strSql & "MEMBER_ID int IDENTITY (1, 1) NOT NULL , "
	strSql = strSql & "M_STATUS smallint NULL , "
	strSql = strSql & "M_NAME " & strN & "varchar (75) NULL DEFAULT '' , "
	strSql = strSql & "M_USERNAME " & strN & "varchar (150) NULL DEFAULT '' , "
	strSql = strSql & "M_PASSWORD " & strN & "varchar (65) NULL DEFAULT '' , "
	strSql = strSql & "M_EMAIL " & strN & "varchar (50) NULL DEFAULT '' , "
	strSql = strSql & "M_COUNTRY " & strN & "varchar (50) NULL DEFAULT '' , "
	strSql = strSql & "M_HOMEPAGE " & strN & "varchar (255) NULL DEFAULT '' , "
	strSql = strSql & "M_SIG " & strN & "text NULL DEFAULT '' , "
	strSql = strSql & "M_VIEW_SIG smallint NULL DEFAULT 1 , "
	strSql = strSql & "M_SIG_DEFAULT smallint NULL DEFAULT 1 , "
	strSql = strSql & "M_DEFAULT_VIEW int NULL , "
	strSql = strSql & "M_LEVEL smallint NULL , "
	strSql = strSql & "M_AIM " & strN & "varchar (150) NULL DEFAULT '' , "
	strSql = strSql & "M_ICQ " & strN & "varchar (150) NULL DEFAULT '' , "
	strSql = strSql & "M_MSN " & strN & "varchar (150) NULL DEFAULT '' , "
	strSql = strSql & "M_YAHOO " & strN & "varchar (150) NULL DEFAULT '' , "
	strSql = strSql & "M_POSTS int NULL DEFAULT '0' , "
	strSql = strSql & "M_DATE " & strN & "varchar (14) NULL , "
	strSql = strSql & "M_LASTHEREDATE " & strN & "varchar (14) NULL DEFAULT '' , "
	strSql = strSql & "M_LASTPOSTDATE " & strN & "varchar (14) NULL DEFAULT '' , "
	strSql = strSql & "M_TITLE " & strN & "varchar (50) NULL DEFAULT '' , "
	strSql = strSql & "M_SUBSCRIPTION smallint NULL , "
	strSql = strSql & "M_HIDE_EMAIL smallint NULL DEFAULT 0, "
	strSql = strSql & "M_RECEIVE_EMAIL smallint NULL DEFAULT 1, "
	strSql = strSql & "M_LAST_IP " & strN & "varchar (15) NULL , "
	strSql = strSql & "M_IP " & strN & "varchar (15) NULL , "
	strSql = strSql & "M_FIRSTNAME " & strN & "varchar (100) NULL DEFAULT '' ,"
	strSql = strSql & "M_LASTNAME " & strN & "varchar (100) NULL DEFAULT '' ,"
	strSql = strSql & "M_OCCUPATION " & strN & "varchar (255) NULL DEFAULT '' ,"
	strSql = strSql & "M_SEX " & strN & "varchar (50) NULL DEFAULT '' , "
	strSql = strSql & "M_AGE " & strN & "varchar (10) NULL DEFAULT '' , "
	strSql = strSql & "M_DOB " & strN & "varchar (8) NULL DEFAULT '' , "
	strSql = strSql & "M_HOBBIES " & strN & "text NULL DEFAULT '' , "
	strSql = strSql & "M_LNEWS " & strN & "text NULL DEFAULT '' , "
	strSql = strSql & "M_QUOTE " & strN & "text NULL DEFAULT '' , "
	strSql = strSql & "M_BIO " & strN & "text NULL DEFAULT '' , "
	strSql = strSql & "M_MARSTATUS " & strN & "varchar (100) NULL DEFAULT '' ,"
	strSql = strSql & "M_LINK1 " & strN & "varchar (255) NULL DEFAULT '' ,"
	strSql = strSql & "M_LINK2 " & strN & "varchar (255) NULL DEFAULT '' , "
	strSql = strSql & "M_CITY " & strN & "varchar (100) NULL DEFAULT '' , "
	strSql = strSql & "M_STATE " & strN & "varchar (100) NULL DEFAULT '' , "
	strSql = strSql & "M_PHOTO_URL " & strN & "varchar (255) NULL DEFAULT '' , "
	strSql = strSql & "M_KEY " & strN & "varchar (32) NULL DEFAULT '' , "
	strSql = strSql & "M_NEWEMAIL " & strN & "varchar (50) NULL DEFAULT '' , "
	strSql = strSql & "M_PWKEY " & strN & "varchar (32) NULL DEFAULT '' , "
	strSql = strSql & "M_APPROVE smallint NULL DEFAULT '' , "
	strSql = strSql & "M_SHA256 smallint NULL DEFAULT 1 )"

	my_Conn.Execute (strSql),,adCmdText + adExecuteNoRecords
	ChkDBInstall()

	strSql = "CREATE TABLE " & strTablePrefix & "MODERATOR ( "
	strSql = strSql & "MOD_ID int IDENTITY (1, 1) NOT NULL , "
	strSql = strSql & "FORUM_ID int NULL , "
	strSql = strSql & "MEMBER_ID int NULL , "
	strSql = strSql & "MOD_TYPE smallint NULL )"

	my_Conn.Execute (strSql),,adCmdText + adExecuteNoRecords
	ChkDBInstall()

	strSql = "CREATE TABLE " & strTablePrefix & "REPLY ( "
	strSql = strSql & "CAT_ID int NOT NULL , "
	strSql = strSql & "FORUM_ID int NOT NULL , "
	strSql = strSql & "TOPIC_ID int NOT NULL , "
	strSql = strSql & "REPLY_ID int IDENTITY (1, 1) NOT NULL , "
	strSql = strSql & "R_MAIL smallint NULL , "
	strSql = strSql & "R_AUTHOR int NULL , "
	strSql = strSql & "R_MESSAGE " & strN & "text NULL , "
	strSql = strSql & "R_DATE " & strN & "varchar (14) NULL , "
	strSql = strSql & "R_IP " & strN & "varchar (15) NULL, "
	strSql = strSql & "R_STATUS smallint NULL CONSTRAINT " & strTablePrefix & "SnitzC1017 DEFAULT 0 , "
	strSql = strSql & "R_LAST_EDIT " & strN & "varchar (14) NULL , " 
	strSql = strSql & "R_LAST_EDITBY int NULL , "
	strSql = strSql & "R_SIG smallint NULL ) "

	my_Conn.Execute (strSql),,adCmdText + adExecuteNoRecords
	ChkDBInstall()

	strSql = "CREATE TABLE " & strTablePrefix & "TOPICS ( "
	strSql = strSql & "CAT_ID int NOT NULL , "
	strSql = strSql & "FORUM_ID int NOT NULL , "
	strSql = strSql & "TOPIC_ID int IDENTITY (1, 1) NOT NULL , "
	strSql = strSql & "T_STATUS smallint NULL , "
	strSql = strSql & "T_MAIL smallint NULL , "
	strSql = strSql & "T_SUBJECT " & strN & "varchar (100) NULL , "
	strSql = strSql & "T_MESSAGE " & strN & "text NULL , "
	strSql = strSql & "T_AUTHOR int NULL , "
	strSql = strSql & "T_REPLIES int NULL , "
	strSql = strSql & "T_UREPLIES int NULL , "
	strSql = strSql & "T_VIEW_COUNT int NULL , "
	strSql = strSql & "T_LAST_POST " & strN & "varchar (14) NULL , "
	strSql = strSql & "T_DATE " & strN & "varchar (14) NULL , "
	strSql = strSql & "T_LAST_POSTER int NULL , "
	strSql = strSql & "T_IP " & strN & "varchar (15) NULL , " 
	strSql = strSql & "T_LAST_POST_AUTHOR int NULL , "
	strSql = strSql & "T_LAST_POST_REPLY_ID int NULL , "
	strSql = strSql & "T_ARCHIVE_FLAG int NULL , " 
	strSql = strSql & "T_LAST_EDIT " & strN & "varchar (14) NULL , "
123

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -