upgrade_805.asp

闻名一时的bbsxp超快论坛系统现在放出最新版2008版本给希望装论坛的朋友借鉴安装调试

	"TotalPosts int Default 0 NOT NULL ,"&_
	"MostRecentPostDate datetime Default "&SqlNowString&" NOT NULL , "&_
	"DateCreated datetime Default "&SqlNowString&" NOT NULL"&_
	")"
	Conn.Execute(sql)
	
	Sql="CREATE TABLE ["&TablePrefix&"PostInTags] ("&_
	"TagID int Default 0 NOT NULL ,"&_
	"PostID int Default 0 NOT NULL"&_
	")"
	Conn.Execute(sql)

	'建立关联（关系的主键必须得是表中的主键）
	Sql="ALTER TABLE ["&TablePrefix&"PostInTags] ADD CONSTRAINT [FK_"&TablePrefix&"PostInTags_"&TablePrefix&"PostTags] FOREIGN KEY ([TagID]) REFERENCES ["&TablePrefix&"PostTags] ([TagID]) ON DELETE CASCADE ON UPDATE CASCADE"
	Conn.Execute(sql)

	
	'创建帖子编辑记录表
	Sql="CREATE TABLE ["&TablePrefix&"PostEditNotes] ("&_
	"EditNoteID int IDENTITY (1, 1) PRIMARY KEY NOT NULL ,"&_
	"PostID int Default 0 NOT NULL ,"&_
	"EditNotes nvarchar(255) NULL"&_
	")"
	Conn.Execute(sql)
	




	'将表"&TablePrefix&"PostRating的名称改为"&TablePrefix&"ThreadRating	Start
	Conn.Execute("select * into ["&TablePrefix&"ThreadRating] from ["&TablePrefix&"PostRating]")	'实现数据的拷贝
	Conn.Execute("ALTER TABLE ["&TablePrefix&"ThreadRating] ADD CONSTRAINT [FK_"&TablePrefix&"ThreadRating_"&TablePrefix&"Threads] FOREIGN KEY ([ThreadID]) REFERENCES ["&TablePrefix&"Threads] ([ThreadID]) ON DELETE CASCADE ON UPDATE CASCADE")	'建立关联
	If IsSqlDataBase=0 Then		'设置表的默认值
		conn.execute("alter table ["&TablePrefix&"ThreadRating] alter Rating int default 0")
		conn.execute("alter table ["&TablePrefix&"ThreadRating] alter DateCreated datetime default "&SqlNowString&"")
	else
		Conn.Execute("ALTER TABLE ["&TablePrefix&"ThreadRating] ADD CONSTRAINT [DF_"&TablePrefix&"ThreadRating_Rating] DEFAULT 0 FOR [Rating]")
		Conn.Execute("ALTER TABLE ["&TablePrefix&"ThreadRating] ADD CONSTRAINT [DF_"&TablePrefix&"ThreadRating_DateCreated] DEFAULT "&SqlNowString&" FOR [DateCreated]")
	End If
	Conn.Execute("drop table ["&TablePrefix&"PostRating]")	'删除表"&TablePrefix&"PostRating
	'将表"&TablePrefix&"PostRating的名称改为"&TablePrefix&"ThreadRating	End



	
	Sql="CREATE TABLE ["&TablePrefix&"FavoritePosts] ("&_
	"FavoriteID int IDENTITY (1, 1) PRIMARY KEY NOT NULL ,"&_
	"PostID int Default 0 NOT NULL ,"&_
	"OwnerUserName nvarchar(50) NOT NULL"&_
	")"
	Conn.Execute(sql)
	
	If Err Then
		Response.Write Err.Description
	else
		If IsSqlDataBase=0 then Conn.Execute("alter table ["&TablePrefix&"Posts] add constraint pk_add primary key (PostID)")	'设置PostID为主键
		'创建关联
		Sql="ALTER TABLE ["&TablePrefix&"PostEditNotes] ADD CONSTRAINT [FK_"&TablePrefix&"Posts_"&TablePrefix&"PostEditNotes] FOREIGN KEY ([PostID]) REFERENCES ["&TablePrefix&"Posts] ([PostID]) ON DELETE CASCADE ON UPDATE CASCADE"
		Conn.Execute(sql)
		
		Sql="ALTER TABLE ["&TablePrefix&"FavoritePosts] ADD CONSTRAINT [FK_"&TablePrefix&"Users_"&TablePrefix&"FavoritePosts] FOREIGN KEY ([OwnerUserName]) REFERENCES ["&TablePrefix&"Users] ([UserName]) ON DELETE CASCADE ON UPDATE CASCADE"
		Conn.Execute(sql)
		'Conn.Execute("drop table ["&TablePrefix&"FavoriteThreads]")	'删除表"&TablePrefix&"FvaoriteThreads]
		
		If Err Then Err.clear

		Conn.Execute("Update ["&TablePrefix&"SiteSettings] set BBSxpVersion='8.0.0'")
		response.redirect "?"
	end if
