📄 up.asp

📁 一个asp写的论坛源代码,论坛所需要的功能都有
💻 ASP
📖 第 1 页 / 共 3 页
字号:
12 3 下一页
<!-- #include file="../conn.asp" -->
<link rel="stylesheet" rev="stylesheet" href="../skins/teams/bbs.css" type="text/css" media="all" />
<%
Server.ScriptTimeout= 9999
MyDbPath = "../"
Select Case Request("Menu")
	Case "Update"
		Update()
	Case "oldupte"
		Call Up00
	Case "Upskins"
		Call Upskins
	Case "Up06"
		Call Up06()
	Case "to_1"
		Call to_1
	Case "to_2"
		Call to_2
	Case "to_3"
		Call to_3
	Case Else
		Main
End Select

Sub Update()
	Response.Write"<body text=""#000000"" leftmargin=""10"" topmargin=""10""><Br><BR><div class=a3 style=""padding: 15px;width:600""><div class=a4>"
	If Not IsObject(Conn) Then ConnectionDatabase
	dim MU,MU1,MU2,i
	MU = conn.Execute("Select Allclass from [Clubconfig] ")(0)
	MU1=Split(MU,"$$$")
	Select Case MU1(40)
		Case "TEAM 1.0.5"
			Call Upto2
		Case "TEAM 1.0.4"
			Call Up05
		Case "TEAM 1.0.3"
			Call Up04
		Case "TEAM 1.0.2"
			Call Up03
		Case "TEAM 1.0.1"
			Call Up02
		Case Else
			Call Up05
	End Select
End Sub

Sub Upto2
	Response.Write"<div align=left id=UpFile class=a1><div class=a4> 现在开始转换数据库结构，请稍等...<meta http-equiv=refresh content=3;url=?Menu=Up06>"
End Sub


Sub Up06()
	If Not IsObject(Conn) Then ConnectionDatabase
	On Error Resume Next
	'在线列表.删除一个多余的字段,添加一个新的字段
	conn.Execute("ALTER TABLE [bbsconfig] alter column  BBsclass text")
	Response.write "<li>更新表键值成功!<BR>" 
	conn.Execute("ALTER TABLE [ClubConfig] add  ForumBest text(100)")
	Dim Rsp
	Set Rsp=conn.execute("select toponline,toponlinetime from ClubConfig")
	if rsp.eof then
		conn.Execute("Update [ClubConfig] set ForumBest='0|"&now()&"'")
	Else
		conn.Execute("Update [ClubConfig] set ForumBest='"&rsp(0)&"|"&rsp(1)&"'")
	end If
	rsp.close: Set Rsp = Nothing

	Response.write "<li>更新最高在线成功!<BR>" 
	conn.Execute("ALTER TABLE ClubConfig DROP COLUMN Selectmail")
	conn.Execute("ALTER TABLE ClubConfig DROP COLUMN Smtp")
	conn.Execute("ALTER TABLE ClubConfig DROP COLUMN Smtpmail")
	conn.Execute("ALTER TABLE ClubConfig DROP COLUMN MailServerusername")
	conn.Execute("ALTER TABLE ClubConfig DROP COLUMN MailServerPassword")
	conn.Execute("ALTER TABLE ClubConfig DROP COLUMN Selectup")
	conn.Execute("ALTER TABLE ClubConfig DROP COLUMN toponline")
	conn.Execute("ALTER TABLE ClubConfig DROP COLUMN toponlinetime")
	conn.Execute("ALTER TABLE ClubConfig DROP COLUMN banner")
	conn.Execute("ALTER TABLE ClubConfig DROP COLUMN adcode")
	conn.Execute("ALTER TABLE ClubConfig DROP COLUMN style")
	Response.write "<li>数据库ClubConfig表冗余字段清理成功!<BR>" 

	conn.Execute("ALTER TABLE [ClubConfig] add ExtCredits text(250)")
	conn.Execute("ALTER TABLE [ClubConfig] add MustOpen text(250)")
	conn.Execute("Update [Clubconfig] set Allclass='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$$$$$$1$$$$$$1$$$0$$$team 2.0.0 RC1$$$1$$$0$$$0.2$$$100$$$0$$$0$$$1$$$欢迎加入TEAM论坛!$$$1$$$1$$$20$$$10$$$20$$$15$$$3$$$0$$$1000$$$0$$$1$$$1$$$1$$$team$$$team$$$3$$$1$$$30$$$31$$$1$$$1$$$1$$$3$$$1$$$$$$1$$$0$$$60$$$10$$$1$$$3$$$0$$$1$$$10$$$30$$$0$$$500$$$5$$$0$$$0$$$0$$$0$$$$$$5$$$1$$$1$$$0$$$0$$$0$$$$$$10000$$$10$$$1$$$0$$$500$$$200$$$rar|jpg|txt|gif|zip$$$999$$$0$$$images/Mypic/logo.gif$$$88$$$1$$$$$$$$$$$$宋体$$$0$$$$$$1$$$$$$30$$$30$$$80$$$0$$$1$$$0$$$0$$$0$$$1$$$1$$$1$$$1$$$1$$$51$$$$$$$$$$$$10$$$10$$$0$$$0$$$$$$$$$$$$',ExtCredits='积分,点,0,1,1|金币,枚,1,1,1|魅力,度,1,1,1|,,,0,0|,,,0,0|,,,0,0|,,,0,0|,,,0,0',MustOpen='3,1,5,0,0,0,0,1,0,0|5,3,7,0,0,0,0,5,0,0|2,1,3,0,0,0,0,3,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'")
	Response.write "<li>基本参数重新赋值成功!<BR>"
	conn.Execute("ALTER TABLE [ClubConfig] add ClearMail text(255)")
	conn.Execute("ALTER TABLE [ClubConfig] add MustOpen text(255)")
	conn.Execute("ALTER TABLE [ClubConfig] add ClearIP text(255)")
	conn.Execute("ALTER TABLE [ClubConfig] add UserKey text(255)")
	conn.Execute("ALTER TABLE [ClubConfig] add BodyMeta text(255)")
	conn.Execute("ALTER TABLE [ClubConfig] add ClearPost text(255)")
	conn.Execute("ALTER TABLE [ClubConfig] add JSUrl text(255)")
	conn.Execute("ALTER TABLE [ClubConfig] add ManageText text(255)")
	Response.write "<li>数据库基本参数转换成功，现在开始用户表的转换<BR><meta http-equiv=refresh content=3;url=?Menu=to_1>"
