inc_create_forum_mysql.asp

一个不错的ASP论坛源码

<%
'########## Snitz Forums 2000 Version 3.1 SR4 ####################
'#                                                               #
'#  汉化修改: 资源搜罗站                                         #
'#  电子邮件: [e-mail]                                     #
'#  主页地址: http://www.sdsea.com                               #
'#            http://www.99ss.net                                #
'#            http://www.cdown.net                               #
'#	     http://www.wzdown.com                               #
'#	     http://www.13888.net                                #
'#  论坛地址:http://ubb.yesky.net                                #
'#  最后修改日期: 2001/03/12    中文版本：Version 3.1 SR4        #
'#################################################################
'# 原始来源                                                      #
'# Snitz Forums 2000 Version 3.1 SR4                             #
'# Copyright 2000 http://forum.snitz.com - All Rights Reserved   #
'#################################################################
'#【版权声明】                                                   #
'#                                                               #
'# 本软体为共享软体(shareware)提供个人网站免费使用，请勿非法修改,#
'# 转载，散播，或用于其他图利行为，并请勿删除版权声明。          #
'# 如果您的网站正式起用了这个脚本，请您通知我们，以便我们能够知晓#
'# 如果可能，请在您的网站做上我们的链接，希望能给予合作。谢谢！  #
'#################################################################
'# 请您尊重我们的劳动和版权，不要删除以上的版权声明部分，谢谢合作#
'# 如有任何问题请到我们的论坛告诉我们                            #
'#################################################################

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 = my_conn.Errors(counter).Number
	if ConnErrorNumber <> 0 then 
		
		Response.write ConnErrorNumber & " : " & my_conn.Errors(counter).Description & "<br>" 
		
	end if
	my_conn.Errors.Clear 
next
	
my_Conn.Errors.Clear
on error resume next

strSql = "DROP TABLE IF EXISTS " & strTablePrefix & "CATEGORY "

my_Conn.Execute strSql
ChkDBInstall()

strSql = "CREATE TABLE " & strTablePrefix & "CATEGORY ( "
strSql = strSql & "CAT_ID INT (11) DEFAULT '' NOT NULL auto_increment, "
strSql = strSql & "CAT_STATUS SMALLINT (6) DEFAULT '1' NOT NULL , "
strSql = strSql & "CAT_NAME VARCHAR (100),  "
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
ChkDBInstall()

strSql = "DROP TABLE IF EXISTS " & strTablePrefix & "CONFIG "

my_Conn.Execute strSql
ChkDBInstall()

