用asp代码生成access数据库

阿杰

asp代码生成access数据库，然后在生成的数据库中创建表。

1. < %
   
2. DBName = server.mappath(".")&"\AccessDB.mdb"
   
3. '创建数据库
   
4. Set mycat = Server.CreateObject( "ADOX.Catalog" )
   
5. mycat.Create "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & DBName
   
6. if err.number=0 then
   
7. Response.Write("<script>alert('数据库创建成功')</script>")
   
8. end if
   
9. % >
   
10. < %
    
11. '创建数据表
    
12. Set conn = Server.CreateObject( "ADODB.Connection" )
    
13. conn.Open "PROVIDER=MICROSOFT.JET.OLEDB.4.0;DATA SOURCE=" & DBName
    
14. Sql="CREATE TABLE TestTable("&_
    
15. "id counter IDENTITY (1, 1) NOT NULL ,"&_
    
16. "name varchar(255) NOT NULL ,"&_
    
17. "pass varchar(255) NULL ,"&_
    
18. "logintimes int Default 0 NOT NULL ,"&_
    
19. "createtime datetime Default now() NOT NULL "&_
    
20. ")"
    
21. conn.execute(sql)
    
22. if err.number=0 then
    
23. Response.Write("<script>alert('数据表创建成功')</script>")
    
24. end if
    
25. % >
    

复制代码

阿杰

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也不需要再设置了。