<%DBName = "c:\AccessDB.mdb"if Request.Form("SubmitCreate")<>"" then'创建数据库Set mycat = Server.CreateObject( "ADOX.Catalog" )mycat.Create "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & DBNameif err.number=0 thenResponse.Write("<script>alert('数据库创建成功')</script>")end ifend if%><%if Request.Form("SubmitCreateTable")<>"" then'创建数据表Set conn = Server.CreateObject( "ADODB.Connection" )conn.Open "PROVIDER=MICROSOFT.JET.OLEDB.4.0;DATA SOURCE=" & DBNameSql="CREATE TABLE TestTable("&_ "id int IDENTITY (1, 1) NOT NULL ,"&_ "name varchar(255) NOT NULL ,"&_ "pass varchar(255) NULL ,"&_ "logintimes int Default 0 NOT NULL ,"&_ "createtime datetime Default now() NOT NULL "&_")"conn.execute(sql)if err.number=0 thenResponse.Write("<script>alert('数据表创建成功')</script>")end ifend if%>

评论