strSql = "CREATE TABLE " & strTablePrefix & "CONFIG ("
strSql = strSql & "CONFIG_ID INT (11) DEFAULT '' NOT NULL auto_increment , "
strSql = strSql & "C_STRVERSION	VARCHAR (50) DEFAULT '" & strNewVersion & "' , "
strSql = strSql & "C_STRFORUMTITLE VARCHAR (255) DEFAULT 'Snitz Forums 2000' , "
strSql = strSql & "C_STRCOPYRIGHT VARCHAR (50) DEFAULT '&copy; 2000 Snitz Communications' , "
strSql = strSql & "C_STRTITLEIMAGE VARCHAR (255) DEFAULT  'logo_snitz_forums_2000.gif' , "
strSql = strSql & "C_STRHOMEURL VARCHAR (255) DEFAULT  '../' , "
strSql = strSql & "C_STRFORUMURL VARCHAR (255) DEFAULT  'http://snitz.forum.com/forum/' , "
strSql = strSql & "C_STRAUTHTYPE VARCHAR (50) DEFAULT  'db' , "
strSql = strSql & "C_STREMAIL smallint (6) DEFAULT  '1' , "
strSql = strSql & "C_STRUNIQUEEMAIL smallint (6) DEFAULT  '1' , "
strSql = strSql & "C_STRMAILMODE VARCHAR (100) DEFAULT  'cdonts' , "
strSql = strSql & "C_STRMAILSERVER VARCHAR (255) DEFAULT  'your.mailserver.com' , "
strSql = strSql & "C_STRSENDER VARCHAR (255) DEFAULT  '[e-mail]' , "
strSql = strSql & "C_STRSETCOOKIETOFORUM smallint (6) DEFAULT '1' , "
strSql = strSql & "C_STRDATETYPE VARCHAR (50) DEFAULT  'mdy' , "
strSql = strSql & "C_STRTIMETYPE VARCHAR (50) DEFAULT  '24' , "
strSql = strSql & "C_STRTIMEADJUSTLOCATION VARCHAR (50) DEFAULT  '0' , "
strSql = strSql & "C_STRTIMEADJUST int (11) DEFAULT  '0' , "
strSql = strSql & "C_STRMOVETOPICMODE smallint (6) DEFAULT  '1' , "
strSql = strSql & "C_STRPRIVATEFORUMS smallint (6) DEFAULT  '0' , "
strSql = strSql & "C_STRSHOWMODERATORS smallint (6) DEFAULT '1' , "
strSql = strSql & "C_STRSHOWRANK smallint (6) DEFAULT '1' , "
strSql = strSql & "C_STRHIDEEMAIL smallint (6) DEFAULT '0' , "
strSql = strSql & "C_STRIPLOGGING smallint (6) DEFAULT '1' , "
strSql = strSql & "C_STRALLOWFORUMCODE smallint (6) DEFAULT  '1', "
strSql = strSql & "C_STRIMGINPOSTS smallint (6) DEFAULT '0' , "
strSql = strSql & "C_STRALLOWHTML smallint (6) DEFAULT '0' , "
strSql = strSql & "C_STRSECUREADMIN smallint (6) DEFAULT '1' , "
strSql = strSql & "C_STRNOCOOKIES smallint (6) DEFAULT '0' , "
strSql = strSql & "C_STREDITEDBYDATE smallint (6) DEFAULT '1' , "
strSql = strSql & "C_STRHOTTOPIC smallint (6) DEFAULT '1' , "
strSql = strSql & "C_INTHOTTOPICNUM int (11) DEFAULT '20' , "
strSql = strSql & "C_STRHOMEPAGE smallint (6) DEFAULT '1' , "
strSql = strSql & "C_STRAIM smallint (6) DEFAULT '1' , "
strSql = strSql & "C_STRYAHOO smallint (6) DEFAULT '1' , "
strSql = strSql & "C_STRICQ smallint (6) DEFAULT '1' , "
strSql = strSql & "C_STRICONS smallint (6) DEFAULT '1' , "
strSql = strSql & "C_STRGFXBUTTONS smallint (6) DEFAULT '1' , "
strSql = strSql & "C_STRBADWORDFILTER smallint (6) DEFAULT '1' , "
strSql = strSql & "C_STRBADWORDS VARCHAR (255) DEFAULT 'fuck|wank|shit|pussy|cunt' , "
strSql = strSql & "C_STRDEFAULTFONTFACE VARCHAR (255) DEFAULT '宋体, Arial, Helvetica' , "
strSql = strSql & "C_STRDEFAULTFONTSIZE VARCHAR (50) DEFAULT '2' , "
strSql = strSql & "C_STRHEADERFONTSIZE VARCHAR (50) DEFAULT '4' , "
strSql = strSql & "C_STRFOOTERFONTSIZE VARCHAR (50) DEFAULT '1' , "
strSql = strSql & "C_STRPAGEBGCOLOR VARCHAR (50) DEFAULT 'white' , "
strSql = strSql & "C_STRDEFAULTFONTCOLOR VARCHAR (50) DEFAULT 'midnightblue' , "
strSql = strSql & "C_STRLINKCOLOR VARCHAR (50) DEFAULT 'darkblue' , "
strSql = strSql & "C_STRLINKTEXTDECORATION VARCHAR (50) DEFAULT 'underline' , "
strSql = strSql & "C_STRVISITEDLINKCOLOR VARCHAR (50) DEFAULT 'blue', "
strSql = strSql & "C_STRVISITEDTEXTDECORATION VARCHAR (50) DEFAULT 'underline'  , "
strSql = strSql & "C_STRACTIVELINKCOLOR VARCHAR (50) DEFAULT 'red' , "
strSql = strSql & "C_STRHOVERFONTCOLOR VARCHAR (50) DEFAULT 'red' , "
strSql = strSql & "C_STRHOVERTEXTDECORATION VARCHAR (50) DEFAULT 'underline' , "
strSql = strSql & "C_STRHEADCELLCOLOR VARCHAR (50) DEFAULT 'midnightblue' , "
strSql = strSql & "C_STRHEADFONTCOLOR VARCHAR (50) DEFAULT 'mintcream' , "
strSql = strSql & "C_STRCATEGORYCELLCOLOR VARCHAR (50) DEFAULT 'slateblue' , "
strSql = strSql & "C_STRCATEGORYFONTCOLOR VARCHAR (50) DEFAULT 'mintcream' , "
strSql = strSql & "C_STRFORUMFIRSTCELLCOLOR VARCHAR (50) DEFAULT 'whitesmoke' , "
strSql = strSql & "C_STRFORUMCELLCOLOR VARCHAR (50) DEFAULT 'whitesmoke' , "
strSql = strSql & "C_STRALTFORUMCELLCOLOR VARCHAR (50) DEFAULT 'gainsboro' , "
strSql = strSql & "C_STRFORUMFONTCOLOR VARCHAR (50) DEFAULT 'midnightblue' , "
strSql = strSql & "C_STRFORUMLINKCOLOR VARCHAR (50) DEFAULT 'darkblue' , "
strSql = strSql & "C_STRTABLEBORDERCOLOR VARCHAR (50) DEFAULT 'black' , "
strSql = strSql & "C_STRPOPUPTABLECOLOR VARCHAR (50) DEFAULT 'navyblue' , "
strSql = strSql & "C_STRPOPUPBORDERCOLOR VARCHAR (50) DEFAULT 'black' , "
strSql = strSql & "C_STRNEWFONTCOLOR VARCHAR (50) DEFAULT 'blue' , "
strSql = strSql & "C_STRTOPICWIDTHLEFT VARCHAR (10) DEFAULT '100' , "
strSql = strSql & "C_STRTOPICNOWRAPLEFT smallint (6) DEFAULT '1' , "
strSql = strSql & "C_STRTOPICWIDTHRIGHT VARCHAR (10) DEFAULT '100%' , "
strSql = strSql & "C_STRTOPICNOWRAPRIGHT smallint (6)  DEFAULT '0' , "
strSql = strSql & "C_STRRANKADMIN VARCHAR (50) DEFAULT 'Administrator' , "
strSql = strSql & "C_STRRANKMOD VARCHAR (50) DEFAULT 'Moderator' , "
strSql = strSql & "C_STRRANKLEVEL0 VARCHAR (50) DEFAULT 'Starting Member' , "
strSql = strSql & "C_STRRANKLEVEL1 VARCHAR (50) DEFAULT 'New Member',  "
strSql = strSql & "C_STRRANKLEVEL2 VARCHAR (50) DEFAULT 'Junior Member' , "
strSql = strSql & "C_STRRANKLEVEL3 VARCHAR (50) DEFAULT 'Average Member' , "
strSql = strSql & "C_STRRANKLEVEL4 VARCHAR (50) DEFAULT 'Senior Member' , "
strSql = strSql & "C_STRRANKLEVEL5 VARCHAR (50) DEFAULT 'Advanced Member' , "
strSql = strSql & "C_STRRANKCOLORADMIN VARCHAR (50)DEFAULT 'gold' , "
strSql = strSql & "C_STRRANKCOLORMOD VARCHAR (50) DEFAULT 'silver' , "
strSql = strSql & "C_STRRANKCOLOR0 VARCHAR (50) DEFAULT 'bronze' , "
strSql = strSql & "C_STRRANKCOLOR1 VARCHAR (50) DEFAULT 'bronze' , "
strSql = strSql & "C_STRRANKCOLOR2 VARCHAR (50) DEFAULT 'bronze' , "
strSql = strSql & "C_STRRANKCOLOR3 VARCHAR (50) DEFAULT 'bronze' , "
strSql = strSql & "C_STRRANKCOLOR4 VARCHAR (50) DEFAULT 'bronze' , "
strSql = strSql & "C_STRRANKCOLOR5 VARCHAR (50) DEFAULT 'bronze' , "
strSql = strSql & "C_INTRANKLEVEL0 smallint (6) DEFAULT '0' , "
strSql = strSql & "C_INTRANKLEVEL1 smallint (6) DEFAULT '50' , "
strSql = strSql & "C_INTRANKLEVEL2 smallint (6) DEFAULT '100' , "
strSql = strSql & "C_INTRANKLEVEL3 smallint (6) DEFAULT '500' , "
strSql = strSql & "C_INTRANKLEVEL4 smallint (6) DEFAULT '1000' , "
strSql = strSql & "C_INTRANKLEVEL5 smallint (6) DEFAULT '2000' , "
strSql = strSql & "C_STRSIGNATURES smallint (6) DEFAULT '1',   "
strSql = strSql & "C_STRSHOWSTATISTICS smallint (6) DEFAULT '1', "
strSql = strSql & "C_STRSHOWIMAGEPOWEREDBY smallint (6) DEFAULT '1', "
strSql = strSql & "C_STRLOGONFORMAIL smallint (6) DEFAULT '1', "
strSql = strSql & "C_STRSHOWPAGING smallint (6) DEFAULT '0', "
strSql = strSql & "C_STRSHOWTOPICNAV smallint (6) DEFAULT '0', "
strSql = strSql & "C_STRPAGESIZE smallint (6) DEFAULT '15', "
strSql = strSql & "C_STRPAGENUMBERSIZE smallint (6) DEFAULT '10', "
strSql = strSql & "C_STRFULLNAME smallint (6) DEFAULT '0', "
strSql = strSql & "C_STRPICTURE smallint (6) DEFAULT '0', "
strSql = strSql & "C_STRSEX smallint (6) DEFAULT '0', "
strSql = strSql & "C_STRCITY smallint (6) DEFAULT '0', "
strSql = strSql & "C_STRSTATE smallint (6) DEFAULT '0', "
strSql = strSql & "C_STRAGE smallint (6) DEFAULT '0', "
strSql = strSql & "C_STRCOUNTRY smallint (6) DEFAULT '0', "
strSql = strSql & "C_STROCCUPATION smallint (6) DEFAULT '0', "
strSql = strSql & "C_STRBIO smallint (6) DEFAULT '0', "
strSql = strSql & "C_STRHOBBIES smallint (6) DEFAULT '0', "
strSql = strSql & "C_STRLNEWS smallint (6) DEFAULT '0', "
strSql = strSql & "C_STRQUOTE smallint (6) DEFAULT '0', "
strSql = strSql & "C_STRMARSTATUS smallint (6) DEFAULT '0', "
strSql = strSql & "C_STRFAVLINKS smallint (6) DEFAULT '1', "
strSql = strSql & "C_STRRECENTTOPICS smallint (6) DEFAULT '0', "
strSql = strSql & "C_STRAUTOLOGON smallint (6) DEFAULT '0', "
strSql = strSql & "C_STRNTGROUPS smallint (6) DEFAULT '0', "
strSql = strSql & "PRIMARY KEY (CONFIG_ID)) "

