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

栏目: 编程语言 · 发布时间: 7年前

内容简介:怎样获知数据库的连接属性?

<%@ 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

%>


以上就是本文的全部内容,希望本文的内容对大家的学习或者工作能带来一定的帮助,也希望大家多多支持 码农网

查看所有标签

猜你喜欢:

本站部分资源来源于网络,本站转载出于传递更多信息之目的,版权归原作者或者来源机构所有,如转载稿涉及版权问题,请联系我们

The Effective Engineer

The Effective Engineer

Edmond Lau / The Effective Bookshelf, Palo Alto, CA. / 2015-3-19 / USD 39.00

Introducing The Effective Engineer — the only book designed specifically for today's software engineers, based on extensive interviews with engineering leaders at top tech companies, and packed with h......一起来看看 《The Effective Engineer》 这本书的介绍吧!

Base64 编码/解码
Base64 编码/解码

Base64 编码/解码

RGB HSV 转换
RGB HSV 转换

RGB HSV 互转工具

HSV CMYK 转换工具
HSV CMYK 转换工具

HSV CMYK互换工具