<%@ CODEPAGE = "936" %> <% '================================= ' ' 阿江酷站访问统计系统 ' Ajiang info@ajiang.net ' www.ajiang.net ' ' 版权所有·抄袭挪用必究 ' '================================= if session.Contents("master") <> true then Response.Redirect "help.asp?error=你不是管理员,无权进入本页面。" %> <% '****************** 创建数据对象 ****************** 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 %> <%=countname%>-管理员控制台
   从就版本升级-升级数据库结构
<%if isupgrade() then%>

删除主库中的IP表失败!可能是数据库正在被别的程序调用,无法锁定。 <%else%>

主库IP表删除成功! <%end if%> <%if isupgrade12() then%>

主库view表屏宽字段创建成功! <%else%>

创建主库屏宽字段失败!可能是数据库正在被别的程序调用,无法锁定。 <%end if%> <%if isupgrade13() then%>

主库view表备份标记字段创建成功! <%else%>

创建主库备份标记字段失败!可能是数据库正在被别的程序调用,无法锁定。 <%end if%> <%if isupgrade13b() then%>

在主库vjian表中添加“开始统计日期”字段成功! <%else%>

在主库vjian表中添加“开始统计日期”字段失败!可能是数据库正在被别的程序调用,无法锁定。 <%end if%>


<% '****************** 关闭数据对象 ****************** 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 %>