<%
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=" & DBName
if err.number=0 then
Response.Write("<script>alert('数据库创建成功')</script>")
end if
end if
%>
<%
if Request.Form("SubmitCreateTable")<>"" then
'创建数据表
Set conn = Server.CreateObject( "ADODB.Connection" )
conn.Open "PROVIDER=MICROSOFT.JET.OLEDB.4.0;DATA SOURCE=" & DBName
Sql="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 then
Response.Write("<script>alert('数据表创建成功')</script>")
end if
end if
%>

评论