lblog106f-lblog108f_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_Content] ADD log_Weather varchar(50)")
Conn.ExeCute("UPDATE blog_Content SET log_Weather='0|未知'")
Conn.ExeCute("ALTER TABLE [blog_Member] ADD mem_LastIP varchar(25)")

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

Conn.Close
Set Conn=Nothing
%>