用asp增加、刪除access數據表和字段

本例主要講述如何應用Create、Drop和Alter語句增加、刪除ACCESS數據表和字段，代碼及註釋如下：
<%
'增加、刪除數據表和字段
'增加數據表：Create Table 表名(字段名 type[(size)] [null|not null] [default eExpression] [primary key][,field2...])
'字段類型type:counter;text(num);char(num);varchart(num);memo;short;long;single;double;date/time;logical;currency;oleobject
'刪除數據表：Drop Table 表名
'增加字段：Alter Table 表名 Add Column 字段名 type[(size)][not null]
'刪除字段：Alter Table 表名 Drop Column 字段名
Dim objConn,strsql
Set objConn = Server.CreateObject("ADODB.Connection")
objConn.open "Driver={Microsoft Access Driver (*.mdb)};Dbq=" & Server.MapPath("zzksycn.mdb")
'mytable爲表名，myfield爲字段名
strsql = "Create table mytable(id counter primary key,name char(20),url char(50),hits short)"
objConn.execute(strsql)
strsql = "Alter table mytable add column myfield text(50)"
objConn.execute(strsql)
strsql = "Alter table mytable drop column myfield"
objConn.execute(strsql)
strsql = "Drop table mytable"
objConn.execute(strsql)
%>