%@ 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 %>
从就版本升级-升级数据库结构 <%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%> |
|||