my_Conn.Execute strSql
ChkDBInstall()

strSql = "DROP TABLE IF EXISTS " & strTablePrefix & "CONFIG_NEW "

my_Conn.Execute strSql
ChkDBInstall()

strSql = "CREATE TABLE " & strTablePrefix & "CONFIG_NEW ( "
strSql = strSql & "ID int (11) DEFAULT '' 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
ChkDBInstall()

strSql = "DROP TABLE IF EXISTS " & strTablePrefix & "FORUM "

my_Conn.Execute strSql
ChkDBInstall()

strSql = "CREATE TABLE " & strTablePrefix & "FORUM ( "
strSql = strSql & "CAT_ID int (11) DEFAULT '1' NOT NULL , "
strSql = strSql & "FORUM_ID smallint (6) DEFAULT '0' 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 VARCHAR (255) DEFAULT ' ' , "
strSql = strSql & "F_TOPICS int (11) DEFAULT '0' , "
strSql = strSql & "F_COUNT int (11) DEFAULT '0' , "
strSql = strSql & "F_LAST_POST VARCHAR (50) DEFAULT ' ' , "
strSql = strSql & "F_PASSWORD_NEW VARCHAR (255) DEFAULT ' ' , "
strSql = strSql & "F_USERLIST VARCHAR (255) DEFAULT ' ' , "
strSql = strSql & "F_PRIVATEFORUMS int (11) DEFAULT '0' , "
strSql = strSql & "F_TYPE smallint (6) DEFAULT '0' , "