怎样获知数据库的连接属性？
（福利推荐：你还在原价购买阿里云服务器？现在阿里云0.8折限时抢购活动来啦！4核8G企业云服务器仅2998元/3年，立即抢购>>>：9i0i.cn/aliyun）
<%@ 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
%>
相关文章
如何制作一个防止多次刷新计数的图片计数器？...2006-11-11
如何判断URL格式是否符合规范？...2006-11-11
如何编写TOP 10之类的排行榜？...2006-11-11
禁止站外提交表单(author:killer)...2006-11-11
可以在线创建文件夹吗？...2006-11-11
如何实现歌曲在线点播？...2006-11-11
如何提示用户打开Cookie？...2006-11-11
如何上传一个单纯的HTML文件？...2006-11-11
如何显示一个文本文件？...2006-11-11
ASP问答集...2006-11-11
最新评论