用asp代码生成access数据库
asp代码生成access数据库，然后在生成的数据库中创建表。< %
DBName = server.mappath(".")&"\AccessDB.mdb"
'创建数据库
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
% >
< %
'创建数据表
Set conn = Server.CreateObject( "ADODB.Connection" )
conn.Open "PROVIDER=MICROSOFT.JET.OLEDB.4.0;DATA SOURCE=" & DBName
Sql="CREATE TABLE TestTable("&_
"id counter 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
% >
ASP连接access数据库代码，保存为conn.asp文件，因为每个页面都使用这个，所以将它单独做成一个文件，方便其他文件调用。
<%
set rs=server.CreateObject("adodb.recordset")
db="db1.mdb"
set conn=server.CreateObject("adodb.connection")
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(db)
conn.open connstr
%>
这样，当其他文件要调用这个文件方法：<!--#include file="conn.asp"-->就可以了，rs也不需要再设置了。
页:
[1]