updata-3.5.asp

迅时后台可以 对新闻栏目进行管理

	
	'7－－2.0版本
	if upd<=7 then
		conn.execute "ALTER TABLE config add XuasGG int"
		conn.execute "ALTER TABLE config add XuasGGWZ int"
		conn.execute "ALTER TABLE config add ggso int"
		conn.execute "ALTER TABLE config add plfb int"
		conn.execute "ALTER TABLE lyhf add lyid int"
		conn.execute "ALTER TABLE config add Tglm memo"
		conn.execute "ALTER TABLE usertougao add lmid text(255)"
	
		conn.Execute "update [config] set [XuasGG]=1,[XuasGGwz]=2,[GGso]=1,[plfb]=1,[tglm]='1,2,3' "
		conn.Execute "update [usertougao] set [lmid]='0'"
		
		
		aaa="ok"
	
	end if
	
	
	'8 　2.1版本开始升级
	if upd<=8 then
		conn.execute "ALTER TABLE admin add NewsSL int"
		conn.Execute "update [admin] set [NewsSL]=0 "
		conn.execute "ALTER TABLE news add sh int"
		conn.Execute "update [news] set [sh]=1 "
		aaa="ok"
	end if
	
	'9 　2.2版本开始升级
	if upd<=9 then
		conn.execute "ALTER TABLE ly add LB int"
		conn.Execute "update [ly] set [lb]=0 "
		Conn.execute "create table LyLB (id COUNTER CONSTRAINT PrimaryKey PRIMARY KEY,lb text(255))"
		conn.Execute "insert into [lylb] ([lb]) values('一般留言')"
		Conn.execute "drop table tp"
		Conn.execute "drop table tpip"
		Conn.execute "create table TP (id COUNTER CONSTRAINT PrimaryKey PRIMARY KEY,title text(255),DD int,addtime datetime,endtime datetime)"
		Conn.execute "create table TPtitle (id COUNTER CONSTRAINT PrimaryKey PRIMARY KEY,tpxx text(255),tps int,tpid int,tplink memo)"
		Conn.execute "create table TP (id COUNTER CONSTRAINT PrimaryKey PRIMARY KEY,title text(255),content memo,addtime datetime)"
		conn.execute "ALTER TABLE [config] add ZuZiIP memo"
		aaa="ok"
	end if
	
	
	'10 　2.3版本开始升级
	if upd<=10 then
		conn.execute "ALTER TABLE [NewsMB] add listtumb memo"
		conn.execute "ALTER TABLE [NewsMB] add picw int,pich int,picx int,picy int,pictitle int,pictitlecolor text(200),pictitlesize text(200)"
		conn.Execute "update [NewsMB] set [picw]=120,[pich]=100,picx=4,picy=4,pictitle=18,pictitlecolor='000000',pictitlesize='9' "
		conn.execute "ALTER TABLE [ly] add SH int"
		conn.close:set conn=nothing
		set conn=server.CreateObject("adodb.connection")
		DBPath = Server.MapPath(xuasmdb)
		conn.open "provider=microsoft.jet.oledb.4.0; data source="&DBpath
		conn.execute "alter table [config] drop column picx,picy,picw,pich,pictitle,pictitlecolor,pictitlesize,picmbtop,picmbdown"
		conn.execute "ALTER TABLE [config] add LYSH int"
		conn.execute "ALTER TABLE [config] add lrySH int"
		conn.Execute "update [config] set [lrysh]=0,[lysh]=0 "
		aaa="ok"
	end if
	
	'11  2.4版本开始升级
	if upd<=11 then
		Conn.execute "create table NewsZT (id COUNTER CONSTRAINT PrimaryKey PRIMARY KEY,title text(255),MB memo,icon text(255))"
		conn.execute "ALTER TABLE [News] add ZTID int"
		aaa="ok"
	end if
	
	
	'12  2.5/2.6版本开始升级
	if upd<=12 then
		conn.execute "ALTER TABLE [News] add GoogleMap text(255)"
		conn.execute "ALTER TABLE [News] add filename text(255)"
		conn.execute "alter table [news] drop column updat"
		conn.execute "alter table [news] drop column file_path"
		conn.execute "alter table [news] drop column file_name"
		conn.execute "ALTER TABLE [News] add updat int"
		conn.execute "ALTER TABLE [News] add shUsername text(255)"
		conn.Execute "update [news] set [filename]='0',[updat]=[ID] " 
		
		aaa="ok"
	end if	


	'13  2.7版本开始升级
	if upd<=13 then
		conn.execute "ALTER TABLE [News] add piczz text(255)"
		conn.execute "ALTER TABLE [News] add LaiYuan text(255)"
		conn.Execute "update [news] set [zz]=' ' where zz='' or zz='&nbsp;' or zz is null "
		conn.Execute "update [news] set [laiyuan]=' ' where laiyuan='' or laiyuan='&nbsp;' or laiyuan is null "
		conn.Execute "update [news] set [piczz]=' ' where piczz='' or piczz='&nbsp;' or piczz is null "		
		
		aaa="ok"
	end if	
	
	' 2.8版本开始升级
	if upd<=14 then 
		conn.execute "ALTER TABLE [News] add piczz text(255)"
		conn.execute "ALTER TABLE [News] add LaiYuan text(255)"
		conn.Execute "update [news] set [zz]=' ' where zz='' or zz='&nbsp;' or zz is null "
		conn.Execute "update [news] set [laiyuan]=' ' where laiyuan='' or laiyuan='&nbsp;' or laiyuan is null "
		conn.Execute "update [news] set [piczz]=' ' where piczz='' or piczz='&nbsp;' or piczz is null "	
		set fso=server.CreateObject("Scripting.FileSystemObject")   
		fso.DeleteFile server.MapPath("admin_code_ls.asp"),true    
		fso.DeleteFile server.MapPath("Admin_Style.css"),true    
		fso.DeleteFile server.MapPath("admin_jf.asp"),true   
		fso.DeleteFile server.MapPath("admin_news_view.asp"),true  
		fso.DeleteFile server.MapPath("newstg.asp"),true
		fso.DeleteFile server.MapPath("newstg-save.asp"),true
 
		set fso=nothing		
		
		aaa="ok"				
	end if
	
	' 3.0版本开始升级
	if upd<=15 then 
		conn.execute "ALTER TABLE [Newspl] add sh int"
		conn.execute "ALTER TABLE [config] add plsh int"
		conn.execute "ALTER TABLE [config] add WebEmail text(100)"
		conn.Execute "update [config] set [WebEmail]='[e-mail]' "
		conn.Execute "update [config] set [plsh]=0 "
		conn.Execute "update [newspl] set [sh]=1 "
		Conn.execute "create table LinkLB (id COUNTER CONSTRAINT PrimaryKey PRIMARY KEY,LB text(255))"
		conn.Execute "insert into [LinkLB] ([LB]) values('综合类网站')"
		
		conn.execute "ALTER TABLE [Link] add lb int"
		conn.Execute "update [Link] set [lb]=1 "

		conn.execute "ALTER TABLE [Link] add PIC int"
		conn.Execute "update [Link] set [PIC]=0 "	
		conn.Execute "update [Link] set [PIC]=1 where ( [logo] like '%.gif%' or [logo] like '%.jpg%' or [logo] like '%.GIF%' or [logo] like '%.JPG%' ) "

		set fso=server.CreateObject("Scripting.FileSystemObject")   
		fso.DeleteFile server.MapPath("admin\admin_newspl_del.asp"),true   
		fso.DeleteFile server.MapPath("admin_newspl_del.asp"),true  
		fso.DeleteFile server.MapPath("edit\up.asp"),true  
		fso.DeleteFile server.MapPath("edit\PopUp.asp"),true     
		set fso=nothing		
		aaa="ok"				
	end if
	
	'3.1版本开始
	if upd<=16 then
		conn.execute "ALTER TABLE [tp] add ddsl int"
		conn.execute "ALTER TABLE [config] add WebSite text(100)"
		conn.execute "ALTER TABLE [config] add shyplsh int"
		conn.execute "ALTER TABLE [config] add shylysh int"
		conn.Execute "update [config] set [shyplsh]=0 "
		conn.Execute "update [config] set [shylysh]=0 "
		conn.Execute "update [config] set [website]='某某站' "
		conn.execute "ALTER TABLE [NEWS] add [yurl] text(255)"
		conn.execute "ALTER TABLE [NEWS] add [TouTiao] int"
		conn.Execute "update [News] set [TouTiao]=0 "
		conn.Execute "update [news] set [url]=' ',zz=' ',xgnews=' ',[htitle]='&nbsp;' where year([time])=2004  "
		aaa="ok"
	end if
	
	'3.2版本开始升级
	if upd<=17 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
	
	'3.3 3.4版本开始升级
	if upd<=18 then
			conn.execute "ALTER TABLE [Config] add [shyGGsh] int"
			conn.Execute "update [config] set [shyggsh]=0 "
			conn.execute "ALTER TABLE [Config] add [NewsWordKey] memo"
		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>
<div align="center"><font face="Verdana">讯时科技　<a target="_blank" href="http://www.xuas.com">www.xuas.com</a>　热忱为你服务<BR>
	E-mail:[e-mail]　论坛：<a target="_blank" href="http://bbs.xuas.com">http://bbs.xuas.com</a></font></p>