%@ 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>春风精彩之查看数据库属性/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

%>