怎样获知数据库的连接属性?

阿里西西2023-04-27文章分类:网站建设

下面小编就为大家分享一篇怎样获知数据库的连接属性?,具有很好的参考价值,希望对大家有所帮助。

<%@ Language=VBScript %>

<%

    Option Explicit

    dim objCNN

    dim intCTProps

    dim item

    dim vbCRLF

   

    vbCRLF = chr(10)

    Response.Write "" & vbCRLF

    Response.Write "

春风精彩之查看数据库属性

" & vbCRLF

    Response.Write vbCRLF

    set objCNN = Server.CreateObject("ADODB.connection")

    objCNN.Open "DSN=VicTest"

   

    Response.Write "

" & vbCRLF

    Response.Write "

" & vbCRLF

   

    intCTProps = 0

    for each item in objCNN.Properties

        intCTProps = intCTProps + 1

        Response.Write "

" & vbCRLF

        Response.Write "

" & vbCRLF

        Response.Write "

" & vbCRLF

    next

    Response.Write "

>编号>Name>
" & intCTProps & "" & item.name & "" & item.value & "
" & vbCRLF

    Response.Write vbCRLF

    Response.Write "" & vbCRLF

   

    set objCNN = Nothing

    set intCTProps = nothing

    set item = nothing

    set vbCRLF = nothing

%>

本站部分内容转载自互联网,如果有网站内容侵犯了您的权益,可直接联系我们删除,感谢支持!