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

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 & _
"driver version: " & cnn1.properties("driver version") & vbcr & _
"driver odbc version: " & cnn1.properties("driver odbc version")

response.write strversioninfo

cnn1.close

end sub

call versionx()