在已有数据库中创建表 
<% set conn=server.CreateObject("adodb.connection") 
sql="provider=microsoft.jet.oledb.4.0;data source="&server.MapPath("BOOK.mdb") 
conn.open sql 
Conn.Execute("create table bbb(id AUTOINCREMENT(1,1),p_id text(100),ee money,ff datetime default date(),gg guid,hh single default 50,ii double,jj smallint,kk long,ll image,mm memo,oo yesno not null,pp TINYINT,qq numeric(18,4),aa binary,bb bit,cc smallint,)") 
%> 

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

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