<%
'增加数据表：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)
%>