?? updata-3.5.asp
字號:
<%
ON ERROR RESUME NEXT
%>
<!--#include file = admin_conn.asp -->
<!--#include file = titleb.asp -->
<%
conn.close
set conn=nothing
upmdb=trim(request("upmdb"))
if upmdb="" then upmdb=xuasmdb
set conn=server.CreateObject("adodb.connection")
DBPath = Server.MapPath(upmdb)
conn.open "provider=microsoft.jet.oledb.4.0; data source="&DBpath
ver="3.5"
%>
<head>
<STYLE type="text/css">
<!--
a:link {text-decoration: none; font-family: AdobeSm; color: #000000 }
a:visited {text-decoration: none; color: #000000 }
A:hover {COLOR: green; FONT-FAMILY: Verdana, 宋體, MingLiU;
TEXT-DECORATION: underline
}
body {font-size: 9pt; font-family: Verdana,宋體,MingLiU, Arial;color: #000000}
TD {FONT-SIZE: 9pt; FONT-FAMILY: Verdana, 宋體, MingLiU, Arial;
color: #000000;line-height: 120%;table-layout:fixed;word-break:break-all
}
p {FONT-SIZE: 9pt; FONT-FAMILY: Verdana, 宋體, MingLiU, Arial;
color: #000000
}
input {FONT-SIZE: 9pt; FONT-FAMILY: Verdana, 宋體, MingLiU, Arial;
color: #000000
}
body {margin-top: 0; margin-bottom: 0;margin-left:0;margin-right:0; color: #000000}
select {FONT-SIZE: 9PT;font-family: Verdana,宋體}
option {FONT-SIZE: 9pt;font-family: Verdana,宋體}
textarea {FONT-SIZE: 9pt;font-family: Verdana,宋體}
-->
</STYLE>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta http-equiv="Content-Language" content="zh-cn">
</head>
<BR><BR>
<%
sss=LCase(request.servervariables("QUERY_STRING"))
if instr(sss,"select")<>0 or instr(sss,"inster")<>0 or instr(sss,"delete")<>0 or instr(sss,"(")<>0 or instr(sss,"'or")<>0 then
response.write "<BR><BR><center>你的網址不合法"
response.end
end if
%>
<div align="center">
<table border="0" cellpadding="3" cellspacing="0" width="700" id="table1">
<tr>
<td>
<p align="center"><b><font size="3" color="#FF0000">訊時系統升級程序</font></b></p>
<p> 即將開始為你的數據庫升級到<%=ver%>版本，強烈建議你首先備份數據庫，然后再進行升級，在升級過程中，不能對正在使用的數據庫進行操作，推薦使用備份數據庫進行升級。</p>
<!--webbot BOT="GeneratedScript" PREVIEW=" " startspan --><script Language="JavaScript" Type="text/javascript"><!--
function FrontPage_Form1_Validator(theForm)
{
if (theForm.upd.selectedIndex < 0)
{
alert("請選擇“請選擇你的數據庫版本”選項中的一項。");
theForm.upd.focus();
return (false);
}
if (theForm.upd.selectedIndex == 0)
{
alert("第一個“請選擇你的數據庫版本”選項無效。 請選擇其他選項中的一項。");
theForm.upd.focus();
return (false);
}
return (true);
}
//--></script><!--webbot BOT="GeneratedScript" endspan --><form method="POST" action="<%=request.servervariables("URL")%>" name="FrontPage_Form1" onsubmit="return FrontPage_Form1_Validator(this)" language="JavaScript">
<p align="center">
數據庫路徑：<input type="text" name="upmdb" value='<%=xuasmdb%>' size="20"><br><br> <!--webbot bot="Validation" s-display-name="請選擇你的數據庫版本" b-value-required="TRUE" b-disallow-first-item="TRUE" --><select size="1" name="upd">
<option>請選擇....</option>
<option value="18">3.3/3.4版本升級到<%=ver%></option>
<option value="17">3.2版本升級到<%=ver%></option>
<option value="16">3.1版本升級到<%=ver%></option>
<option value="15">3.0版本升級到<%=ver%></option>
<option value="14">2.8/2.9版本升級到<%=ver%></option>
<option value="13">2.7版本升級到<%=ver%></option>
<option value="12">2.5/2.6版本升級到<%=ver%></option>
<option value="11">2.4版本升級到<%=ver%></option>
<option value="10">2.3版本升級到<%=ver%></option>
<option value="9">2.2版本升級到<%=ver%></option>
<option value="8">2.1版本升級到<%=ver%></option>
<option value="7">2.0版本升級到<%=ver%></option>
<option value="6">1.9版本升級到<%=ver%></option>
<option value="5">1.85版本升級到<%=ver%></option>
<option value="4">1.51版本升級到<%=ver%></option>
<option value="3">1.40版本升級到<%=ver%></option>
<option value="2">1.36版本升級到<%=ver%></option>
<option value="1">1.33或更早版本升級到<%=ver%></option>
</select> <input type="submit" value="升級" name="B1"></p>
</form>
<p align="center"> </td>
</tr>
<tr>
<td>
<%
ON ERROR RESUME NEXT
upd=trim(Request("upd"))
if upd<>"" then
upd=int(upd)
'1 1.33版本
if upd=1 then
conn.execute "ALTER TABLE lm add lm2 text(255),lmid text(255)"
conn.execute "ALTER TABLE news add adduser text(255),xgnews text(255)"
conn.execute "ALTER TABLE news add lm2 text(255)"
conn.execute "ALTER TABLE admin add dj text(255),lmid text(255)"
Conn.execute "create table newspl (id COUNTER CONSTRAINT PrimaryKey PRIMARY KEY,email text(255),content memo,addtime datetime,username text(255),newsid int,sh int,ip text(255))"
Conn.execute "create table webgg (id COUNTER CONSTRAINT PrimaryKey PRIMARY KEY,title text(255),content memo,addtime datetime,adduser text(255))"
conn.Execute "update [news] set [lm2]='0'"
end if
' 2 1.36版本
if upd<=2 then
conn.execute "ALTER TABLE newsmb add lmname int,newstime int,newshit int"
end if
'3 －－1.40版本
if upd<=3 then
Conn.execute "create table config (id COUNTER CONSTRAINT PrimaryKey PRIMARY KEY,path text(255),sotop memo,sobottom memo,tgtop memo,tgbottom memo)"
Conn.execute "create table tpip (id COUNTER CONSTRAINT PrimaryKey PRIMARY KEY,ip text(255),addtime datetime,tpid int)"
Conn.execute "create table webgg (id COUNTER CONSTRAINT PrimaryKey PRIMARY KEY,title text(255),content memo,addtime datetime,adduser text(255))"
Conn.execute "create table tp (id COUNTER CONSTRAINT PrimaryKey PRIMARY KEY,title text(255),vtp text(255))"
for i=1 to 15
aaa="tp"&i
bbb="tp"&i&"h"
conn.execute "ALTER TABLE tp add "&aaa&" text(255),"&bbb&" int"
next
conn.Execute "insert into [config] ([sotop]) values('1')"
Conn.execute "create table UserTouGao (id COUNTER CONSTRAINT PrimaryKey PRIMARY KEY,title text(255),adduser text(255),addtime datetime,ip text(50),content memo)"
conn.execute "ALTER TABLE lm add pic int"
conn.execute "ALTER TABLE lm add fontcolor text(255)"
conn.Execute "update [news] set [ontop]=3 "
end if
'4－－1.51版本
if upd<=4 then
conn.execute "ALTER TABLE newsmb add icon memo"
conn.execute "ALTER TABLE newsmb add updown int"
conn.execute "ALTER TABLE link add js memo,ontop int,upd datetime"
conn.execute "ALTER TABLE config add TGhtmledit int"
conn.execute "ALTER TABLE newsmb add openwindow int"
conn.execute "ALTER TABLE newsmb add tb int"
aaa="ok"
end if
'5－－1.85版本
if upd<=5 then
Conn.execute "create table ly (id COUNTER CONSTRAINT PrimaryKey PRIMARY KEY,title text(255),adduser text(255),ip text(255),hftime datetime,addtime datetime,email text(200),sh int,sex text(200),tx text(200),content memo)"
conn.execute "ALTER TABLE news add htitle text(255)"
conn.execute "ALTER TABLE news add lm3 text(200)"
conn.execute "ALTER TABLE lm add lm3 text(200)"
conn.Execute "update [news] set [htitle]=' ',[lm3]='0' "
aaa="ok"
end if
'6－－1.90版本
if upd<=6 then
conn.execute "ALTER TABLE ly add bm text(255)"
conn.execute "ALTER TABLE config add newsx int"
conn.execute "ALTER TABLE config add pl int"
conn.execute "ALTER TABLE config add moreline int"
Conn.execute "create table blog (id COUNTER CONSTRAINT PrimaryKey PRIMARY KEY,content memo,addtime datetime)"
conn.execute "ALTER TABLE config add picw int,pich int,picx int,picy int"
conn.execute "ALTER TABLE config add picmbtop memo,picmbdown memo"
conn.execute "ALTER TABLE config add picpagew int"
conn.execute "ALTER TABLE config add pictitle int,pictitlecolor text(255),pictitlesize text(255)"
aaa="ok"
end if
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -