📄 inc_create_forum_mysql.asp
字号:
strSql = strSql & "T_UREPLIES int (11) DEFAULT '0' , "
strSql = strSql & "T_VIEW_COUNT int (11) DEFAULT '0' , "
strSql = strSql & "T_LAST_POST VARCHAR (14) DEFAULT '' , "
strSql = strSql & "T_DATE VARCHAR (14) DEFAULT '', "
strSql = strSql & "T_LAST_POSTER int (11) DEFAULT '1', "
strSql = strSql & "T_IP VARCHAR (15) DEFAULT '000.000.000.000', "
strSql = strSql & "T_LAST_POST_AUTHOR int (11) DEFAULT '1', "
strSql = strSql & "T_LAST_POST_REPLY_ID int (11) DEFAULT '0', "
strSql = strSql & "T_ARCHIVE_FLAG int (11) DEFAULT '1', "
strSql = strSql & "T_LAST_EDIT VARCHAR (14) , "
strSql = strSql & "T_LAST_EDITBY int (11) , "
strSql = strSql & "T_STICKY smallint (6) DEFAULT '0', "
strSql = strSql & "T_SIG smallint (6) DEFAULT '0', "
strSql = strSql & "PRIMARY KEY (CAT_ID, FORUM_ID, TOPIC_ID), "
strSql = strSql & "KEY " & strTablePrefix & "TOPIC_CATFORTOP(CAT_ID,FORUM_ID,TOPIC_ID), "
strSql = strSql & "KEY " & strTablePrefix & "TOPIC_CAT_ID(CAT_ID), "
strSql = strSql & "KEY " & strTablePrefix & "TOPIC_FORUM_ID(FORUM_ID), "
strSql = strSql & "KEY " & strTablePrefix & "TOPIC_TOPIC_ID (TOPIC_ID) )"
my_Conn.Execute (strSql),,adCmdText + adExecuteNoRecords
ChkDBInstall()
strSql = "DROP TABLE IF EXISTS " & strTablePrefix & "TOTALS "
my_Conn.Execute (strSql),,adCmdText + adExecuteNoRecords
ChkDBInstall()
strSql = "CREATE TABLE " & strTablePrefix & "TOTALS ( "
strSql = strSql & "COUNT_ID smallint (6) NOT NULL auto_increment, "
strSql = strSql & "P_COUNT int (11) DEFAULT '0' , "
strSql = strSql & "T_COUNT int (11) DEFAULT '0' , "
strSql = strSql & "P_A_COUNT int (11) DEFAULT '0' , "
strSql = strSql & "T_A_COUNT int (11) DEFAULT '0' , "
strSql = strSql & "U_COUNT int (11) DEFAULT '0' , "
strSql = strSql & "PRIMARY KEY (COUNT_ID), "
strSql = strSql & "KEY " & strTablePrefix & "TOTALS_COUNT_ID (COUNT_ID) ) "
my_Conn.Execute (strSql),,adCmdText + adExecuteNoRecords
ChkDBInstall()
strSql = "DROP TABLE IF EXISTS " & strTablePrefix & "ALLOWED_MEMBERS "
my_Conn.Execute (strSql),,adCmdText + adExecuteNoRecords
ChkDBInstall()
strSql = "CREATE TABLE " & strTablePrefix & "ALLOWED_MEMBERS ("
strSql = strSql & "MEMBER_ID INT (11) NOT NULL, FORUM_ID smallint (6) NOT NULL , "
strSql = strSql & "PRIMARY KEY (MEMBER_ID, FORUM_ID) )"
my_Conn.Execute (strSql),,adCmdText + adExecuteNoRecords
ChkDBInstall()
strSql = "DROP TABLE IF EXISTS " & strTablePrefix & "SUBSCRIPTIONS "
my_Conn.Execute (strSql),,adCmdText + adExecuteNoRecords
ChkDBInstall()
strSql = "CREATE TABLE " & strTablePrefix & "SUBSCRIPTIONS ("
strSql = strSql & "SUBSCRIPTION_ID INT (11) NOT NULL auto_increment, MEMBER_ID INT NOT NULL, "
strSql = strSql & "CAT_ID INT NOT NULL, TOPIC_ID INT NOT NULL, FORUM_ID INT NOT NULL, "
strSql = strSql & "KEY " & strTablePrefix & "SUBSCRIPTIONS_SUB_ID(SUBSCRIPTION_ID)) "
my_Conn.Execute (strSql),,adCmdText + adExecuteNoRecords
ChkDBInstall()
strSql = "DROP TABLE IF EXISTS " & strTablePrefix & "A_TOPICS "
my_Conn.Execute (strSql),,adCmdText + adExecuteNoRecords
ChkDBInstall()
strSql = "CREATE TABLE " & strTablePrefix & "A_TOPICS ( "
strSql = strSql & "CAT_ID int (11) NOT NULL , "
strSql = strSql & "FORUM_ID int (11) NOT NULL , "
strSql = strSql & "TOPIC_ID int (11) NOT NULL, "
strSql = strSql & "T_STATUS smallint (6) , "
strSql = strSql & "T_MAIL smallint (6) , "
strSql = strSql & "T_SUBJECT VARCHAR (100) , "
strSql = strSql & "T_MESSAGE text , "
strSql = strSql & "T_AUTHOR int (11) , "
strSql = strSql & "T_REPLIES int (11) , "
strSql = strSql & "T_UREPLIES int (11) , "
strSql = strSql & "T_VIEW_COUNT int (11) , "
strSql = strSql & "T_LAST_POST VARCHAR (14) , "
strSql = strSql & "T_DATE VARCHAR (14) , "
strSql = strSql & "T_LAST_POSTER int (11) , "
strSql = strSql & "T_IP VARCHAR (15) , "
strSql = strSql & "T_LAST_POST_AUTHOR int (11) , "
strSql = strSql & "T_LAST_POST_REPLY_ID int (11) , "
strSql = strSql & "T_ARCHIVE_FLAG int (11) , "
strSql = strSql & "T_LAST_EDIT VARCHAR (14) , "
strSql = strSql & "T_LAST_EDITBY int (11) , "
strSql = strSql & "T_STICKY smallint (6) , "
strSql = strSql & "T_SIG smallint (6) , "
strSql = strSql & "PRIMARY KEY (CAT_ID, FORUM_ID, TOPIC_ID), "
strSql = strSql & "KEY " & strTablePrefix & "A_TOPIC_CATFORTOP(CAT_ID,FORUM_ID,TOPIC_ID), "
strSql = strSql & "KEY " & strTablePrefix & "A_TOPIC_CAT_ID(CAT_ID), "
strSql = strSql & "KEY " & strTablePrefix & "A_TOPIC_FORUM_ID(FORUM_ID), "
strSql = strSql & "KEY " & strTablePrefix & "A_TOPIC_TOPIC_ID (TOPIC_ID) )"
my_Conn.Execute (strSql),,adCmdText + adExecuteNoRecords
ChkDBInstall()
strSql = "DROP TABLE IF EXISTS " & strTablePrefix & "A_REPLY "
my_Conn.Execute (strSql),,adCmdText + adExecuteNoRecords
ChkDBInstall()
strSql = "CREATE TABLE " & strTablePrefix & "A_REPLY ( "
strSql = strSql & "CAT_ID int (11) NOT NULL , "
strSql = strSql & "FORUM_ID int (11) NOT NULL , "
strSql = strSql & "TOPIC_ID int (11) NOT NULL , "
strSql = strSql & "REPLY_ID int (11) NOT NULL, "
strSql = strSql & "R_STATUS smallint (6) , "
strSql = strSql & "R_MAIL smallint (6) , "
strSql = strSql & "R_AUTHOR int (11) , "
strSql = strSql & "R_MESSAGE text , "
strSql = strSql & "R_DATE VARCHAR (14) , "
strSql = strSql & "R_IP VARCHAR (15) , "
strSql = strSql & "R_LAST_EDIT VARCHAR (14) , "
strSql = strSql & "R_LAST_EDITBY int (11) , "
strSql = strSql & "R_SIG smallint (6) , "
strSql = strSql & "PRIMARY KEY (CAT_ID, FORUM_ID, TOPIC_ID, REPLY_ID), "
strSql = strSql & "KEY " & strTablePrefix & "A_REPLY_CATFORTOPREPL(CAT_ID,FORUM_ID,TOPIC_ID, REPLY_ID), "
strSql = strSql & "KEY " & strTablePrefix & "A_REPLY_REP_ID(REPLY_ID), "
strSql = strSql & "KEY " & strTablePrefix & "A_REPLY_CAT_ID(CAT_ID), "
strSql = strSql & "KEY " & strTablePrefix & "A_REPLY_FORUM_ID(FORUM_ID), "
strSql = strSql & "KEY " & strTablePrefix & "A_REPLY_TOPIC_ID (TOPIC_ID) )"
my_Conn.Execute (strSql),,adCmdText + adExecuteNoRecords
ChkDBInstall()
strSql = "DROP TABLE IF EXISTS " & strFilterTablePrefix & "BADWORDS "
my_Conn.Execute (strSql),,adCmdText + adExecuteNoRecords
ChkDBInstall()
strSql = "CREATE TABLE " & strFilterTablePrefix & "BADWORDS ( "
strSql = strSql & "B_ID int (11) NOT NULL auto_increment , "
strSql = strSql & "B_BADWORD VARCHAR (50), "
strSql = strSql & "B_REPLACE VARCHAR (50), "
strSql = strSql & "PRIMARY KEY (B_ID)) "
my_Conn.Execute (strSql),,adCmdText + adExecuteNoRecords
ChkDBInstall()
strSql = "DROP TABLE IF EXISTS " & strFilterTablePrefix & "NAMEFILTER "
my_Conn.Execute (strSql),,adCmdText + adExecuteNoRecords
ChkDBInstall()
strSql = "CREATE TABLE " & strFilterTablePrefix & "NAMEFILTER ( "
strSql = strSql & "N_ID int (11) NOT NULL auto_increment , "
strSql = strSql & "N_NAME VARCHAR (75), "
strSql = strSql & "PRIMARY KEY (N_ID)) "
my_Conn.Execute (strSql),,adCmdText + adExecuteNoRecords
ChkDBInstall()
strSql = "DROP TABLE IF EXISTS " & strTablePrefix & "GROUP_NAMES "
my_Conn.Execute (strSql),,adCmdText + adExecuteNoRecords
ChkDBInstall()
strSql = "CREATE TABLE " & strTablePrefix & "GROUP_NAMES ( "
strSql = strSql & "GROUP_ID int (11) NOT NULL auto_increment , "
strSql = strSql & "GROUP_NAME VARCHAR (50) NULL , "
strSql = strSql & "GROUP_DESCRIPTION VARCHAR (255) NULL , "
strSql = strSql & "GROUP_ICON VARCHAR (255) NULL , "
strSql = strSql & "GROUP_IMAGE VARCHAR (255) NULL , "
strSql = strSql & "PRIMARY KEY (GROUP_ID)) "
my_Conn.Execute (strSql),,adCmdText + adExecuteNoRecords
ChkDBInstall()
strSql = "DROP TABLE IF EXISTS " & strTablePrefix & "GROUPS "
my_Conn.Execute (strSql),,adCmdText + adExecuteNoRecords
ChkDBInstall()
strSql = "CREATE TABLE " & strTablePrefix & "GROUPS ( "
strSql = strSql & "GROUP_KEY int (11) NOT NULL auto_increment , "
strSql = strSql & "GROUP_ID int (11) NULL , "
strSql = strSql & "GROUP_CATID int (11) NULL , "
strSql = strSql & "PRIMARY KEY (GROUP_KEY)) "
my_Conn.Execute (strSql),,adCmdText + adExecuteNoRecords
ChkDBInstall()
'#####################################################
'## Insert Default Configuration Data Into Database ##
'#####################################################
%>
<!--#INCLUDE FILE="inc_create_forum_configvalues.asp"-->
<%
'#######################################
'## Insert Default Data Into Database ##
'#######################################
strSql = "INSERT INTO " & strTablePrefix & "CATEGORY(CAT_STATUS, CAT_NAME) VALUES(1, 'Snitz Forums 2000')"
my_Conn.Execute (strSql),,adCmdText + adExecuteNoRecords
ChkDBInstall()
strSql = "INSERT INTO " & strMemberTablePrefix & "MEMBERS (M_STATUS, M_NAME, M_USERNAME, M_PASSWORD, M_EMAIL, M_COUNTRY, "
strSql = strSql & "M_HOMEPAGE, M_LINK1, M_LINK2, M_PHOTO_URL, M_SIG, M_VIEW_SIG, M_DEFAULT_VIEW, M_LEVEL, M_AIM, M_ICQ, M_MSN, M_YAHOO, "
strSql = strSql & "M_POSTS, M_DATE, M_LASTHEREDATE, M_LASTPOSTDATE, M_TITLE, M_SUBSCRIPTION, "
strSql = strSql & "M_HIDE_EMAIL, M_RECEIVE_EMAIL, M_LAST_IP, M_IP) "
strSql = strSql & "VALUES(1, '" & strAdminName & "', '" & strAdminName & "', '" & strAdminPassword & "', 'yourmail@server.com', ' ', ' ', ' ', ' ', ' ', ' ', 1, 1, 3, ' ', ' ', ' ', ' ', "
strSql = strSql & "1, '" & strCurrentDateTime & "', '" & strlhDateTime & "', '" & strCurrentDateTime & "', 'Forum Admin', '0', '0', 1, '000.000.000.000', '000.000.000.000')"
my_Conn.Execute (strSql),,adCmdText + adExecuteNoRecords
ChkDBInstall()
strSql = "INSERT INTO " & strTablePrefix & "FORUM(CAT_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_LAST_POST_TOPIC_ID, F_LAST_POST_REPLY_ID) "
strSql = strSql & "VALUES(1, 1, '0', 'Testing Forums', '', 'This forum gives you a chance to become more familiar with how this product responds to different features and keeps testing in one place instead of posting tests all over. Happy Posting! [:)]', "
strSql = strSql & "1, 1, '" & strCurrentDateTime & "', '', '0', '0', '000.000.000.000', 1, 1, 0) "
my_Conn.Execute (strSql),,adCmdText + adExecuteNoRecords
ChkDBInstall()
strSql = "INSERT INTO " & strTablePrefix & "TOPICS (CAT_ID, FORUM_ID, T_STATUS, T_MAIL, T_SUBJECT, T_MESSAGE, T_AUTHOR, "
strSql = strSql & "T_REPLIES, T_UREPLIES, T_VIEW_COUNT, T_LAST_POST, T_DATE, T_LAST_POSTER, T_IP, T_LAST_POST_AUTHOR, T_LAST_POST_REPLY_ID, T_ARCHIVE_FLAG) "
strSql = strSql & "VALUES(1, 1, 1, '0', 'Welcome to Snitz Forums 2000', 'Thank you for downloading the Snitz Forums 2000. We hope you enjoy this great tool to support your organization!" & CHR(13) & CHR(10) & CHR(13) & CHR(10) &"Many thanks go out to John Penfold <asp@asp-dev.com> and Tim Teal <tteal@tealnet.com> for the original source code and to all the people of Snitz Forums 2000 at http://forum.snitz.com for continued support of this product.', "
strSql = strSql & "1, '0', '0', '0', '" & strCurrentDateTime & "', '" & strCurrentDateTime & "', '0', '000.000.000.000', 1, 0, 1)"
my_Conn.Execute (strSql),,adCmdText + adExecuteNoRecords
ChkDBInstall()
strSql = "INSERT INTO " & strTablePrefix & "TOTALS (COUNT_ID, P_COUNT, T_COUNT, U_COUNT) "
strSql = strSql & "VALUES(1,1,1,1)"
my_Conn.Execute (strSql),,adCmdText + adExecuteNoRecords
ChkDBInstall()
strSql = "INSERT INTO " & strFilterTablePrefix & "BADWORDS (B_BADWORD, B_REPLACE) VALUES ('fuck','****')"
my_Conn.Execute (strSql),,adCmdText + adExecuteNoRecords
ChkDBInstall()
strSql = "INSERT INTO " & strFilterTablePrefix & "BADWORDS (B_BADWORD, B_REPLACE) VALUES ('wank','****')"
my_Conn.Execute (strSql),,adCmdText + adExecuteNoRecords
ChkDBInstall()
strSql = "INSERT INTO " & strFilterTablePrefix & "BADWORDS (B_BADWORD, B_REPLACE) VALUES ('shit','****')"
my_Conn.Execute (strSql),,adCmdText + adExecuteNoRecords
ChkDBInstall()
strSql = "INSERT INTO " & strFilterTablePrefix & "BADWORDS (B_BADWORD, B_REPLACE) VALUES ('pussy','*****')"
my_Conn.Execute (strSql),,adCmdText + adExecuteNoRecords
ChkDBInstall()
strSql = "INSERT INTO " & strFilterTablePrefix & "BADWORDS (B_BADWORD, B_REPLACE) VALUES ('cunt','****')"
my_Conn.Execute (strSql),,adCmdText + adExecuteNoRecords
ChkDBInstall()
strSql = "INSERT INTO " & strTablePrefix & "GROUP_NAMES (GROUP_NAME,GROUP_DESCRIPTION) VALUES ('All Categories you have access to','All Categories you have access to')"
my_Conn.Execute (strSql),,adCmdText + adExecuteNoRecords
ChkDBInstall()
strSql = "INSERT INTO " & strTablePrefix & "GROUP_NAMES (GROUP_NAME,GROUP_DESCRIPTION) VALUES ('Default Categories','Default Categories')"
my_Conn.Execute (strSql),,adCmdText + adExecuteNoRecords
ChkDBInstall()
strSql = "INSERT INTO " & strTablePrefix & "GROUPS (GROUP_ID, GROUP_CATID) VALUES (2,1)"
my_Conn.Execute (strSql),,adCmdText + adExecuteNoRecords
ChkDBInstall()
on error goto 0
end if
sub ChkDBInstall()
for counter = 0 to my_Conn.Errors.Count -1
ConnErrorNumber = my_Conn.Errors(counter).Number
ConnErrorDescription = my_Conn.Errors(counter).Description
if ConnErrorNumber <> 0 or Err.Number <> 0 then
Err_Msg = "<tr><td bgColor=""red"" align=""left"" width=""30%""><font face=""Verdana, Arial, Helvetica"" size=""2""><b>Error: " & ConnErrorNumber & "</b></font></td>"
Err_Msg = Err_Msg & "<td bgColor=""lightsteelblue"" align=""left""><font face=""Verdana, Arial, Helvetica"" size=""2"">" & ConnErrorDescription & "</font></td></tr>"
Err_Msg = Err_Msg & "<tr><td bgColor=""red"" align=""left"" width=""30%""><font face=""Verdana, Arial, Helvetica"" size=""2""><b>strSql: </b></font></td>"
Err_Msg = Err_Msg & "<td bgColor=""lightsteelblue"" align=""left""><font face=""Verdana, Arial, Helvetica"" size=""2"">" & strSql & "</font></td></tr>"
Response.Write(Err_Msg)
intCriticalErrors = intCriticalErrors + 1
end if
next
my_Conn.Errors.Clear
end sub
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -