用sql语句动态的创建access表[转]

< %
 nowtime  =  now()
tablename  =   cstr ( year (nowtime)) + " _ " + cstr ( second (nowtime))
response.write tablename  
db_path  =   " test.mdb "
Set  conn =  Server.CreateObject( " ADODB.Connection " )
connstr  =   " Provider=Microsoft.Jet.OLEDB.4.0;Data Source= " & Server.MapPath(db_path)
conn.Open connstr
Set  rs  =  Server.CreateObject ( " ADODB.Recordset " )
sql  =   " create table  " &  tablename  & "  (id integer primary key,name text,Birthday datetime) "
rs.Open sql,conn, 2 , 3
% >