ASP中连接SQL的代码

[ztj7831]

我在本地机器上建立了数据库"bb"
本机SQL地址为abc/aa
请问采用怎样的连接方式好?
请给一段代码谢谢

[liudong963]

使用下面的代码，可以写成一个头文件来调用：

Function getConn(Provider, DataSource, UserName, PassWord, Host)
On Error Resume Next
Dim SQLConnStr
Set getConn = Nothing
Set getConn = CreateObject("ADODB.Connection")

If Host = "" Or IsNull(Host) Or IsEmpty(Host) Then Host = "(local)"
If UserName = "" Or IsNull(UserName) Or IsEmpty(UserName) Then UserName = "sa"
If IsNull(PassWord) Or IsEmpty(PassWord) Then PassWord = ""

If Provider <> "SQL" Then
'使用MS-Access来链接
SQLConnStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & DataSource
Else
'采用SQL数据库来链接
SQLConnStr = "Provider=SQLOLEDB.1;User ID=" & UserName & ";Password=" & PassWord & ";Initial Catalog=" & DataSource & ";Data Source= " & Host
End If

getConn.open SQLConnStr

If Err.Number <> 0 Then
Set getConn = Nothing
Err.Clear
End If

End Function

在调用时，如果要与SQL数据库链接，就这样：
Set MyConn=getConn("SQL", 数据库名, 用户名, 用户密码, SQL主机)

如果要与MS － Access链接：
Set MyConn=getConn("MS", 数据库名, '', '', '')

[ztj7831]

原来就是一个CONN.ASP文件;
内容是:
<%
set oConn=server.createobject("ADODB.connection")
oConn.ConnectionString ="Provider=SQLOLEDB.1;Password=p740522;Persist Security Info=True;User ID=109468;Initial Catalog=sa;Data Source=local;Connect Timeout=15"
oConn.Open
%>

可是我连接的时候总报"oConn.Open"行出错;
请就次代码指点
十分感谢

[liudong963]

改为下面样子试试，用户密码和用户名一定要对，如果不知道什么用户和用户密码，就让用户密码留空，用户名为sa试试啊：

<%
set oConn=server.createobject("ADODB.connection")
oConn.ConnectionString ="Provider=SQLOLEDB.1;Password=用户密码;Persist Security Info=True;User ID=sa或其他用户名;Initial Catalog=数据库名;Data Source=(local0);Connect Timeout=15"
oConn.Open
%>