在ASP中获得ADO的连接信息（转）-优快云博客

本文介绍了一个使用VBScript创建ADO数据库连接的方法，并展示了如何通过该连接获取并显示数据库系统的相关信息，包括ADO版本、DBMS名称、OLEDB版本等。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

Sub ConnectionInfo(strcnn)
　　Dim cnn
　　Set cnn = Server.CreateObject("ADODB.Connection")
　　cnn.Open strcnn
　　Response.Write "ADO Version: " &_
　　cnn.Version & "
" & vbCrlf
　　Response.Write "DBMS Name: " &_
　　cnn.Properties("DBMS Name") & "
" & vbCrlf
　　Response.Write "OLE DB Version: " &_
　　cnn.Properties("OLE DB Version") & "
" & vbCrlf
　　Response.Write "Provider Name: " &_
　　cnn.Properties("Provider Name") & "
" & vbCrlf
　　Response.Write "Provider Version: " &_
　　cnn.Properties("Provider Version") & "
" & vbCrlf
　　Response.Write "Provider Friendly Name: " &_
　　cnn.Properties("Provider Friendly Name") & "
" & vbCrlf
　　If Instr(LCase(cnn.Properties("Provider Name")),"oledb") = 0 Then
　　　Response.Write "Driver Name: " &_
　　　cnn.Properties("Driver Name") & "
" & vbCrlf
　　　Response.Write "Driver Version: " &_
　　　cnn.Properties("Driver Version") & "
" & vbCrlf
　　　Response.Write "Driver ODBC Version: " &_
　　　cnn.Properties("Driver ODBC Version") & "
" & vbCrlf
　　End If
　　cnn.Close
　　Set cnn = Nothing
End Sub
%>

Dim strcnn
strcnn = "provider=sqloledb;data source=.;initial catalog=pubs;user id=sa;password=;"
Call ConnectionInfo(strcnn)
%>

来自 “ ITPUB博客 ” ，链接：http://blog.itpub.net/10294527/viewspace-124607/，如需转载，请注明出处，否则将追究法律责任。

转载于:http://blog.itpub.net/10294527/viewspace-124607/