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