asp 连接数据库 Sql 2000 与 Access 的连接方法
来源：互联网 发布：java ping ip 编辑：程序博客网 时间：2024/05/16 15:13
SQL
<% On Error Resume Next
dim conn
dim connstr
Set conn = Server.CreateObject("ADODB.Connection")
Connstr = "Driver={SQL Server};Server=127.0.0.1;Uid=sa;Pwd=sa;Database=classinfo"
conn.Open connstr
If Err Then
Err.Clear
Set conn = Nothing
Response.Write "数据库连接文件出错，请联系管理员。"
Response.End
End If
sub CloseConn()
conn.close
set conn=nothing
end sub
%>
Access
<% On Error Resume Next
dim conn
dim connstr
dim db
db="/data.mdb" '请修改数据库路径
Set conn = Server.CreateObject("ADODB.Connection")
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(""&db&"")
conn.Open connstr
If Err Then
Err.Clear
Set conn = Nothing
Response.Write "数据库连接文件出错，请联系管理员。"
Response.End
End If
sub CloseConn()
conn.close
set conn=nothing
end sub
%>