End Sub

Sub to_1()
	If Not IsObject(Conn) Then ConnectionDatabase
	'On Error Resume Next
	conn.Execute("DROP TABLE [UserGroup]")
	Response.write "<li>删除旧的用户权限表更新成功!<BR>"
	conn.execute("CREATE TABLE UserGroup ("&_
		"ID int IDENTITY (1, 1) NOT NULL ,"&_
		"Members varchar(100) NOT NULL ,"&_		
		"GroupTips int default 0 NOT NULL ,"&_	
		"GroupName varchar(100) NOT NULL ,"&_		
		"MemberRank int default 0 NOT NULL ,"&_	
		"GroupRank int default 0 NOT NULL ,"&_	
		"Rank int default 0 NOT NULL ,"&_
		"UserColor varchar(50) NULL ,"&_	
		"UserImg varchar(50) NULL ,"&_	
		"IsBrowse varchar(250) NULL ,"&_
		"IsManage varchar(250) NULL"&_
		")")


	if conn.execute("select * from UserGroup where GroupName='游客' or GroupName='禁止访问' or GroupName='禁止发言'").eof Then

		conn.Execute("insert into UserGroup (Members,GroupTips,GroupName,Memberrank,GroupRank,IsBrowse,IsManage,Rank) values ('管理员',3,'管理员',-1,1,'1|255|1|1|1|2|0|1|1|1|1|1|500|1|1|1|3|1|1|1|1|1|1|255|1|1|10|1024|200|','1|2|1|1|1|1|1|1|1|1|1|1|1|1|1|1|1|1|1|1|1|1',18)" )
		conn.Execute("insert into UserGroup (Members,GroupTips,GroupName,Memberrank,GroupRank,IsBrowse,IsManage,Rank) values ('超级版主',3,'超级版主',-1,2,'1|255|1|1|1|2|0|1|1|1|1|1|500|1|1|1|3|1|1|1|1|1|1|255|1|1|10|1024|200|','1|2|1|1|1|1|1|1|1|1|1|1|1|1|1|1|1|1|1|1|1|1',17)" )

		conn.Execute("insert into UserGroup (Members,GroupTips,GroupName,Memberrank,GroupRank,IsBrowse,IsManage,Rank) values ('版主',3,'版主',-1,3,'1|255|1|1|1|2|0|1|1|1|1|1|500|1|1|1|3|1|1|1|1|1|1|255|1|1|10|1024|200|','1|1|1|1|1|1|1|1|1|1|1|1|1|1|1|1|1|1|1|1|1|1',16)" )
		
		conn.Execute("insert into UserGroup (Members,GroupTips,GroupName,Memberrank,GroupRank,IsBrowse,IsManage,Rank) values ('嘉宾',2,'VIP用户',-1,4,'1|255|1|1|1|2|0|1|1|1|1|1|50|1|1|1|0|1|0|0|1|1|1|50|1|1|10|1024|200|','0|0|0|0|0|0|0|0|0|0|0|0|0|0|0|0|0|0|0|0|0|0',9)" )

		conn.Execute("insert into UserGroup (Members,GroupTips,GroupName,Memberrank,GroupRank,IsBrowse,IsManage,Rank) values ('未激活用户',0,'未激活用户',-1,5,'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("insert into UserGroup (Members,GroupTips,GroupName,Memberrank,GroupRank,IsBrowse,IsManage,Rank) values ('禁止发言',0,'禁止发言',-1,6,'1|1|1|0|0|0|1|0|0|0|0|0|20|0|0|0|0|0|0|0|0|0|0|50|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("insert into UserGroup (Members,GroupTips,GroupName,Memberrank,GroupRank,IsBrowse,IsManage,Rank) values ('禁止访问',0,'禁止访问',-1,7,'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("insert into UserGroup (Members,GroupTips,GroupName,Memberrank,GroupRank,IsBrowse,IsManage,Rank) values ('注册用户',1,'院士',6000,0,'1|250|1|1|1|2|0|1|1|1|1|1|100|1|1|1|0|1|0|0|1|1|1|50|1|1|10|1024|200|','0|0|0|0|0|0|0|0|0|0|0|0|0|0|0|0|0|0|0|0|0|0',16)" )

		conn.Execute("insert into UserGroup (Members,GroupTips,GroupName,Memberrank,GroupRank,IsBrowse,IsManage,Rank) values ('注册用户',1,'博士生',5000,0,'1|240|1|1|1|2|0|1|1|1|1|1|100|1|1|1|0|1|0|0|1|1|1|50|1|1|10|1024|200|','0|0|0|0|0|0|0|0|0|0|0|0|0|0|0|0|0|0|0|0|0|0',15)" )

		conn.Execute("insert into UserGroup (Members,GroupTips,GroupName,Memberrank,GroupRank,IsBrowse,IsManage,Rank) values ('注册用户',1,'硕士生',4000,0,'1|200|1|1|1|2|0|1|1|1|1|1|100|1|1|1|0|1|0|0|1|1|1|50|1|1|10|1024|200|','0|0|0|0|0|0|0|0|0|0|0|0|0|0|0|0|0|0|0|0|0|0',14)" )

		conn.Execute("insert into UserGroup (Members,GroupTips,GroupName,Memberrank,GroupRank,IsBrowse,IsManage,Rank) values ('注册用户',1,'研究生',3000,0,'1|180|1|1|1|2|1|1|1|1|1|1|100|1|1|1|0|1|1|1|1|1|1|255|1|1|10|512|50|','0|0|0|0|0|0|0|0|0|0|0|0|0|0|0|0|0|0|0|0|0|0',13)" )

		conn.Execute("insert into UserGroup (Members,GroupTips,GroupName,Memberrank,GroupRank,IsBrowse,IsManage,Rank) values ('注册用户',1,'大学四年级',2000,0,'1|170|1|1|1|2|1|1|1|1|1|1|100|1|1|1|0|1|1|1|1|1|1|255|1|1|10|512|50|','0|0|0|0|0|0|0|0|0|0|0|0|0|0|0|0|0|0|0|0|0|0',12)" )

		conn.Execute("insert into UserGroup (Members,GroupTips,GroupName,Memberrank,GroupRank,IsBrowse,IsManage,Rank) values ('注册用户',1,'大学三年级',1700,0,'1|150|1|1|1|1|1|1|1|1|1|1|100|1|1|1|0|1|1|1|1|1|1|255|1|1|10|512|50|','0|0|0|0|0|0|0|0|0|0|0|0|0|0|0|0|0|0|0|0|0|0',11)" )

		conn.Execute("insert into UserGroup (Members,GroupTips,GroupName,Memberrank,GroupRank,IsBrowse,IsManage,Rank) values ('注册用户',1,'大学二年级',1400,0,'1|130|1|1|1|1|1|1|1|1|1|1|100|1|1|1|0|1|1|1|1|1|1|255|1|1|10|512|50|','0|0|0|0|0|0|0|0|0|0|0|0|0|0|0|0|0|0|0|0|0|0',10)" )

		conn.Execute("insert into UserGroup (Members,GroupTips,GroupName,Memberrank,GroupRank,IsBrowse,IsManage,Rank) values ('注册用户',1,'大学一年级',1200,0,'1|130|1|1|1|1|1|1|1|1|1|1|100|1|1|1|0|1|1|1|1|1|1|255|1|1|10|512|50|','0|0|0|0|0|0|0|0|0|0|0|0|0|0|0|0|0|0|0|0|0|0',9)" )

		conn.Execute("insert into UserGroup (Members,GroupTips,GroupName,Memberrank,GroupRank,IsBrowse,IsManage,Rank) values ('注册用户',1,'高中三年级',1000,0,'1|110|1|1|1|1|1|1|1|1|1|1|100|1|1|1|0|1|1|1|1|1|1|255|1|1|10|512|50|','0|0|0|0|0|0|0|0|0|0|0|0|0|0|0|0|0|0|0|0|0|0',8)" )

		conn.Execute("insert into UserGroup (Members,GroupTips,GroupName,Memberrank,GroupRank,IsBrowse,IsManage,Rank) values ('注册用户',1,'高中二年级',800,0,'1|110|1|1|1|1|1|1|1|1|1|1|100|1|1|1|0|1|1|1|1|1|1|255|1|1|10|512|50|','0|0|0|0|0|0|0|0|0|0|0|0|0|0|0|0|0|0|0|0|0|0',7)" )

		conn.Execute("insert into UserGroup (Members,GroupTips,GroupName,Memberrank,GroupRank,IsBrowse,IsManage,Rank) values ('注册用户',1,'高中一年级',600,0,'1|100|1|0|0|0|1|1|1|1|1|1|50|1|1|1|0|0|0|0|1|0|0|50|1|1|1|100|50|','0|0|0|0|0|0|0|0|0|0|0|0|0|0|0|0|0|0|0|0|0|0',6)" )

		conn.Execute("insert into UserGroup (Members,GroupTips,GroupName,Memberrank,GroupRank,IsBrowse,IsManage,Rank) values ('注册用户',1,'附中三年级',400,0,'1|80|1|0|0|0|1|1|1|1|1|1|50|1|1|1|0|0|0|0|1|0|0|50|1|1|1|100|50|','0|0|0|0|0|0|0|0|0|0|0|0|0|0|0|0|0|0|0|0|0|0',5)" )

		conn.Execute("insert into UserGroup (Members,GroupTips,GroupName,Memberrank,GroupRank,IsBrowse,IsManage,Rank) values ('注册用户',1,'附中二年级',300,0,'1|70|1|0|0|0|1|1|1|1|1|1|50|1|1|1|0|0|0|0|1|0|0|50|1|1|1|100|50|','0|0|0|0|0|0|0|0|0|0|0|0|0|0|0|0|0|0|0|0|0|0',5)" )

		conn.Execute("insert into UserGroup (Members,GroupTips,GroupName,Memberrank,GroupRank,IsBrowse,IsManage,Rank) values ('注册用户',1,'附中一年级',250,0,'1|60|1|0|0|0|1|1|1|1|1|1|50|1|1|1|0|0|0|0|1|0|0|50|1|1|1|100|50|','0|0|0|0|0|0|0|0|0|0|0|0|0|0|0|0|0|0|0|0|0|0',4)" )

		conn.Execute("insert into UserGroup (Members,GroupTips,GroupName,Memberrank,GroupRank,IsBrowse,IsManage,Rank) values ('注册用户',1,'附小六年级',200,0,'1|50|1|0|0|0|1|1|1|1|1|1|50|1|1|1|0|0|0|0|1|0|0|50|1|1|1|100|50|','0|0|0|0|0|0|0|0|0|0|0|0|0|0|0|0|0|0|0|0|0|0',4)" )

		conn.Execute("insert into UserGroup (Members,GroupTips,GroupName,Memberrank,GroupRank,IsBrowse,IsManage,Rank) values ('注册用户',1,'附小五年级',150,0,'1|40|1|0|0|0|1|1|1|1|1|1|50|1|1|1|0|0|0|0|1|0|0|50|1|1|1|100|50|','0|0|0|0|0|0|0|0|0|0|0|0|0|0|0|0|0|0|0|0|0|0',3)" )

		conn.Execute("insert into UserGroup (Members,GroupTips,GroupName,Memberrank,GroupRank,IsBrowse,IsManage,Rank) values ('注册用户',1,'附小四年级',100,0,'1|30|1|0|0|0|1|1|1|1|1|1|50|1|1|1|0|0|0|0|1|0|0|50|1|1|1|100|50|','0|0|0|0|0|0|0|0|0|0|0|0|0|0|0|0|0|0|0|0|0|0',3)" )

		conn.Execute("insert into UserGroup (Members,GroupTips,GroupName,Memberrank,GroupRank,IsBrowse,IsManage,Rank) values ('注册用户',1,'附小三年级',60,0,'1|20|1|0|0|0|1|1|1|1|1|1|50|1|1|1|0|0|0|0|1|0|0|50|1|1|1|100|50|','0|0|0|0|0|0|0|0|0|0|0|0|0|0|0|0|0|0|0|0|0|0',2)" )

		conn.Execute("insert into UserGroup (Members,GroupTips,GroupName,Memberrank,GroupRank,IsBrowse,IsManage,Rank) values ('注册用户',1,'附小二年级',30,0,'1|10|1|0|0|0|1|0|0|0|0|0|20|1|1|1|0|0|0|0|0|0|0|0|0|0|1|100|50|','0|0|0|0|0|0|0|0|0|0|0|0|0|0|0|0|0|0|0|0|0|0',2)" )

		conn.Execute("insert into UserGroup (Members,GroupTips,GroupName,Memberrank,GroupRank,IsBrowse,IsManage,Rank) values ('注册用户',1,'附小一年级',0,0,'1|1|1|0|0|0|1|0|0|0|0|0|20|1|1|1|0|0|0|0|0|0|0|0|0|0|1|100|50|','0|0|0|0|0|0|0|0|0|0|0|0|0|0|0|0|0|0|0|0|0|0',1)" )

		conn.Execute("insert into UserGroup (Members,GroupTips,GroupName,Memberrank,GroupRank,IsBrowse,IsManage,Rank) values ('游客/未登陆',0,'访客',-1,0,'1|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',1)" )

	end if
	Response.write "<li>删除数据库UserGroup表多余的数据!<BR>"
	Response.write "<li>数据库UserGroup表更新成功!<BR>"
	conn.Execute("ALTER TABLE [User] add Members text(50)")
	conn.Execute("ALTER TABLE [User] add UserGroupID int default 0")
	conn.Execute("ALTER TABLE [User] DROP COLUMN Levelname")
	conn.Execute("ALTER TABLE [User] add Levelname text(100)")
	conn.Execute("Update [User] set Levelname='注册用户||||||0||0'")
	conn.Execute("ALTER TABLE [User] add UserSex int default 0")
	conn.Execute("Update [User] set UserSex=0")
	conn.Execute("ALTER TABLE [User] DROP COLUMN Sex")
	conn.Execute("ALTER TABLE [User] DROP COLUMN UserInfo")
	conn.Execute("ALTER TABLE [User] add UserInfo text(255)")
	conn.Execute("Update [User] set UserInfo = '|||||'")
	conn.Execute("Update [User] set question = ''")
	conn.Execute("Update [User] set answer = ''")
	conn.Execute("ALTER TABLE [User] add UserCity text(50)")
	conn.Execute("ALTER TABLE [User] add UserUp text(100)")
	conn.Execute("ALTER TABLE [User] add RegIP text(50)")
	conn.Execute("ALTER TABLE [User] add LastLoginIP text(50)")
	conn.Execute("ALTER TABLE [User] add RegNum text(50)")
	conn.Execute("ALTER TABLE [User] add Medals text")
	conn.Execute("ALTER TABLE [User] add Extcredits0 int default 0")
	conn.Execute("ALTER TABLE [User] add Extcredits1 int default 0")
	conn.Execute("ALTER TABLE [User] add Extcredits2 int default 0")
	conn.Execute("ALTER TABLE [User] add Extcredits3 int default 0")
	conn.Execute("ALTER TABLE [User] add Extcredits4 int default 0")
	conn.Execute("ALTER TABLE [User] add Extcredits5 int default 0")
	conn.Execute("ALTER TABLE [User] add Extcredits6 int default 0")
	conn.Execute("ALTER TABLE [User] add Extcredits7 int default 0")
	conn.Execute("Update [User] set UserGroupID=1,Members='管理员',Levelname='管理员||||||18||1' where Membercode = 99")
	conn.Execute("Update [User] set UserGroupID=2,Members='超级版主',Levelname='超级版主||||||17||1' where Membercode = 88")
	conn.Execute("Update [User] set UserGroupID=3,Members='版主',Levelname='版主||||||16||1' where Membercode = 20 or Membercode = 10")
	conn.Execute("Update [User] set UserGroupID=4,Members='嘉宾',Levelname='VIP用户||||||9||1' where Membercode >=2 and  Membercode <10")
	Response.write "<li>下面开始用户等级的迁移,需要比较长的时间,请耐心等待<BR><meta http-equiv=refresh content=3;url=?Menu=to_2>"
End Sub

Sub to_2
	If Not IsObject(Conn) Then ConnectionDatabase
	On Error Resume Next
	Dim prs,prs1,sql5,MyExc
	Dim Rsm,RM1,Rm2,Rm3
	Set prs= conn.execute("select id,experience,Membercode,[money],Power from [user]")
	If prs.eof Then
		Response.write "<li>数据库USER表已经更新,跳过!<BR>"
	Else 
		Do While Not prs.eof
			Rm1 = prs(3):Rm2 = prs(4):Rm3 = prs(1)
			If Rm1 = "" Or Not IsNumeric(Rm1) Then Rm1 = 0
			If Rm2 = "" Or Not IsNumeric(Rm2) Then Rm2 = 0
			If Rm3 = "" Or Not IsNumeric(Rm3) Then Rm3 = 0
			If Rm1 > 1000 Then Rm1 = Rm1/500
			conn.Execute("Update [User] set Extcredits0 = "&Int(Rm3)&",Extcredits1="&Int(Rm1)&",Extcredits2="&Int(Rm2)&" Where id="& Int(prs(0)) )
			If pRs(2) < 2 Then
				If prs(1) < 0 Or Not IsNumeric(prs(1))Then
					MyExc = 0
				Else
					MyExc = prs(1)
				End if
				Set prs1 = conn.execute("select top 1 id,GroupName,UserColor,UserImg,Rank,IsBrowse from UserGroup where not MemberRank=-1 and MemberRank<="&MyExc&" order by MemberRank desc ")
				If prs1.eof Then
					sql5="Update [User] set UserGroupID=26,Members='注册用户',Levelname='"&prs1(1)&"||"&prs1(2)&"||"&prs1(3)&"||"&prs1(4)&"||"& Split(prs1(5),"|")(21) &"' where id="&Int(prs(0))
				else
					sql5="Update [User] set UserGroupID="&PRS1(0)&",Members='注册用户',Levelname='"&prs1(1)&"||"&prs1(2)&"||"&prs1(3)&"||"&prs1(4)&"||"& Split(prs1(5),"|")(21) &"' where id="&Int(prs(0))
				End  If
				conn.Execute(sql5)

			End if
			prs.movenext
		Loop
		Response.write "<li>数据库user等级迁移成功!<BR>"
	End If
	prs1.close:Set prs1=nothing
	prs.close:Set prs=Nothing
	conn.Execute("Update [User] set Extcredits3=0")
	conn.Execute("Update [User] set Extcredits4=0")
	conn.Execute("Update [User] set Extcredits5=0")
	conn.Execute("Update [User] set Extcredits6=0")
	conn.Execute("Update [User] set Extcredits7=0")
	conn.Execute("Update [Forum] set PostClass=999")
	Response.write "<li>数据库USER表更新字段成功!<BR>" 
	conn.Execute("ALTER TABLE [User] DROP COLUMN [money]")
	conn.Execute("ALTER TABLE [User] DROP COLUMN [Power]")
	conn.Execute("ALTER TABLE [User] DROP COLUMN [Experience]")
	conn.Execute("ALTER TABLE [User] DROP COLUMN faction")
	conn.Execute("ALTER TABLE [User] DROP COLUMN consort")
12 3 下一页
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -