update.asp

我的小网站个人利用业余时间设计的

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

Conn.ExeCute("ALTER TABLE [blog_Comment] ADD comm_PostIP varchar(20)")

Conn.ExeCute("ALTER TABLE [blog_Content] ALTER log_Quote varchar(255)")

Conn.ExeCute("ALTER TABLE [blog_Content] ADD log_IsShow yesno DEFAULT True")

Conn.ExeCute("UPDATE blog_Content SET log_IsShow=True")

SQL="CREATE TABLE blog_Links("&_
					"link_ID int IDENTITY (1,1) NOT NULL,"&_
					"link_Name varchar(50),"&_
					"link_URL varchar(255),"&_
					"link_Image varchar(255),"&_
					"link_Order int Default 0"&_
					") "
Conn.ExeCute(SQL)

Conn.ExeCute("ALTER TABLE [blog_Member] ALTER mem_HideEmail yesno DEFAULT False")

Conn.ExeCute("ALTER TABLE [blog_Member] ADD mem_RegIP varchar(20)")

Conn.ExeCute("ALTER TABLE [blog_Member] ADD mem_Local varchar(50)")

Conn.ExeCute("ALTER TABLE [blog_TrackBack] ALTER tb_URL varchar(255)")

Response.Write("升级成功，请删除update.asp文件")

Conn.Close
Set Conn=Nothing%>