ASP链接数据库代码怎么写？青岛星网跟大家分享：ASP链接Access与sqlserver的代码代码范例，不同的sql数据库版本不一样，链接代码不同，下面请看详细介绍。
<%
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
%><%
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驱动哦。当然也有可能会有不同，大家可以自行测试。
在线QQ：
