如何获得ADO的连接信息？
来源：asp之家 时间：2009-11-23 20:33:00
在ASP中，如何获得ADO的连接信息？
具体方法见下列代码：
<％
Sub ConnectionInfo(strcnn)
Dim cnn
Set cnn = Server.CreateObject("ADODB.Connection")
cnn.Open strcnn
Response.Write "ADO Version: " &_
cnn.Version & "<br>" & vbCrlf
Response.Write "DBMS Name: " &_
cnn.Properties("DBMS Name") & "<br>" & vbCrlf
Response.Write "OLE DB Version: " &_
cnn.Properties("OLE DB Version") & "<br>" & vbCrlf
Response.Write "Provider Name: " &_
cnn.Properties("Provider Name") & "<br>" & vbCrlf
Response.Write "Provider Version: " &_
cnn.Properties("Provider Version") & "<br>" & vbCrlf
Response.Write "Provider Friendly Name: " &_
cnn.Properties("Provider Friendly Name") & "<br>" & vbCrlf
If Instr(LCase(cnn.Properties("Provider Name")),"oledb") = 0 Then
Response.Write "Driver Name: " &_
cnn.Properties("Driver Name") & "<br>" & vbCrlf
Response.Write "Driver Version: " &_
cnn.Properties("Driver Version") & "<br>" & vbCrlf
Response.Write "Driver ODBC Version: " &_
cnn.Properties("Driver ODBC Version") & "<br>" & vbCrlf
End If
cnn.Close
Set cnn = Nothing
End Sub
％>
<HTML>
<head>
<title>asp教程之ADO连接信息</title>
</head>
<BODY>
<％
Dim strcnn
strcnn = "provider=sqloledb;data source=.;initial catalog=pubs;user id=sa;password=;"
Call ConnectionInfo(strcnn)
％>
</BODY>
</HTML>
0
投稿猜你喜欢
重构中的模块化设计:样式的作用域
MySQL复制的概述、安装、故障、技巧、工具
用ASP编程实现网络内容快速查找
sqlserver索引的原理及索引建立的注意事项小结
在ASP中使用SQL语句之11:记录统计
oracle下巧用bulk collect实现cursor批量fetch的sql语句
详解链接的rel与target
ASP代码中的容错机制
一个完美网站的101项指标.第七部分.W3C标准
自适应浏览器位置的div效果
2008农历新年各大网站Logo秀
javascript阻止事件冒泡和浏览器的默认行为
优化你的ASP程序及优化网页
学习ASP的理由 分析小结
在不能中寻找可能 QZONE个性相册设计的始末
CSS? 3D? 3D CSS?
破解 屏蔽 防框架代码 top.location != self.location
菜鸟课堂：MySQL权限的详细解答
实战手记：让百万级数据瞬间导入SQL Server