end if

if Request("Menu")="Up800To801" then
	if BBSxpDataBaseVersion<>"8.0.0" then response.write("您当前的数据库版本不是 8.0.0！"):response.end
	Conn.Execute("alter table ["&TablePrefix&"UserOnline] add ThreadID int Default 0 NULL")
	Conn.Execute("alter table ["&TablePrefix&"UserOnline] add Topic nvarchar(255) NULL")
	Conn.Execute("alter table ["&TablePrefix&"UserOnline] drop column Act")
	Conn.Execute("alter table ["&TablePrefix&"UserOnline] drop column ActUrl")
	
	Conn.Execute("alter table ["&TablePrefix&"PostAttachments] add FileData Image NULL")

	Conn.Execute("alter table ["&TablePrefix&"PostAttachments] add TempField nvarchar(255) NULL")
	Conn.Execute("Update ["&TablePrefix&"PostAttachments] set TempField=FilePath")
	Conn.Execute("alter table ["&TablePrefix&"PostAttachments] drop column FilePath")
	Conn.Execute("alter table ["&TablePrefix&"PostAttachments] add FilePath nvarchar(255) NULL")
	Conn.Execute("Update ["&TablePrefix&"PostAttachments] set FilePath=TempField")
	
	
	AddSiteConfigXMLField "AttachmentsSaveOption","1"
	AddSiteConfigXMLField "DisplayForumUsers","1"
	AddSiteConfigXMLField "DisplayThreadUsers","0"
	
	If Err Then
		Response.Write Err.Description
	else
		Conn.Execute("Update ["&TablePrefix&"SiteSettings] set BBSxpVersion='8.0.1'")
		response.redirect "?"
	end if
end if

if Request("Menu")="Up801To802" then
	if BBSxpDataBaseVersion<>"8.0.1" then response.write("您当前的数据库版本不是 8.0.1！"):response.end
	AddSiteConfigXMLField "APIEnable","0"
	AddSiteConfigXMLField "APISafeKey",""
	AddSiteConfigXMLField "APIUrlList",""
	AddSiteConfigXMLField "WebMasterEmail",""
	AddSiteConfigXMLField "CookieDomain",""
	
	If Err Then
		Response.Write Err.Description
	else
		Conn.Execute("Update ["&TablePrefix&"SiteSettings] set BBSxpVersion='8.0.2'")
		response.redirect "?"
	end if
end if

if Request("Menu")="Up802To803" then
	if BBSxpDataBaseVersion<>"8.0.2" then response.write("您当前的数据库版本不是 8.0.2！"):response.end
	
	Conn.Execute("alter table ["&TablePrefix&"Users] add QQ nvarchar(255)")
	Conn.Execute("alter table ["&TablePrefix&"Users] add ICQ nvarchar(255)")
	Conn.Execute("alter table ["&TablePrefix&"Users] add AIM nvarchar(255) NULL")
	Conn.Execute("alter table ["&TablePrefix&"Users] add MSN nvarchar(255) NULL")
	Conn.Execute("alter table ["&TablePrefix&"Users] add Skype nvarchar(255) NULL")
	Conn.Execute("alter table ["&TablePrefix&"Users] add Yahoo nvarchar(255) NULL")
	
	Set XMLDOM=Server.CreateObject("Microsoft.XMLDOM")
	Rs.open "["&TablePrefix&"Users]",Conn,1,3
	do while not Rs.eof
		XMLDOM.loadxml("<bbsxp>"&Rs("UserInfo")&"</bbsxp>")
		QQ=XMLDOM.documentElement.SelectSingleNode("QQ").text
		ICQ=XMLDOM.documentElement.SelectSingleNode("ICQ").text
		AIM=XMLDOM.documentElement.SelectSingleNode("AIM").text
		MSN=XMLDOM.documentElement.SelectSingleNode("MSN").text
		Yahoo=XMLDOM.documentElement.SelectSingleNode("Yahoo").text
		Skype=XMLDOM.documentElement.SelectSingleNode("Skype").text
		Rs("QQ")=QQ
		Rs("ICQ")=ICQ
		Rs("AIM")=AIM
		Rs("MSN")=MSN
		Rs("Yahoo")=Yahoo
		Rs("Skype")=Skype
		Rs.update
		Rs.movenext
	loop
	Rs.close
	Set XMLDOM=nothing
	
	Conn.Execute("ALTER table ["&TablePrefix&"Groups] add ForumColumns int Default 0")
	Conn.Execute("ALTER table ["&TablePrefix&"Groups] add Moderated nvarchar(255) Null")
	Conn.Execute("Update ["&TablePrefix&"Groups] set ForumColumns=0")
	Conn.Execute("ALTER table ["&TablePrefix&"Forums] add ModerateNewThread int Default 0")
	Conn.Execute("ALTER table ["&TablePrefix&"Forums] add ModerateNewPost int Default 0")
	Conn.Execute("Update ["&TablePrefix&"Forums] set ModerateNewThread=IsModerated")
	Conn.Execute("Update ["&TablePrefix&"Forums] set ModerateNewPost=0")
	
	'If Err Then
	'	Response.Write Err.Description
	'else
		Conn.Execute("alter table ["&TablePrefix&"Users] drop column UserInfo")
		Conn.Execute("alter table ["&TablePrefix&"Forums] drop column IsModerated")
		Conn.Execute("Update ["&TablePrefix&"SiteSettings] set BBSxpVersion='8.0.3'")
		response.redirect "?"
	'end if
