脚本宝典收集整理的这篇文章主要介绍了ASP连接Access数据库的几种方法，脚本宝典觉得挺不错的，现在分享给大家，也给大家做个参考。
1. 相对与比较老的环境，建议使用第二个
set dbconnection=Server.CREATEOBJECT("ADODB.CONNECTION")
DBPath = Server.MapPath("customer.mdb")
dbconnection.OPEn "driver={Microsoft Access Driver (*.mdb)};dbq=" & DBPath
SQL="select * From auth where id='" & user_id &"'"
SET uplist=dbconnection.EXECUTE(SQL)
2.win2003以上的机器，建议用此方法，效率更高
set dbconnection=Server.CreateObject("ADODB.Connection")
DBPath = Server.MapPath("customer.mdb")
dbconnection.Open "PRovider=microsoft.jet.oledb.4.0;data source="&dbpath
SQL="select * from auth where id='" & user_id &"'"
SET uplist=dbconnection.EXECUTE(SQL)
3.
DBPath = Server.MapPath("customer.mdb")
set session("rs")=Server.CreateObject("ADODB.Recordset")
' rs=Server.CreateObject("ADODB.Recordset")
connstr="provider=microsoft.jet.oledb.4.0;data source="&dbpath
SQL="select * from auth where id='" & user_id &"'"
session("rs").Open sql,connstr,1,3
4. 建odbc源xxx
set conn=server.createobject("Adodb.connection")
conn.open "DSN=xxx;UID=;PWD=;Database=customer
5、附上一个经常用的sqlserver与access通用的连接数据库代码
<% Const DataBaseType=1 If DataBaseType=0 then DBPath="/jb51/news.asp" SqlNowString = "Now()" ystr=true nstr=false suiji="rnd(id)" Else '如果是SQL数据库，请认真修改好以下数据库选项 DataServer = "wwwjb51net" '数据库服务器IP DataUser = "jb51net" '访问数据库用户名 DataBaseName = "jb51net" '数据库名称 DataBasePsw = "密码" '访问数据库密码 SqlNowString = "getdate()" ystr=1 nstr=0 suiji="newid()" End if On Error Resume Next If DataBaseType = 1 Then ConnStr="driver={SQL Server};server="&dataserver&";UID="&datauser&";PWD="&databasepsw&";Database="&databasename Else ConnStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(DBPath) End If Set conn = Server.CreateObject("ADODB.Connection") conn.open ConnStr If Err Then Err.Clear:Set conn = Nothing:Response.WrITe "数据库连接出错，请检查Conn.asp文件中的数据库参数设置。":Response.End %>
完整测试代码
Microsoft Access Driver
<%
db="1.mdb"
dim conn,db
dim connstr
on error resume next
connstr="DBQ="+server.mappath(""&db&"")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
set conn=server.createobject("ADODB.CONNECTION")
if err then
err.clear
else
conn.open connstr
end if
t=timer()
for i=0 to 1000
Set Res=Conn.Execute("select (Select top 1 name from [aa] where id=1) as oldname,(Select top 1 name from [aa] where id=2) as newname from [aa]")
aa=Res("oldname")
bb=Res("newname")
Res.close
set Res=nothing
next
response.write "用时:"&(timer()-t)
%>
microsoft.jet.oledb.4.0
<%
db="1.mdb"
dim conn,db
dim connstr
on error resume next
connstr="provider=microsoft.jet.oledb.4.0;data source="+server.mappath(""&db&"")
set conn=server.createobject("ADODB.CONNECTION")
if err then
err.clear
else
conn.open connstr
end if
t=timer()
for i=0 to 1000
Set Res=Conn.Execute("select (Select top 1 name from [aa] where id=1) as oldname,(Select top 1 name from [aa] where id=2) as newname from [aa]")
aa=Res("oldname")
bb=Res("newname")
Res.close
set Res=nothing
next
response.write "用时:"&(timer()-t)
%>
到此这篇关于ASP连接Access数据库的几种方法的文章就介绍到这了,更多相关ASP连接Access数据库内容请搜索脚本宝典以前的文章或继续浏览下面的相关文章希望大家以后多多支持脚本宝典！
以上是脚本宝典为你收集整理的ASP连接Access数据库的几种方法全部内容，希望文章能够帮你解决ASP连接Access数据库的几种方法所遇到的问题。
本图文内容来源于网友网络收集整理提供，作为学习参考使用，版权属于原作者。
如您有任何意见或建议可联系处理。小编QQ：384754419，请注明来意。