lblog106se-lblog106f_update.asp

来自「L-Blog是一套BLOG系统」· ASP 代码 · 共 33 行

<%
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


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

SQL="CREATE TABLE blog_Favorite("&_
					"fav_ID int IDENTITY (1,1) NOT NULL,"&_
					"fav_Name varchar(100),"&_
					"fav_URL varchar(255),"&_
					"fav_Info text,"&_
					"fav_Author varchar(255),"&_
					"fav_PostTime datetime Default Now() NOT NULL "&_
					") "
Conn.ExeCute(SQL)

Conn.ExeCute("ALTER TABLE [blog_Info] ADD blog_QuoteNums int default 0")
Conn.ExeCute("ALTER TABLE [blog_Info] ADD blog_VisitBaseNums int default 0")
Conn.ExeCute("UPDATE blog_Info SET blog_QuoteNums=0,blog_VisitBaseNums=0")

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("数据库升级成功，请删除lblog106se-lblog106f_update.asp文件")

Conn.Close
Set Conn=Nothing
%>