end if


if Request("Menu")="Up803To804" then
	if BBSxpDataBaseVersion<>"8.0.3" then response.write("您当前的数据库版本不是 8.0.3！"):response.end

	AddSiteConfigXMLField "DisplayTags","1"
	
	If Err Then
		Response.Write Err.Description
	else
		Conn.Execute("Update ["&TablePrefix&"SiteSettings] set BBSxpVersion='8.0.4'")
		response.redirect "?"
	end if
end if

if Request("Menu")="Up804To805" then
	if BBSxpDataBaseVersion<>"8.0.4" then response.write("您当前的数据库版本不是 8.0.4！"):response.end
	Conn.Execute("ALTER table ["&TablePrefix&"Roles] add RoleMaxFileSize int Default 0")
	Conn.Execute("ALTER table ["&TablePrefix&"Roles] add RoleMaxPostAttachmentsSize int Default 0")
	Conn.Execute("Update ["&TablePrefix&"Roles] set RoleMaxFileSize=0,RoleMaxPostAttachmentsSize=0")
	
	If Err Then
		Response.Write Err.Description
	else
		Conn.Execute("Update ["&TablePrefix&"SiteSettings] set BBSxpVersion='8.0.5'")
		response.redirect "?"
	end if
end if



if Request("menu")="MovePost" then
	Set Rs=Conn.openSchema(20)
		Do While not Rs.EOF
		if instr(Rs("TABLE_NAME"),""&TablePrefix&"Posts")>0 and Rs("TABLE_TYPE")="TABLE" and Rs("TABLE_NAME")<>""&TablePrefix&"Posts" then
			Conn.Execute("insert into ["&TablePrefix&"Posts] (ThreadID,ParentID,PostAuthor,Subject,Body,IPAddress,PostDate) select ThreadID,ParentID,PostAuthor,Subject,Body,IPAddress,PostDate from ["&Rs("TABLE_NAME")&"] order by PostID")
			PostsTableName=Replace(""&Rs("TABLE_NAME")&"",""&TablePrefix&"Posts","")
			Conn.Execute("Update ["&TablePrefix&"Threads] set PostsTableName=0 where PostsTableName="&PostsTableName&"")
		end if
		Rs.movenext
	Loop
	Rs.close
	response.redirect "?"
end if



sub AddSiteConfigXMLField (NodeName,NodeValue)
	Set XMLRoot=SiteConfigXMLDOM.documentElement

	FoundNodeIndex=-1
	for NodeIndex=0 to XMLRoot.childNodes.length-1
		set childSearch=XMLRoot.childNodes(NodeIndex)
		if childSearch.nodeName=NodeName then
			FoundNodeIndex=NodeIndex
			exit for
		end if
	next

	if FoundNodeIndex=-1 then
		Set NewNode=SiteConfigXMLDOM.CreateElement(NodeName)
		NewNode.Text=NodeValue
		XMLRoot.appendChild NewNode
		XmlStr=replace(replace(SiteConfigXMLDOM.xml,"<bbsxp>",""),"</bbsxp>","")
		Conn.Execute("Update ["&TablePrefix&"SiteSettings] set SiteSettingsXML='"&XmlStr&"'")
	end if
end sub
%>