📄 updata-art2008.asp
字号:
'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(artmdb)
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=' ' or zz is null "
conn.Execute "update [news] set [laiyuan]=' ' where laiyuan='' or laiyuan=' ' or laiyuan is null "
conn.Execute "update [news] set [piczz]=' ' where piczz='' or piczz=' ' 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=' ' or zz is null "
conn.Execute "update [news] set [laiyuan]=' ' where laiyuan='' or laiyuan=' ' or laiyuan is null "
conn.Execute "update [news] set [piczz]=' ' where piczz='' or piczz=' ' 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]='xxx@xxx.com' "
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 "
aaa="ok"
end if
'ART2008 CMS V1.0版本开始
if upd<=17 then
'admin表开始
conn.execute "ALTER TABLE [admin] add purview int"
conn.execute "ALTER TABLE [admin] add OSKEY text(255)"
conn.execute "ALTER TABLE [admin] add fullname text(50)"
conn.execute "ALTER TABLE [admin] add question memo"
conn.execute "ALTER TABLE [admin] add answer memo"
conn.execute "ALTER TABLE [admin] add sex text(50)"
conn.execute "ALTER TABLE [admin] add birthyear int"
conn.execute "ALTER TABLE [admin] add birthmonth int"
conn.execute "ALTER TABLE [admin] add birthday int"
conn.execute "ALTER TABLE [admin] add email text(50)"
conn.execute "ALTER TABLE [admin] add content memo"
conn.execute "ALTER TABLE [admin] add IP text(50)"
conn.execute "ALTER TABLE [admin] add [number] int default 0 "
conn.execute "ALTER TABLE [admin] add logins int"
conn.execute "ALTER TABLE [admin] add lastlogin datetime"
conn.execute "ALTER TABLE [admin] add dateandtime datetime"
conn.execute "ALTER TABLE [admin] add depname text(50)"
conn.execute "ALTER TABLE [admin] add adder text(50)"
conn.execute "ALTER TABLE [admin] add tel text(50)"
conn.execute "ALTER TABLE [admin] add shenhe int"
conn.execute "ALTER TABLE [admin] add jingyong int"
conn.execute "ALTER TABLE [admin] add reglevel int"
conn.execute "ALTER TABLE [admin] add photo text(255)"
conn.Execute "update [admin] set [number]=0 "
conn.Execute "update [admin] set [logins]=0 "
conn.Execute "update [admin] set [fullname]=[user] "
conn.Execute "update [admin] set [shenhe]=1 "
conn.Execute "update [admin] set [jingyong]=0"
conn.Execute "update [admin] set [reglevel]=0 "
conn.Execute "update [admin] set [purview]='99999' where ( [dj]='1') "
conn.Execute "update [admin] set [purview]='1' where ( [dj]<>'1') "
conn.Execute "update [admin] set [sex]='保密'"
conn.Execute "update [admin] set [depname]='保密'"
'config表开始
conn.execute "ALTER TABLE [config] add GG int"
conn.execute "ALTER TABLE [config] add GGWZ text(255)"
conn.execute "ALTER TABLE [config] add GGLJ text(255)"
conn.execute "ALTER TABLE [config] add GGSM text(255)"
conn.execute "ALTER TABLE [config] add adduser int"
conn.execute "ALTER TABLE [config] add showzt int"
conn.execute "ALTER TABLE [config] add fddh int"
conn.execute "ALTER TABLE [config] add fddh_body memo"
conn.execute "ALTER TABLE [config] add fddh_x int"
conn.execute "ALTER TABLE [config] add fddh_y int"
conn.execute "ALTER TABLE [config] add top_pic int"
conn.execute "ALTER TABLE [config] add top_pic_url text(255)"
conn.Execute "update [config] set [gg]='1' ,[adduser]='0',[showzt]='0', [fddh]='0',[top_pic]='0'"
'News表开始
conn.execute "ALTER TABLE [News] add file_path text(250)"
conn.execute "ALTER TABLE [News] add file_name text(250)"
'blog表开始
conn.execute "ALTER TABLE [blog] add admin_username text(255)"
conn.execute "ALTER TABLE [blog] add endtime datetime"
conn.execute "ALTER TABLE [blog] add logip text(255)"
conn.execute "ALTER TABLE [blog] add cs int"
conn.execute "ALTER TABLE [blog] add EndLogin int"
conn.Execute "update [blog] set [EndLogin]='0' "
'webgg表开始
conn.execute "ALTER TABLE [webgg] add hit int default 0"
conn.execute "ALTER TABLE [webgg] add ifhide bit "
conn.Execute "update [webgg] set hit=0 "
'setting表开始
Conn.execute "create table setting (id COUNTER CONSTRAINT PrimaryKey PRIMARY KEY,sitename memo,siteurl text(100),sitedes memo,sitekey memo,sitecr memo,siteopen int,sitedir memo)"
conn.Execute "insert into [setting] ([siteopen]) values('0')"
conn.Execute "update [setting] set sitename='Art2008'"
'gbook_setup表开始
Conn.execute "create table gbook_setup (id COUNTER CONSTRAINT PrimaryKey PRIMARY KEY,[pages] int default 0,mailyes text(50) default 0,html text(50) default 1,[view] text(50) default 0,maxlength int default 0,[book_jianju] int default 10,bad memo,huifutishi text(50),huifucolor text(50),other text(50))"
conn.Execute "insert into [gbook_setup] ([pages]) values('5') "
conn.Execute "update [gbook_setup] set huifutishi='管理员回复：'"
conn.Execute "update [gbook_setup] set huifucolor='#ffoooo'"
conn.Execute "update [gbook_setup] set bad='fuck/kao/我靠/我操/我日/你妈/去死/法轮功/大法/美女/共产党/统治/独裁/社会主义/日本/台湾/色情/情色/性爱/性交/口交/做爱/作爱/激情'"
'gbook表开始 ,
Conn.execute "create table gbook (id COUNTER CONSTRAINT PrimaryKey PRIMARY KEY,UserName text(50),QQ text(100),pic text(50) default 1,face text(50) default 1,[URL] text(100),UserMail text(50),title text(250),[Comments] memo,Postdate datetime default Now(),Replay memo,ReplayDate datetime,Replayer text(50),[Del] bit,Online text(1),[IP] text(50) default 未知,[top] text(50) default 0 )"
'lm表开始 ,
conn.execute "ALTER TABLE [lm] add lm_path text(20)"
'tp表开始 ,
conn.execute "ALTER TABLE [TP] add ddsl int"
aaa="ok"
end if
'ART2008 CMS V1.2 版本开始升级
if upd<=18 then
CONN.execute("alter table [config] add column [top] memo NULL")
CONN.execute("alter table [config] add column [down] memo NULL")
CONN.execute("alter table [newsmb] add column [copen] text(20) NULL")
CONN.execute("alter table [newsmb] add column [ccount] int NULL")
CONN.execute("alter table [newsmb] add column [ccolor] text(20) NULL")
CONN.execute("alter table [newsmb] add column [csize] text(20) NULL")
CONN.execute("alter table [newsmb] add column [tbold] text(20) NULL")
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -