📄 updata-art2008.asp

📁 Art2008 CMS是一款具有强大的功能的基于ASP语言的网站管理软件
💻 ASP
📖 第 1 页 / 共 3 页
字号:
上一页 1 23
CONN.execute("alter table [newsmb] add column [tface] text(20) NULL") 
CONN.execute("alter table [newsmb] add column [tcolor] text(20) NULL") 
CONN.execute("alter table [newsmb] add column [tsize] text(20) NULL")   
conn.Execute "update [config] set top='<center><BR><BR>请在后台设置-通用页首模版-一般简单模版中修改页头<center><BR><BR><hr size=1>'"
conn.Execute "update [config] set down='<center><BR><BR>请在后台设置-通用页脚模版-一般简单模版中修改页尾<center><BR><BR><hr size=1>'"
		
    aaa="ok"				
	end if
	
'ART2008 CMS V1.5 版本开始升级
	if upd<=19 then
		conn.execute "ALTER TABLE [LINK] add [SH] int"
		conn.Execute "update [LINK] set [SH]=1 "
		conn.execute "ALTER TABLE [Config] add [LinkMBtop] memo"
		conn.execute "ALTER TABLE [config] add [linkMBdown] memo"

		aaa="ok"
	end if
	
	
'ART2008 CMS V2.0 版本开始升级
	if upd<=20 then
		conn.execute "ALTER TABLE [News] add [PaginationType] int default 0"
		conn.execute "ALTER TABLE [News] add [MaxCharPerPage] int default 0"
		
		conn.execute "ALTER TABLE [config] add MarkComponent int default 0"
		conn.execute "ALTER TABLE [config] add MarkType int "
		conn.execute "ALTER TABLE [config] add MarkText text(255)"
		conn.execute "ALTER TABLE [config] add MarkFontSize int default 24"
		conn.execute "ALTER TABLE [config] add MarkFontColor text(7)"
		conn.execute "ALTER TABLE [config] add MarkFontName text(50)"
		conn.execute "ALTER TABLE [config] add MarkFontBond int default 0"
        conn.execute "ALTER TABLE [config] add MarkPicture text(255) default 'http://'"		
		conn.execute "ALTER TABLE [config] add MarkOpacity Decimal(3,2) "		
		conn.execute "ALTER TABLE [config] add MarkWidth int default 0 "
		conn.execute "ALTER TABLE [config] add MarkHeight int default 0 "
		conn.execute "ALTER TABLE [config] add MarkTranspColor text(7)"
		conn.execute "ALTER TABLE [config] add MarkPosition int"
		conn.execute "ALTER TABLE [config] add ThumbWidth int "
		conn.execute "ALTER TABLE [config] add ThumbComponent int default 0 "
		conn.execute "ALTER TABLE [config] add ThumbHeight int"
		conn.execute "ALTER TABLE [config] add ThumbRate Real default 0"
		conn.execute "ALTER TABLE [config] add RateTF int default 0 "
		
		conn.Execute "update [News] set [PaginationType]=0 "
        conn.Execute "update [News] set [MaxCharPerPage]=0 "
		conn.Execute "update [config] set MarkComponent=0 "
		conn.Execute "update [config] set ThumbComponent=0 "
		aaa="ok"
	end if
'ART2008 CMS V2.1 版本开始升级
	if upd<=21 then	
		conn.execute "ALTER TABLE [config] add WebEmail text(100)"
		conn.execute "ALTER TABLE [config] add WebSite text(100)"
		conn.execute "ALTER TABLE [Config] add [NewsWordKey] memo"
		conn.execute "ALTER TABLE [Config] add [NewsWordKeyon] int default 0"
		conn.Execute "update [config] set [WebEmail]='xxx@xxx.com' "
		conn.Execute "update [config] set [website]='某某站' "
		conn.Execute "update [config] set [NewsWordKeyon]=0 "		
		aaa="ok"
	end if
