我必须使用经典的 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 库,但没有任何改变。
您可以更好地取消注释这一行(因为它可能有效) 设置 m_DbConn = Server.CreateObject("ADODB.Connection")
并删除这个:(因为它不起作用) 设置 m_DbConn = 新 ADODB.Connection