ADO 对象在经典 ASP 页面中不起作用

Question

我必须使用经典的 asp 来访问数据库，但是当创建连接对象时，会发生一些事情，中断脚本的执行而不会给出错误。你能给我一些建议吗？谢谢你。

<%
    On Error Resume Next

    Class ImmobiliADO       
        Private m_DbConn
        Private strConn
        Private cmd
        Private Rs
        Private SQL

        Public Function open_Connection()
            'Set m_DbConn = Server.CreateObject("ADODB.Connection")
            Set m_DbConn = new ADODB.Connection
            
            strConn = "DSN=DSN_MySQL;" & "User=root;" & "Password=root;"
            m_DbConn.Open strConn

            If m_DbConn.Errors.Count > 0 Then
                Response.write "Connection error: #" & m_DbConn.Errors.Item(0)
                m_DbConn.Errors.Clear

                open_Connection = Nothing
            Else
                open_Connection = m_DbConn
            End If
            
        End Function        

        '...

    End Class

    Dim immobili_ADO
    Set immobili_ADO = New ImmobiliADO

    Dim test
    Set test = immobili_ADO.open_Connection()    
    Response.write "Connesso al db..." & test.State      
    
    If Err.Number <> 0 Then
        WScript.Echo "Error: " & Err.Number
        WScript.Echo "Source: " &  Err.Source
        WScript.Echo "Description: " &  Err.Description
        Err.Clear
    End If    
    
%>

我使用 Windows 10 安装了 mdac 库，但没有任何改变。

Answer 1

您可以更好地取消注释这一行（因为它可能有效） 设置 m_DbConn = Server.CreateObject("ADODB.Connection")

并删除这个：（因为它不起作用） 设置 m_DbConn = 新 ADODB.Connection