用sql语句动态的创建access表

　　用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
%>