<%@ Language=VBScript %>
<%
Option Explicit
dim objCNN
dim intCTProps
dim item
dim vbCRLF
vbCRLF = chr(10)
Response.Write "" & vbCRLF
Response.Write "春风精彩之查看数据库属性
" & vbCRLFResponse.Write vbCRLF
set objCNN = Server.CreateObject("ADODB.connection")
objCNN.Open "DSN=VicTest"
Response.Write " Response.Write " intCTProps = 0 for each item in objCNN.Properties intCTProps = intCTProps + 1 Response.Write " Response.Write " Response.Write " next Response.Write "
" & vbCRLF " & vbCRLF>编号 " & vbCRLF>Name >值 " & vbCRLF" & intCTProps & " " & vbCRLF" & item.name & " " & vbCRLF" & item.value & "
Response.Write vbCRLF
Response.Write "" & vbCRLF
set objCNN = Nothing
set intCTProps = nothing
set item = nothing
set vbCRLF = nothing
%>