网络编程
位置:首页>> 网络编程>> Asp编程>> 如何获得ADO的连接信息?

如何获得ADO的连接信息?

 来源:asp之家 发布时间:2009-11-23 20:33:00 

标签:ado,连接,asp

在ASP中,如何获得ADO的连接信息?

    具体方法见下列代码:

<%
Sub ConnectionInfo(strcnn)
    Dim cnn
    Set cnn = Server.CreateObject("ADODB.Connection")
    cnn.Open strcnn
    Response.Write "ADO Version: " &_
                cnn.Version & "<br>" & vbCrlf
    Response.Write "DBMS Name: " &_
                cnn.Properties("DBMS Name") & "<br>" & vbCrlf
    Response.Write "OLE DB Version: " &_
                cnn.Properties("OLE DB Version") & "<br>" & vbCrlf
    Response.Write "Provider Name: " &_
                cnn.Properties("Provider Name") & "<br>" & vbCrlf
    Response.Write "Provider Version: " &_
                cnn.Properties("Provider Version") & "<br>" & vbCrlf
    Response.Write "Provider Friendly Name: " &_
                cnn.Properties("Provider Friendly Name") & "<br>" & vbCrlf
    If Instr(LCase(cnn.Properties("Provider Name")),"oledb") = 0 Then
      Response.Write "Driver Name: " &_
                  cnn.Properties("Driver Name") & "<br>" & vbCrlf
      Response.Write "Driver Version: " &_
                  cnn.Properties("Driver Version") & "<br>" & vbCrlf
      Response.Write "Driver ODBC Version: " &_
                  cnn.Properties("Driver ODBC Version") & "<br>" & vbCrlf
    End If
    cnn.Close
    Set cnn = Nothing
End Sub
%>
<HTML>
<head>
<title>asp教程之ADO连接信息</title>
</head>
<BODY>
<%
Dim strcnn
strcnn = "provider=sqloledb;data source=.;initial catalog=pubs;user id=sa;password=;"
Call ConnectionInfo(strcnn)
%>
</BODY>
</HTML>

0
投稿

猜你喜欢

手机版 网络编程 asp之家 www.aspxhome.com