lblog106f_update.asp

L-Blog是一套BLOG系统

<%
Dim SQL,Conn
Set Conn= Server.CreateObject("ADODB.Connection")
Conn.ConnectionString="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("L-Blog.mdb")
Conn.Open


''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

Conn.ExeCute("ALTER TABLE [blog_Counter] DROP COLUMN coun_OS")
Conn.ExeCute("ALTER TABLE [blog_Counter] DROP COLUMN coun_Browser")
Conn.ExeCute("ALTER TABLE [blog_Counter] ADD coun_Agent varchar(250)")
Conn.ExeCute("ALTER TABLE [blog_Counter] ADD coun_Refer varchar(250)")

Response.Write("数据库升级成功，请删除lblog106f_update.asp文件")

Conn.Close
Set Conn=Nothing
%>