在已有数据库中创建表  <% 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  字符串