怎樣獲知數(shù)據(jù)庫的連接屬性？

字號： 小 中 大


    <%@ Language=VBScript %>
    <%
        Option Explicit
        dim objCNN
        dim intCTProps
        dim item
        dim vbCRLF
       
        vbCRLF = chr(10)
        Response.Write "<html><head></head><body>" & vbCRLF
        Response.Write "<p><h3>春風精彩之查看數(shù)據(jù)庫屬性</h3></p>" & vbCRLF
        Response.Write vbCRLF
        set objCNN = Server.CreateObject("ADODB.connection")
        objCNN.Open "DSN=VicTest"
       
        Response.Write "<table border=1><tr><td width='10%'>>編號</td>" & vbCRLF
        Response.Write "<td width='70%'>>Name</td><td width='20%'>>值</td></tr>" & vbCRLF
       
        intCTProps = 0
        for each item in objCNN.Properties
            intCTProps = intCTProps + 1
            Response.Write "<tr><td>" & intCTProps & "</td>" & vbCRLF
            Response.Write "<td>" & item.name & "</td>" & vbCRLF
            Response.Write "<td>" & item.value & "</td></tr>" & vbCRLF
        next
        Response.Write "</table>" & vbCRLF
        Response.Write vbCRLF
        Response.Write "</body></html>" & vbCRLF
       
        set objCNN = Nothing
        set intCTProps = nothing
        set item = nothing
        set vbCRLF = nothing
    %>