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

页面导航:首页 > 网络编程 > 编程10000问 > 怎样获知数据库的连接属性?

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

来源:互联网 作者:脚本宝典 时间:2015-06-22 12:49 【

%@ Language=VBScript % % Option Explicit dim objCNN dim intCTProps dim item dim vbCRLF vbCRLF = chr(10) Response.Write htmlhead/headbody vbCRLF Response.Write ph3春风精彩之查看数据库属性/h3/p vbCRLF Response.Write vbCRLF set objC
<%@ 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
%>
Tags:

相关文章

    文章评论

    最 近 更 新
    热 点 排 行
    Js与CSS工具
    代码转换工具
    
    <