在ASP中读取ADO、DBMS、OLEDB、Provider、ODBC Driver的版本

在ASP中读取ADO、DBMS、OLEDB、Provider、ODBC Driver的版本(1)

Sub VersionX()

Dim cnn1
Dim strCnn
Dim strVersionInfo

' Open connection.
Set cnn1 = Server.CreateObject("ADODB.Connection")
strCnn = "driver={SQL Server};server=srv;" & _
"user id=sa;passWord=;database=Pubs;"
cnn1.Open strCnn

strVersionInfo = "ADO Version: " & cnn1.Version & VBCr & _
"DBMS Name: " & cnn1.Properties("DBMS Name") & vbCr & _
"DBMS Version: " & cnn1.Properties("DBMS Version") & vbCr & _
"OLE DB Version: " & cnn1.Properties("OLE DB Version") & vbCr & _
"Provider Name: " & cnn1.Properties("Provider Name") & vbCr & _
"Provider Version: " & cnn1.Properties("Provider Version") & vbCr & _
"Driver Name: " & cnn1.Properties("Driver Name") & vbCr & _