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