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