?? upgrade1.asp
字號:
<%@ CODEPAGE = "936" %>
<%
'=================================
'
' 阿江酷站訪問統計系統
' Ajiang info@ajiang.net
' www.ajiang.net
'
' 版權所有·抄襲挪用必究
'
'=================================
if session.Contents("master") <> true then Response.Redirect "help.asp?error=你不是管理員，無權進入本頁面。"
%>
<!--#include file="inc_config.asp"-->
<%
'****************** 創建數據對象 ******************
set conn=server.createobject("adodb.connection")
DBPath = Server.MapPath(connpath)
conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DBPath
'判斷開始統計日期
tmprs2=conn.execute("Select top 1 vtime from view order by id")
vfirst=tmprs2("vtime")
set tmprs2=nothing
'開始升級
if isupgrade() then
on error resume next
sql="DROP TABLE ip"
conn.execute(sql)
end if
if isupgrade12()=false then
on error resume next
sql="ALTER TABLE view ADD COLUMN vwidth short"
conn.execute(sql)
sql="update view set vwidth=0"
conn.execute(sql)
end if
if isupgrade13()=false then
on error resume next
sql="ALTER TABLE view ADD COLUMN bakdays bit"
conn.execute(sql)
sql="ALTER TABLE view ADD COLUMN bakstats bit"
conn.execute(sql)
sql="ALTER TABLE view ADD COLUMN bakpage bit"
conn.execute(sql)
end if
if isupgrade13b()=false then
on error resume next
sql="ALTER TABLE vjian ADD COLUMN starttime datetime"
conn.execute(sql)
sql="update vjian set starttime='" & vfirst & "'"
conn.execute(sql)
end if
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta http-equiv="Content-Language" content="zh-cn">
<meta http-equiv="Copyright" content="Ajiang http://www.ajiang.net">
<title><%=countname%>－管理員控制臺</title>
<link rel="stylesheet" type="text/css" href="style.css">
</head>
<body topmargin=5 rightmargin=0 leftmargin=0 vlink=#000000>
<!--#include file="inc_top.asp"-->
<br>
<table width="500" cellspacing="0" align="center" cellpadding="0" border="0">
<tr><td colspan="3"><img src="images/photoup.gif"></td></tr>
<tr height="30">
<td width="1" class="backs"><img src="images/touming.gif" width="1" height="1"></td>
<td width="498"class="backq">
<img src="images/tb_index1.gif" align=absmiddle> <font style="font-size:16px"> </font>從就版本升級－升級數據庫結構<br>
<%if isupgrade() then%>
<p class="p1">刪除主庫中的IP表失敗！可能是數據庫正在被別的程序調用，無法鎖定。
<%else%>
<p class="p1">主庫IP表刪除成功！
<%end if%>
<%if isupgrade12() then%>
<p class="p1">主庫view表屏寬字段創建成功！
<%else%>
<p class="p1">創建主庫屏寬字段失敗！可能是數據庫正在被別的程序調用，無法鎖定。
<%end if%>
<%if isupgrade13() then%>
<p class="p1">主庫view表備份標記字段創建成功！
<%else%>
<p class="p1">創建主庫備份標記字段失敗！可能是數據庫正在被別的程序調用，無法鎖定。
<%end if%>
<%if isupgrade13b() then%>
<p class="p1">在主庫vjian表中添加“開始統計日期”字段成功！
<%else%>
<p class="p1">在主庫vjian表中添加“開始統計日期”字段失敗！可能是數據庫正在被別的程序調用，無法鎖定。
<%end if%>
</td>
<td width="1" class="backs"><img src="images/touming.gif" width="1" height="1"></td>
</tr>
<tr><td colspan="4"><img src="images/photodown.gif"></td></tr>
</table>
<br>
<!--#include file="inc_bottom.asp"-->
</body>
</html>
<%
'****************** 關閉數據對象 ******************
conn.Close
set conn=nothing
'****************** 自定義函數 ********************
function isUpgrade()
isUpgrade=true
on error resume next
sql="select * from ip"
conn.execute(sql)
if err<>0 then isUpgrade=false
end function
function isUpgrade12()
isUpgrade12=true
on error resume next
sql="select vwidth from view"
conn.execute(sql)
if err<>0 then isUpgrade12=false
end function
function isUpgrade13()
isUpgrade13=true
on error resume next
sql="select bakdays from view"
conn.execute(sql)
if err<>0 then isUpgrade13=false
end function
function isUpgrade13b()
isUpgrade13b=true
on error resume next
sql="select starttime from vjian"
conn.execute(sql)
if err<>0 then isUpgrade13b=false
end function
%>?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -