ASP代码直接增加、删除ACCESS表和字段

本例主要讲述如何应用create、drop和alter语句增加、删除access表和字段，代码如下：

<%

    增加、删除表和字段
     ├create table 表名(field1 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 field type[(size)][not null]
     ├alter table 表名 drop column field

dim objconn,strsql
set objconn = server.createobject("adodb.connection")
objconn.open "driver={microsoft access driver (*.mdb)};dbq=" & server.mappath("webjxcom.mdb")
strsql = "create table mzwucom(id counter primary key,name char(20),url char(50),hits short)"
objconn.execute(strsql)
strsql = "alter table mzwucom add column field1 text(20)"
objconn.execute(strsql)
strsql = "alter table mzwucom add column field2 text(20)"
objconn.execute(strsql)
strsql = "alter table mzwucom drop column field2"
objconn.execute(strsql)
strsql = "drop table mzwucom"
objconn.execute(strsql)
%>