ASP链接Access与sqlserver的代码集合

ASP链接数据库代码怎么写？编程之家跟大家分享：ASP链接Access与sqlserver的代码代码范例，不同的sql数据库版本不一样，链接代码不同，下面请看详细介绍。

ASP链接Access数据库的代码

<%

option explicit

dim startime,endtime,conn,connstr,db

startime=timer()

'要连接的数据库名称

db="data/test.mdb"

Set conn = Server.CreateObject("ADODB.Connection")

connstr="Provider=Microsoft.Jet.OLEDB.4.0;

Data Source=" & Server.MapPath(db)

'若服务器采用较老版本Access驱动，请尝试使用注释行的连接方法:

'connstr="driver={Microsoft Access Driver (*.mdb)};

dbq=" & Server.MapPath(db)

conn.Open connstr

function CloseDatabase

Conn.close

Set conn = nothing

End Function

%>

asp连接sqlServer数据库的代码

<%

Dim sqlDatabaseName,sqlPassword,sqlUsername,sqlLocalName,ConnStr,Conn

startime=timer()

sqlDatabaseName = "qdxw" 'sql数据库名

sqlUsername = "sa" 'sql数据库用户名

sqlPassword = "123456" 'sql数据库用户密码

sqlLocalName = "(local)" 'sql主机IP地址（服务器名）

'ConnStr = "Provider = sqloledb; User ID = " & sqlUsername & "; Password = " & sqlPassword & "; Initial Catalog = " & sqlDatabaseName & "; Data Source = " & sqlLocalName & ";" '2000sql数据库驱动

'ConnStr = "Provider = sqlNCLI10; User ID = " & sqlUsername & "; Password = " & sqlPassword & "; Initial Catalog = " & sqlDatabaseName & "; Data Source = " & sqlLocalName & ";" ’2005数据库驱动

ConnStr = "Provider = sqlNCLI.1; User ID = " & sqlUsername & "; Password = " & sqlPassword & "; Initial Catalog = " & sqlDatabaseName & "; Data Source = " & sqlLocalName & ";" '2008数据库驱动

Set conn = Server.CreateObject("ADODB.Connection")

conn.open ConnStr

If conn.state=2 Then

'Response.Write("正在连接")

ElseIf conn.state=1 Then

'Response.Write("连接已经打开")

Else

'Response.Write("对不起，无法打开连接")

End If

If Err Then

err.Clear

Set Conn = nothing

Response.Write "数据库连接出错，请检查连接字串!"

Response.End

End If

%>

编程之家温馨提醒：sqlserver 2000的数据库用：sqloledb，2005的数据库用：sqlNCLI10，2008的数据库用：sqlNCLI.1驱动哦。当然也有可能会有不同，大家可以自行测试。