📄 inc_create_forum_mysql.asp
字号:
strSql = strSql & "F_IP VARCHAR (50) DEFAULT '000.000.000.000' , "
strSql = strSql & "F_LAST_POST_AUTHOR int (11) DEFAULT '1' , "
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
ChkDBInstall()
strSql = "DROP TABLE IF EXISTS " & strMemberTablePrefix & "MEMBERS "
my_Conn.Execute strSql
ChkDBInstall()
strSql = "CREATE TABLE " & strMemberTablePrefix & "MEMBERS ( "
strSql = strSql & "MEMBER_ID int (11) DEFAULT '' 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 (25) DEFAULT '' , "
strSql = strSql & "M_EMAIL VARCHAR (50) DEFAULT '' , "
strSql = strSql & "M_COUNTRY VARCHAR (20) DEFAULT '' , "
strSql = strSql & "M_HOMEPAGE VARCHAR (50) DEFAULT '' , "
strSql = strSql & "M_SIG VARCHAR (255) DEFAULT '' , "
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_YAHOO VARCHAR (150) DEFAULT '' , "
strSql = strSql & "M_ICQ VARCHAR (150) DEFAULT '' , "
strSql = strSql & "M_POSTS int (11) DEFAULT '0' , "
strSql = strSql & "M_DATE VARCHAR (50) DEFAULT '' , "
strSql = strSql & "M_LASTHEREDATE VARCHAR (50) DEFAULT '' , "
strSql = strSql & "M_LASTPOSTDATE VARCHAR (50) 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 '0' , "
strSql = strSql & "M_LAST_IP VARCHAR (50) DEFAULT '000.000.000.000' , "
strSql = strSql & "M_IP VARCHAR (50) 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_HOBBIES TEXT , "
strSql = strSql & "M_LNEWS TEXT , "
strSql = strSql & "M_QUOTE TEXT , "
strSql = strSql & "M_BIO TEXT , "
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 & "PRIMARY KEY (MEMBER_ID), "
strSql = strSql & "KEY " & strMemberTablePrefix & "MEMBERS_MEMBER_ID (MEMBER_ID) ) "
my_Conn.Execute strSql
ChkDBInstall()
strSql = "DROP TABLE IF EXISTS " & strTablePrefix & "MODERATOR "
my_Conn.Execute strSql
ChkDBInstall()
strSql = "CREATE TABLE " & strTablePrefix & "MODERATOR ( "
strSql = strSql & "MOD_ID int (11) DEFAULT '' 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
ChkDBInstall()
strSql = "DROP TABLE IF EXISTS " & strTablePrefix & "REPLY "
my_Conn.Execute strSql
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) DEFAULT '' 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 (50) DEFAULT '' , "
strSql = strSql & "R_IP VARCHAR (50) DEFAULT '000.000.000.000', "
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
ChkDBInstall()
strSql = "DROP TABLE IF EXISTS " & strTablePrefix & "TOPICS "
my_Conn.Execute strSql
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) DEFAULT '' 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' , "
strSql = strSql & "T_VIEW_COUNT int (11) DEFAULT '0' , "
strSql = strSql & "T_LAST_POST VARCHAR (50) DEFAULT '' , "
strSql = strSql & "T_DATE VARCHAR (50) DEFAULT '', "
strSql = strSql & "T_LAST_POSTER int (11) DEFAULT '1', "
strSql = strSql & "T_IP VARCHAR (50) DEFAULT '000.000.000.000', "
strSql = strSql & "T_LAST_POST_AUTHOR int (11) DEFAULT '1', "
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
ChkDBInstall()
strSql = "DROP TABLE IF EXISTS " & strTablePrefix & "TOTALS "
my_Conn.Execute strSql
ChkDBInstall()
strSql = "CREATE TABLE " & strTablePrefix & "TOTALS ( "
strSql = strSql & "COUNT_ID smallint (6) DEFAULT '' NOT NULL auto_increment, "
strSql = strSql & "P_COUNT int (11) DEFAULT '0' , "
strSql = strSql & "T_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
ChkDBInstall()
strSql = "DROP TABLE IF EXISTS " & strTablePrefix & "ALLOWED_MEMBERS "
my_Conn.Execute strSql
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
ChkDBInstall()
strSql = "INSERT INTO " & strTablePrefix & "CONFIG (C_STRVERSION) VALUES('" & strVersion & "') "
my_Conn.Execute strSql
ChkDBInstall()
strSql = "INSERT INTO " & strTablePrefix & "CATEGORY(CAT_STATUS, CAT_NAME) VALUES(1, 'Snitz Forums 2000')"
my_Conn.Execute strSql
ChkDBInstall()
strSql = "INSERT INTO " & strMemberTablePrefix & "MEMBERS (M_STATUS, M_NAME, M_USERNAME, M_PASSWORD, M_EMAIL, M_COUNTRY, "
strSql = strSql & "M_HOMEPAGE, M_SIG, M_DEFAULT_VIEW, M_LEVEL, M_AIM, M_YAHOO, M_ICQ, "
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, 'Admin', 'Admin', 'admin', 'yourmail@server.com', ' ', ' ', ' ', 1, 3, ' ', ' ', ' ', "
strSql = strSql & " 1, '20001119000000', '20001119000000', '20001119000000', 'Forum Admin', '0', '0', 1, '000.000.000.000', '000.000.000.000')"
my_Conn.Execute strSql
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_USERLIST, F_PRIVATEFORUMS, F_TYPE, F_IP, F_LAST_POST_AUTHOR) "
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! <img src=icon_smile.gif border=0 align=middle>', "
strSql = strSql & " 1, 1, '20001119000000', '', '', '0', '0', '000.000.000.000', 1) "
my_Conn.Execute strSql
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_VIEW_COUNT, T_LAST_POST, T_DATE, T_LAST_POSTER, T_IP, T_LAST_POST_AUTHOR) "
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', '20001119000000', '20001119000000', '0', '000.000.000.000', 1)"
my_Conn.Execute strSql
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
ChkDBInstall()
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 then
Err_Msg = "<tr><td bgColor=red align=""left"" width=""30%""><font face=""宋体, Arial, Helvetica"" size=""2""><b>Error: " & ConnErrorNumber & "</b></font></td>"
Err_Msg = Err_Msg & "<td bgColor=navyblue align=""left""><font face=""宋体, Arial, Helvetica"" size=""2"">" & ConnErrorDescription & "</font></td></tr>"
Err_Msg = Err_Msg & "<tr><td bgColor=red align=""left"" width=""30%""><font face=""宋体, Arial, Helvetica"" size=""2""><b>strSql: </b></font></td>"
Err_Msg = Err_Msg & "<td bgColor=navyblue align=""left""><font face=""宋体, 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 + -