up.asp

一个asp写的论坛源代码,论坛所需要的功能都有

	conn.Execute("ALTER TABLE [User] DROP COLUMN savetime")
	conn.Execute("ALTER TABLE [User] DROP COLUMN savemoney")
	conn.Execute("ALTER TABLE [User] DROP COLUMN userphoto")
	conn.Execute("ALTER TABLE [User] DROP COLUMN DayFilePost")
	conn.Execute("ALTER TABLE [User] DROP COLUMN Filedate")
	'conn.Execute("ALTER TABLE [User] DROP CONSTRAINT membercode")
	conn.Execute("ALTER TABLE [User] DROP COLUMN membercode")
	Response.write "<li>数据库USER表冗余字段清理成功!下面开始其他表的处理<BR><meta http-equiv=refresh content=3;url=?Menu=to_3>"
End Sub

Sub to_3
	If Not IsObject(Conn) Then ConnectionDatabase
	On Error Resume Next
	conn.Execute("ALTER TABLE [Message] DROP COLUMN [Time] ")
	conn.Execute("ALTER TABLE [Message] add Sendtime smalldatetime default now()")
	conn.Execute("ALTER TABLE [Message] add MsgTopic text(250)")
	conn.Execute("ALTER TABLE [Message] add isbak int default 0")
	conn.Execute("Update [Message] set isbak=0 ")
	conn.Execute("Update [Message] set Sendtime="&SqlNowString&" ")
	Response.write "<li>数据库Message表更新成功!<BR>" 

	conn.Execute("ALTER TABLE [Link] add SetTops int default 0")
	conn.Execute("Update [Link] set SetTops=0,intro='' ")
	Response.write "<li>数据库LINK表更新成功!<BR>"
	conn.execute("CREATE TABLE Moderators ("&_
		"ID int IDENTITY (1, 1) NOT NULL ,"&_
		"BoardID int NOT NULL ,"&_
		"ManageUser varchar(50) NOT NULL ,"&_
		"Issort int NOT NULL"&_
		")")
	Response.write "<li>数据库Moderators表建立成功!<BR>"
	conn.Execute("ALTER TABLE [bbsconfig] DROP COLUMN moderated ")
	conn.Execute("ALTER TABLE [bbsconfig] DROP COLUMN pass ")
	conn.Execute("ALTER TABLE [bbsconfig] DROP COLUMN logo ")
	conn.Execute("ALTER TABLE [bbsconfig] DROP COLUMN bbsstyle ")
	conn.Execute("ALTER TABLE [bbsconfig] DROP COLUMN BBsclass ")
	conn.Execute("ALTER TABLE [bbsconfig] DROP COLUMN userlist ")
	conn.Execute("ALTER TABLE [bbsconfig] DROP COLUMN lasttopic ")
	conn.Execute("ALTER TABLE [bbsconfig] DROP COLUMN lastname ")
	conn.Execute("ALTER TABLE [bbsconfig] DROP COLUMN lasttime ")
	conn.Execute("ALTER TABLE [bbsconfig] DROP COLUMN intro ")
	Response.write "<li>数据库bbsconfig表清理成功!<BR>"

	conn.Execute("ALTER TABLE [bbsconfig] add Board_Model int default 0")
	conn.Execute("Update [bbsconfig] set Board_Model=0")
	conn.Execute("ALTER TABLE [bbsconfig] add Board_Setting text(250)")
	conn.Execute("Update [bbsconfig] set Board_Setting='0$$$0$$$0$$$0$$$0$$$0$$$0$$$0$$$0$$$0$$$0$$$0$$$0$$$0$$$0,0,0|0,0,0|0,0,0|0,0,0|0,0,0|0,0,0|0,0,0|0,0,0|0,0,0$$$0$$$0$$$0$$$0$$$0$$$0$$$0$$$0$$$0$$$0$$$0$$$0$$$0$$$0$$$0$$$0'")
	conn.Execute("ALTER TABLE [bbsconfig] add Readme text(250)")
	conn.Execute("ALTER TABLE [bbsconfig] add Ismaster text(250)")
	conn.Execute("ALTER TABLE [bbsconfig] add Pass text(250)")
	conn.Execute("ALTER TABLE [bbsconfig] add Board_URL text(250)")
	conn.Execute("ALTER TABLE [bbsconfig] add Board_Key text(250)")
	conn.Execute("ALTER TABLE [bbsconfig] add Board_URL text(250)")
	conn.Execute("ALTER TABLE [bbsconfig] add Board_Code text(250)")
	conn.Execute("ALTER TABLE [bbsconfig] add Board_Last text(250)")
	conn.Execute("Update [bbsconfig] set Board_Last='暂无帖子$@$ - $@$ "&Now()&"' ")

	conn.Execute("ALTER TABLE [bbsconfig] add lookperm text(250)")
	conn.Execute("ALTER TABLE [bbsconfig] add postperm text(250)")
	conn.Execute("ALTER TABLE [bbsconfig] add downperm text(250)")
	conn.Execute("ALTER TABLE [bbsconfig] add upperm text(250)")
	Response.write "<li>数据库bbsconfig表更新成功!<BR>"

	conn.execute("CREATE TABLE Medals ("&_
		"ID int IDENTITY (1, 1) NOT NULL ,"&_
		"MedalName varchar(50) NOT NULL ,"&_
		"Medalimg  varchar(50) NOT NULL ,"&_
		"MedalSet int default 0 NOT NULL"&_
		")")
	Response.write "<li>勋章表添加成功!<BR>"
	dim T
	if conn.Execute("select * from Medals").eof Then
		for T=0 to 9
			conn.Execute("insert into Medals (MedalName,Medalimg,MedalSet) values ('Medal No."&t+1&"','medal"&t+1&".gif',0)" )
			'Response.write "Medal No."&t+1&" Ok - "
		next
	end if
	Response.write "<li>勋章数据添加完成 "
	
	conn.execute("CREATE TABLE Wages ("&_
		"ID int IDENTITY (1, 1) NOT NULL ,"&_
		"Members varchar(50) NOT NULL ,"&_
		"WageGroupID int default 0 NOT NULL, "&_
		"WageMach int default 0 NOT NULL "&_
		")")
	Response.write "<li>工资表添加成功!<BR>"
	
	conn.execute("CREATE TABLE AdvList ("&_
		"ID int IDENTITY (1, 1) NOT NULL ,"&_
		"Dois int default 0 NOT NULL,"&_
		"Sorts int default 0 NOT NULL ,"&_
		"Titles varchar(50) NULL ,"&_
		"Types varchar(50) NULL ,"&_
		"boards varchar(50) NULL ,"&_
		"StarTime varchar(50) NULL ,"&_
		"StopTime varchar(50) NULL ,"&_
		"bodys text "&_
		")")
	Response.write "<li>广告表添加成功!<BR>"

	conn.Execute("ALTER TABLE [menu] add Newtype int default 0")
	Response.write "<li>菜单表设置成功!<BR>"

	conn.execute("CREATE TABLE OnlineTypes ("&_
		"ID int IDENTITY (1, 1) NOT NULL ,"&_
		"OnlineName varchar(50) NOT NULL ,"&_
		"Onlineimg  varchar(100) NOT NULL ,"&_
		"Sorts int default 0 NOT NULL"&_
		")")
	Response.write "<li>在线用户表添加成功!<BR>"

	If conn.execute("select * from OnlineTypes").eof Then
		conn.Execute("insert into OnlineTypes (OnlineName,Onlineimg,Sorts) values ('注册用户','skins/teams/line04.gif',6)" )
		conn.Execute("insert into OnlineTypes (OnlineName,Onlineimg,Sorts) values ('管理员','skins/teams/line01.gif',5)" )
		conn.Execute("insert into OnlineTypes (OnlineName,Onlineimg,Sorts) values ('超级版主','skins/teams/line02.gif',4)" )
		conn.Execute("insert into OnlineTypes (OnlineName,Onlineimg,Sorts) values ('版主','skins/teams/line03.gif',3)" )
		conn.Execute("insert into OnlineTypes (OnlineName,Onlineimg,Sorts) values ('游客','skins/teams/line05.gif',2)" )
	end if
	Response.write "<li>在线用户表数据添加成功!<BR>"
	conn.Execute("DROP TABLE [log]")
	conn.Execute("DROP TABLE [Calendar]")
	conn.Execute("DROP TABLE [Consort]")
	conn.Execute("DROP TABLE [Faction]")
	conn.Execute("DROP TABLE [Prison]")

	
	Response.write "<li>删除log表成功!<BR>"

	Response.write "<li>开始Forum 发贴表的清理工作－－》<BR>"
	conn.Execute("ALTER TABLE [Forum] DROP COLUMN exam")
	conn.Execute("ALTER TABLE [Forum] DROP COLUMN lock")
	conn.Execute("ALTER TABLE [Forum] DROP COLUMN polltopic")
	conn.Execute("ALTER TABLE [Forum] DROP COLUMN pollresult")
	conn.Execute("ALTER TABLE [Forum] DROP COLUMN pollname")
	conn.Execute("ALTER TABLE [Forum] DROP COLUMN multiplicity")
	conn.Execute("ALTER TABLE [Forum] DROP COLUMN lastname")
	conn.Execute("ALTER TABLE [Forum] DROP COLUMN lasttop")
	conn.Execute("ALTER TABLE [Forum] DROP COLUMN forpower")
	conn.Execute("ALTER TABLE [Forum] DROP COLUMN isblog")
	Response.write "<li>Forum 发贴表的清理完成－－》<BR>"
	conn.Execute("Update [forum] set color = 0")
	conn.Execute("ALTER TABLE [Forum] add CloseTopic int default 0")
	conn.Execute("Update [Forum] set CloseTopic=0 ")
	conn.Execute("ALTER TABLE [Forum] add Readperm int default 0")
	conn.Execute("Update [Forum] set Readperm=0 ")
	conn.Execute("ALTER TABLE [Forum] add Createpoll int default 0")
	conn.Execute("Update [Forum] set Createpoll=0 ")
	conn.Execute("ALTER TABLE [Forum] add Creatdiary int default 0")
	conn.Execute("Update [Forum] set Creatdiary=0 ")
	conn.Execute("ALTER TABLE [Forum] add Createreward int default 0")
	conn.Execute("Update [Forum] set Createreward=0 ")
	conn.Execute("ALTER TABLE [Forum] add Creatactivity int default 0")
	conn.Execute("Update [Forum] set Creatactivity=0 ")
	conn.Execute("ALTER TABLE [Forum] add Rewardprice int default 0")
	conn.Execute("Update [Forum] set Rewardprice=0 ")
	conn.Execute("ALTER TABLE [Forum] add Rewardpricetype int default 0")
	conn.Execute("Update [Forum] set Rewardpricetype=0 ")
	conn.Execute("ALTER TABLE [Forum] add LastText text(255)")
	conn.Execute("Update [Forum] set LastText=' － $@$ - ' ")
	conn.Execute("ALTER TABLE [Forum] add Tags text(255)")
	conn.Execute("ALTER TABLE [ReForum] add Reward int default 0")
	conn.Execute("ALTER TABLE [ReForum] add ReTopic text(255)")
	conn.Execute("Update [ReForum] set Reward=0 ")
	conn.Execute("Update [ReForum] add ReTopic text(255)")
	conn.Execute("ALTER TABLE [Forum] add RunMsg int default 0")
	conn.Execute("Update [Forum] set RunMsg=0 ")
	Response.write "<li>Forum 发贴表的重新设置参数完成－－》<BR>"

	conn.execute("CREATE TABLE FVote ("&_
		"ID int IDENTITY (1, 1) NOT NULL ,"&_
		"Rootid int default 0 NOT NULL ,"&_
		"PollClose int default 0 NOT NULL ,"&_
		"Pollday int default 0 NOT NULL ,"&_
		"PollMax int default 0 NOT NULL ,"&_
		"Polltime smalldatetime default now() ,"&_
		"Pollmult int default 0 NOT NULL ,"&_
		"Polltopic varchar(255) NULL ,"&_
		"PollResult varchar(255) NULL ,"&_
		"PollUser  varchar(255) NULL "&_
		")")
	Response.write "<li>新添加投票表成功!<BR>"

	conn.execute("CREATE TABLE Activity ("&_
		"ID int IDENTITY (1, 1) NOT NULL ,"&_
		"Rootid int default 0 NOT NULL ,"&_
		"PlayName varchar(50) NULL,"&_
		"PlayClass varchar(50) NULL,"&_
		"PlayCity varchar(50) NULL,"&_
		"PlayFrom varchar(50) NULL,"&_
		"Playto varchar(50) NULL,"&_
		"Playplace varchar(50) NULL,"&_
		"PlayCost int default 0 NOT NULL ,"&_
		"PlayGender int default 0 NOT NULL ,"&_
		"PlayUser varchar(255) NULL ,"&_
		"PlayNum varchar(50) NULL ,"&_
		"PlayUserNum int default 0 NOT NULL ,"&_
		"PlayStop varchar(50) NULL "&_
		")")

	conn.execute("CREATE TABLE ActivityUser ("&_
		"ID int IDENTITY (1, 1) NOT NULL ,"&_
		"Rootid int default 0 NOT NULL ,"&_
		"PlayUser varchar(50) NULL,"&_
		"Playtext varchar(100) NULL,"&_
		"PlayBy int default 0 NOT NULL ,"&_
		"playBysomach int default 0 NOT NULL ,"&_
		"PlayTime smalldatetime default now() ,"&_
		"PlayClass int default 0 NOT NULL "&_
		")")

	Response.write "<li>新添加活动记录表成功!<BR>"

	conn.execute("CREATE TABLE ReActivity ("&_
		"ID int IDENTITY (1, 1) NOT NULL ,"&_
		"Rootid int default 0 NOT NULL ,"&_
		"payment int default 0 NOT NULL ,"&_
		"payvalue int default 0 NOT NULL ,"&_
		"payUser varchar(255) NULL ,"&_
		"payMessage varchar(255) NULL "&_
		")")
	Response.write "<li>新添加活动记录回复表成功!<BR>"
	conn.Execute("ALTER TABLE [Upfile] DROP COLUMN deltopic")
	conn.Execute("ALTER TABLE [Upfile] add FID int default 0")
	conn.Execute("Update [Upfile] set FID=0 ")
	conn.Execute("ALTER TABLE [Upfile] add ByPowers int default 0")
	conn.Execute("Update [Upfile] set ByPowers=0 ")
	Response.write "<li>数据库Upfile表清理成功!<BR>"

	conn.execute("CREATE TABLE BankLog ("&_
		"ID int IDENTITY (1, 1) NOT NULL ,"&_
		"Makes int default 0 NOT NULL ,"&_
		"bankname varchar(50)  NULL ,"&_
		"buyname varchar(50) NULL ,"&_
		"buyvalue int default 0 NOT NULL ,"&_
		"getvalue int default 0 NOT NULL ,"&_
		"posttime smalldatetime default now() ,"&_
		"settime varchar(50) NULL "&_
		")")
	Response.write "<li>交易记录表设置成功!<BR>"

	conn.Execute("insert into [TableList] (TableName) values ('Reforum')" )
	Response.Write"<li> TEAM 1.0.5 --> 2.0.0 ok ! </li>"
	Response.Write"<li>升级成功. 请在论坛根目录删除此文件! 文件名 [Up.asp] ，现在请等待系统模版数据库的导入。</li></div></div> <meta http-equiv=refresh content=3;url=?Menu=Upskins>"
	Application.Contents.RemoveAll() 
End Sub

Dim mconn
Sub myConnectionDatabase
	Dim ConnStr
	ConnStr = "Provider = Microsoft.Jet.OLEDB.4.0;Data Source = " & Server.MapPath(MyDbPath & "skins/TM_Style.mdb")
	On Error Resume Next
	Set mconn = Server.CreateObject("ADODB.Connection")
	mconn.open ConnStr
	If Err Then
		err.Clear
		Set mconn = Nothing
		Response.Write "数据库连接出错，请检查连接字串。"
		Response.End
	End If