在已有数据库中创建表
<%setconn=server.CreateObject("adodb.connection")
sql="provider=microsoft.jet.oledb.4.0;datasource="&server.MapPath("BOOK.mdb")
conn.opensql
Conn.Execute("createtablebbb(idAUTOINCREMENT(1,1),p_idtext(100),eemoney,ffdatetimedefaultdate(),ggguid,hhsingledefault50,iidouble,jjsmallint,kklong,llimage,mmmemo,ooyesnonotnull,ppTINYINT,qqnumeric(18,4),aabinary,bbbit,ccsmallint,)")
%>

'将a表另外复制一个b表（只复制结构，不含数据）
　　<%
　　Setrs=Server.CreateObject("ADODB.Recordset")
　　sql="select*intobfromawhere1=0"
　　rs.opensql,conn,1,1
　　rs.update
　　rs.close
　　setrs=nothing
　　%>
　　◆'将a表另外复制一个b表（包括制结构和数据）
　　<%
　　Setrs=Server.CreateObject("ADODB.Recordset")
　　sql="select*intobfroma
　　rs.opensql,conn,1,1
　　rs.update
　　rs.close
　　setrs=nothing
　　%>

12、新建数据库并新建表
<%
'首先建立一个数据库文件
setconn=server.createobject("adox.catalog")
conn.create"provider=microsoft.jet.oledb.4.0;"&"datasource="&server.mappath("lifeda1.mdb")
%>
<%
'向该数据库中建立相应表格
setrs=server.createobject("adox.table")
'该表格名称
rs.name="aaaa"
'该表格字段(字段类型见相关附录)
rs.columns.append"id",3
rs.columns.append"liuyan",203
rs.columns.append"dt",7
conn.tables.appendrs
setrs=nothing
%>
至此，表格建立完毕。希望能对您有帮助。
字段类型附录
203备注
7日期/时间
128二进制
11布尔
6货币
133日期
134时间
135日期时间
5双精度
4单精度
3数字
204二进制
202字符串