<% Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "DSN=teacher;"
'显示属性内容
Response.Write "<TABLE border=3>"
Response.Write "<TR><TD>Name属性</TD>"
Response.Write "<TD>Type属性</TD>"
Response.Write "<TD>Attributes属性</TD>"
Response.Write "<TD>Value属性</TD></TR>"
For i=0 To conn.properties.count-1
  Response.Write "<TR><TD>"&conn.properties(i).name&"</TD>"
  Response.Write "<TD>"&conn.properties.item(i).type&"</TD>"
  Response.Write "<TD>"&conn.properties(i).attributes&"</TD>"
  Response.Write "<TD>"&conn.properties(i).value&"</TD></TR>"
Next
Set conn = nothing %>