'ART2008 CMS V2.5 版本开始升级	
	if upd<=22 then	
		conn.execute "alter table [config] drop column adduser"
		conn.execute "alter table [config] drop column sotop"
		conn.execute "alter table [config] drop column sobottom"
		conn.execute "alter table [config] drop column tgtop"
		conn.execute "alter table [config] drop column tgbottom"
		conn.execute "alter table [config] drop column picmbtop"
		conn.execute "alter table [config] drop column picmbdown"
		conn.execute "alter table [config] drop column picpagew"
		conn.execute "alter table [config] drop column LinkMBtop"
		conn.execute "alter table [config] drop column linkMBdown"
		
		conn.execute "ALTER TABLE [Config] add [usersetting] memo"
		conn.execute "ALTER TABLE [Config] add [ArtCMS_Digg] int default 0"
		conn.execute "ALTER TABLE [Config] add [IsUse] int default 0"
		conn.execute "ALTER TABLE [setting] add [MailSetting] memo"
		conn.execute "ALTER TABLE [news] add userid int default 0 "
        conn.execute "ALTER TABLE [news] add Digg int default 0 "
	    conn.execute "ALTER TABLE [news] add Down int default 0 "
		conn.execute "ALTER TABLE [news] add newscj int default 0 "	
		conn.execute "ALTER TABLE [webgg] add gtype int default 0 "	
        conn.execute "ALTER TABLE [NewsPL] add Anonymous int default 0 "	
		conn.execute "ALTER TABLE [NewsPL] add Y int default 0 "	
        conn.execute "ALTER TABLE [NewsPL] add N int default 0 "
		
		conn.Execute "update [config] set [usersetting]='0^@$@^0^@$@^0^@$@^0^@$@^admin|manager|Art2008|user|???|?????^@$@^1^@$@^100^@$@^' "
		conn.Execute "update [config] set [ArtCMS_Digg]=0"
		conn.Execute "update [config] set [IsUse]=0"
		conn.Execute "update [setting] set [MailSetting]='Art2008@ART.com^@$@^SMTP服务器地址^@$@^SMTP登录用户名^@$@^SMTP登录密码^@$@^' "
        conn.Execute "update [news] set [userid]=0,[Digg]=0,[Down]=0,[newscj]=0"
		conn.Execute "update [webgg] set [gtype]=0"
		conn.Execute "update [NewsPL] set [Anonymous]=1,[Y]=0,[N]=0"
		
		
		set fso=server.CreateObject("Scripting.FileSystemObject")  
		 
		fso.DeleteFile server.MapPath("admin\admin_set_newsxg.asp"),true  
		fso.DeleteFile server.MapPath("admin\admin_link_mb.asp"),true 
		fso.DeleteFile server.MapPath("admin\admin_mb_so.asp"),true 
		fso.DeleteFile server.MapPath("admin\admin_mb_tg.asp"),true  
		fso.DeleteFile server.MapPath("adduser.asp"),true 
		fso.DeleteFile server.MapPath("adduser_1.asp"),true 
		fso.DeleteFile server.MapPath("adduser_save.asp"),true 
		fso.DeleteFile server.MapPath("exit.asp"),true 
		fso.DeleteFile server.MapPath("getpwd2.asp"),true 
		fso.DeleteFile server.MapPath("getpwd3.asp"),true  
		fso.DeleteFile server.MapPath("getpwd4.asp"),true  
		fso.DeleteFile server.MapPath("getpwd.asp"),true 
		fso.DeleteFile server.MapPath("getpwderr.asp"),true 
		fso.DeleteFile server.MapPath("google.asp"),true 
		fso.DeleteFile server.MapPath("js-login.asp"),true 
		fso.DeleteFile server.MapPath("Include\CHAR.INC"),true 
		fso.DeleteFile server.MapPath("login.asp"),true 
		fso.DeleteFile server.MapPath("so1.asp"),true 
		set fso=nothing	
		
			
		aaa="ok"
	end if
	
