我要评论<%@ 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
%>
发表评论