<html>
<head>
<title>Properties数据集合和property对象应用示例</title>
</head>
<body>
<%
Dim cnn,strConn
strConn="Dbq="&Server.Mappath("jxgl.mdb")& _
";Driver={Microsoft Access Driver (*.mdb)}"
Set cnn=Server.CreateObject("ADODB.Connection") 
cnn.Open strConn
%>
Connection对象中包含<%=Cnn.Properties.Count%>个属性<br>
<table border="1">
 <tr>
  <td>Name属性</td>
  <td>Type属性</td>
  <td>Value属性</td>
 </tr>
<%
For i=0 to Cnn.Properties.Count-1
%>
<tr>
 <td><%=Cnn.Properties(i).Name%></td>
 <td><%=Cnn.Properties(i).Type%></td>
 <td><%=Cnn.Properties(i).Value%>&nbsp;</td>
</tr>
<%
Next
Set Cnn=Nothing
%>
</table>
</body>
</html>