'ART2008 CMS V3.0 版本开始升级	
	if upd=23 then	
   
	conn.execute "alter table [config] drop column pl"	
	conn.execute "alter table [config] drop column moreline"	
	conn.execute "alter table [config] drop column plfb"		
	conn.execute "alter table [config] drop column XuasGG"
	conn.execute "alter table [config] drop column XuasGGWZ"	
	conn.execute "alter table [admin] drop column OSKEY"
	
	Conn.execute "create table Art_LockIP (id COUNTER CONSTRAINT PrimaryKey PRIMARY KEY,oneip int default 0,endip int default 0,ip1 text(15),ip2 text(15),rdate datetime,viw tinyint NOT NULL default 0)"
    conn.execute "ALTER TABLE lm add ClassKeywords memo "
    conn.execute "ALTER TABLE lm add ClassDescription memo "
    conn.execute "ALTER TABLE lm add GroupIDClass text(100) "
    
	conn.execute "ALTER TABLE Art_user add OfficeTel text(50),HomeTel text(50),Address text(50),Sign memo,HomePage text(50),IDCard text(50),Zip text(50),QQ text(50),MSN text(50),ICQ text(50),UC text(50),Mobile text(50),Fax text(50),UserFace text(200)"
	conn.execute "ALTER TABLE news add InfoPurview tinyint NOT NULL default 0"
	conn.execute "ALTER TABLE news add ReadPoint int default 0 "
	conn.execute "ALTER TABLE news add ArrGroupID text(100)"

	conn.execute "ALTER TABLE admin add OSKEY memo"	
	conn.execute "ALTER TABLE admin add purview int default 0"	
	conn.execute "ALTER TABLE admin add lmid text(255)"	
	conn.execute "ALTER TABLE newsmb add pl int default 0"	
	conn.execute "ALTER TABLE newsmb add moreline int default 0"
	conn.execute "ALTER TABLE newsmb add plfb int default 0"
	conn.execute "ALTER TABLE config add CjUpFilePath text(255)"
	conn.execute "ALTER TABLE setting add IFvalidate int default 0"
	conn.execute "ALTER TABLE setting add validatecode text(100)"

		
		conn.Execute "update [lm] set [ClassKeywords]=''"
		conn.Execute "update [lm] set [ClassDescription]=''"
		
		conn.Execute "update [news] set [ReadPoint]='0'"
		conn.Execute "update [news] set [InfoPurview]='0'"
		conn.Execute "update [config] set [usersetting]='0^@$@^0^@$@^0^@$@^0^@$@^admin|manager|Art2008|user|管理员|网站管理员^@$@^1^@$@^100^@$@^0^@$@^1^@$@^0^@$@^' "
		conn.Execute "update [config] set [CjUpFilePath]='Edit/uploadfile/'"
		conn.Execute "update [news] set [ReadPoint]='0'"
		conn.Execute "update [admin] set [OSKEY]=',,,,,,,,,,,,,,,'"
		
		conn.Execute "update [newsmb] set [pl]=1"
		conn.Execute "update [newsmb] set [moreline]=15"
		conn.Execute "update [newsmb] set [plfb]=1"
		
		conn.Execute "update [setting] set [IFvalidate]=1"
		conn.Execute "update [setting] set [validatecode]='Art2008'"
		
		
		
		set fso=server.CreateObject("Scripting.FileSystemObject") 	
			
		fso.DeleteFile server.MapPath("admin\admin_lm_mb.asp"),true 
		fso.DeleteFile server.MapPath("admin\admin_lm_mb2.asp"),true 
        fso.DeleteFile server.MapPath("admin\admin_admin_user_edit_save.asp"),true 
        fso.DeleteFile server.MapPath("admin\admin_admin_user_edit.asp"),true 
        fso.DeleteFile server.MapPath("admin\admin_admin_del.asp"),true 
        fso.DeleteFile server.MapPath("admin\admin_admin_add_save.asp"),true 
        fso.DeleteFile server.MapPath("admin\admin_admin_add.asp"),true 
        fso.DeleteFile server.MapPath("admin\admin_admin_edit.asp"),true 
        fso.DeleteFile server.MapPath("admin\admin_admin_edit_save.asp "),true      
        fso.DeleteFile server.MapPath("admin\admin_admin_information_save.asp "),true  
		fso.DeleteFile server.MapPath("admin\admin_gg.asp"),true
		fso.DeleteFile server.MapPath("admin\Error.asp"),true 
		fso.DeleteFile server.MapPath("admin\admin_link_add_save.asp"),true
		fso.DeleteFile server.MapPath("admin\admin_lm_edit_save.asp"),true
        fso.DeleteFile server.MapPath("admin\admin_mb_add_save.asp"),true
        fso.DeleteFile server.MapPath("admin\admin_mb_del.asp"),true
        fso.DeleteFile server.MapPath("admin\admin_news_lm_add_save.asp"),true
		fso.DeleteFile server.MapPath("admin\admin_news_lm_hp.asp"),true
		fso.DeleteFile server.MapPath("admin\admin_news_ontop.asp"),true
		fso.DeleteFile server.MapPath("admin\admin_set_mb.asp"),true
        fso.DeleteFile server.MapPath("admin\admin_ztAdd.asp"),true
		fso.DeleteFile server.MapPath("Edit\asp\admin_conn.asp"),true
        fso.DeleteFolder server.MapPath("lockip")
		
		set fso=nothing	
				aaa="ok"
	end if
	
	'ART2008 CMS(free) V3.1 版本开始升级	
	if upd=24 then	
        conn.execute "ALTER TABLE [config] add AdSetting ntext"
		conn.execute "ALTER TABLE [config] add FsoIndexFile int"
		conn.execute "ALTER TABLE [config] add listHtml int"
		conn.Execute "update [config] set [FsoIndexFile]=0"	
		conn.Execute "update [config] set [listHtml]=0"	
		aaa="ok"
	end if	
	
	
	
end if
	conn.close
	set conn=nothing



%>
			</td>
		</tr>
		<tr>
			<td align=center>
			
			<% 
			if aaa="ok" then Response.Write "升级到"&ver&"版成功，请删除此升级文件，然后上传相关程序文件，请不要上传数据库文件！"
			%>
			</td>
		</tr>
	</table>
</div>
<BR><BR>
<hr size=1>
上一页 1 23
⌨️ 快捷键说明

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