lblog101-lblog105_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_Comment] ADD comm_AutoKEY int Default 0")

Conn.ExeCute("ALTER TABLE [blog_Content] ADD log_AutoKEY int Default 0")

Conn.ExeCute("ALTER TABLE [blog_Info] ADD blog_Name varchar(50)")

Conn.ExeCute("ALTER TABLE [blog_Info] ADD blog_URL varchar(150)")

Conn.ExeCute("ALTER TABLE [blog_Info] ADD blog_PerPage int Default 8")

Conn.ExeCute("UPDATE blog_Info SET blog_PerPage=8")

SQL="CREATE TABLE blog_Keywords("&_
					"key_ID int IDENTITY (1,1) NOT NULL,"&_
					"key_Text varchar(100),"&_
					"key_URL varchar(255),"&_
					"key_Image varchar(50)"&_
					") "
Conn.ExeCute(SQL)

Conn.ExeCute("ALTER TABLE [blog_Links] ADD link_IsShow yesno DEFAULT False")

Conn.ExeCute("ALTER TABLE [blog_Links] ADD link_IsMain yesno DEFAULT False")

Conn.ExeCute("UPDATE blog_Links SET link_IsShow=False")

Conn.ExeCute("UPDATE blog_Links SET link_IsMain=False")

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

Conn.Close
Set Conn=Nothing%>