Sql server 2008 ADO连接字符串错误

很抱歉，前景混乱。这基本上是asp网站的.inc文件。目前，我们已经从当前的MySQL迁移到MSSQL 2008。在MySQL中，我能够连接到数据库。但我无法在MSSQL 2008下连接它。该脚本在MySQL中运行良好。请帮忙

信息1：我正在使用Dreamweaver。

信息2：我已尝试strConnect=“Provider=sqloledb；Library=DBMSSOCN；Data Source=xx.xx.xx；1433；Initial Catalog=mydatabasename；User Id=userID；Password=Password；”

信息3：我无法通过网站访问数据库，这是错误消息我得到500-内部服务器错误。
您正在查找的资源有问题，无法显示。

信息4：我对想法迷茫了。我找遍了世界各地http://www.connectionstrings.com/sql-server-2008, http://support.microsoft.com/kb/238949，仍然不走运。

信息5：我尝试使用.udl文件获取连接字符串。每当我测试连接时，它都能正常工作，并显示已通过的连接

`<% On Error Resume Next
Set objConn = Nothing
strConnect = "Provider=sqloledb;Network Library=DBMSSOCN;Data Source=ABC-EF-SQLS01"
    "Initial Catalog=mydatabasename;"
    "User Id=userID;Password=password;" 
Set objConn = Server.CreateObject("ADODB.Connection")
objConn.Open strConnect


Function UserIP()

    UserIP = Request.ServerVariables ( "HTTP_X_FORWARD_FOR" )

    If UserIP = "" Then

        UserIP = Request.ServerVariables ( "REMOTE_ADDR" )

    End If

End Function 


Function BinaryToString(Binary)


  Dim cl1, cl2, cl3, pl1, pl2, pl3
  Dim L
  cl1 = 1
  cl2 = 1
  cl3 = 1
  L = LenB(Binary)

  Do While cl1<=L
    pl3 = pl3 & Chr(AscB(MidB(Binary,cl1,1)))
    cl1 = cl1 + 1
    cl3 = cl3 + 1
    If cl3>300 Then
      pl2 = pl2 & pl3
      pl3 = ""
      cl3 = 1
      cl2 = cl2 + 1
      If cl2>200 Then
    pl1 = pl1 & pl2
    pl2 = ""
    cl2 = 1
      End If
    End If
  Loop
  BinaryToString = nl2br(pl1 & pl2 & pl3)
End Function

Function nl2br(str)
    If Not isNull(str) Then
        nl2br=replace(str,VbCrLf, "<br >&nbsp; ")
    End If
End function

Function AddZeros(str)

    iLength = len(str)
    iZeros = 9 - iLength

    For i=1 to iZeros

        str = "0" & str

    Next

    AddZeros = "<font color=green><b>AKC-"&str&"</b></font>"

End Function

Function DisplayDateFormat(str)
    arrDate = Split(CStr(str),"/")
    DisplayDateFormat = arrDate(1)&"-"&arrDate(0)&"-"&arrDate(2)

End Function


Function DBDateFormat(str)


End Function

Function doubleQuote(ByVal fixText)
    doubleQuote = Replace(fixText, "'", "''")
End Function

那么 pl1=pl1和pl2 pl2=“” cl2=1 如果结束 如果结束 环 二进制串=nl2br（pl1、pl2和pl3） 端函数 函数nl2br（str） 如果不是isNull（str），则 nl2br=替换（str，VbCrLf，“
”） 如果结束 端函数 函数AddZeros（str） 长度=长度（str） iZeros=9-iLength 对于i=1到iZeros str=“0”和str 下一个 AddZeros=“AKC-”&str&“ 端函数 函数DisplayDateFormat（str） 截止日期=拆分（CStr（str），“/”） DisplayDateFormat=arrDate（1）&“-”和arrDate（0）&“-”和arrDate（2） 端函数 函数DBDateFormat（str） 端函数 函数双引号（ByVal fixText） doubleQuote=替换（固定文本，“”，“”） 端函数 %>应该是

Provider=sqloledb；网络库=DBMSSOCN；数据源=xx.xx.xx.xx，1433

注意显式端口和网络字的逗号

尽管最好只使用datasource=xxxx

并通过cliconfg中的xxxx别名设置网络库细节