怎樣獲知數(shù)據(jù)庫(kù)的連接屬性?
<%@ 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>春風(fēng)精彩之查看數(shù)據(jù)庫(kù)屬性</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%'>>編號(hào)</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
%>
相關(guān)文章
如何編寫高質(zhì)量的前端代碼(快手電商前端前端代碼規(guī)范)
這篇文章主要介紹了如何編寫高質(zhì)量的前端代碼,這篇規(guī)范寫的不錯(cuò)!需要的朋友可以參考下2024-02-02如何防范利用刷新來(lái)“作弊”的計(jì)數(shù)器?
如何防范利用刷新來(lái)“作弊”的計(jì)數(shù)器?...2006-11-11如何把一長(zhǎng)串?dāng)?shù)字分位顯示?
如何把一長(zhǎng)串?dāng)?shù)字分位顯示?...2006-11-11如何用FileSystemObject組件來(lái)做一個(gè)站內(nèi)搜索?
如何用FileSystemObject組件來(lái)做一個(gè)站內(nèi)搜索?...2006-11-11如何讓一個(gè)方框欄內(nèi)的文字滾動(dòng)顯示?
如何讓一個(gè)方框欄內(nèi)的文字滾動(dòng)顯示?...2006-11-11