在已有數(shù)據(jù)庫中創(chuàng)建表 
<% 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表（只復制結構，不含數(shù)據(jù)） 
　　<% 
　　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表（包括制結構和數(shù)據(jù)） 
　　<% 
　　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、新建數(shù)據(jù)庫并新建表 
<%   
'首先建立一個數(shù)據(jù)庫文件   
set  conn=server.createobject("adox.catalog")   
conn.create  "provider=microsoft.jet.oledb.4.0;"&"data source="&server.mappath("lifeda1.mdb")   
%>   
<%   
'向該數(shù)據(jù)庫中建立相應表格   
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  數(shù)字  
204  二進制   
202  字符串