asp创建mysql表_ASP动态创数据库及表(Access)

db="data.mdb"

Set conn = Server.CreateObject("ADODB.Connection")

ConnStr = "Provider = Microsoft.Jet.OLEDB.4.0;Data Source ="&Server.MapPath(db)

'创建数据库

Set Ca = Server.CreateObject("ADOX.Catalog")

call Ca.Create(""&ConnStr&"")

Set Ca = Nothing

'创建表

conn.open ConnStr

strSQL ="CREATE TABLE links ( "

strSQL =strSQL +"id autoincrement PRIMARY KEY, "

strSQL =strSQL +"logo text(50) Null, "

strSQL =strSQL +"zhu text NULL, "

strSQL =strSQL +"itime datetime NULL default now(), "

strSQL =strSQL +"display int NULL default 0, "

strSQL =strSQL +"ftbbs_pass text(1) Null default N"

strSQL =strSQL +") "

Conn.Execute(strSQL)

%>