连接好数据库之后 可以用以下代码枚举出数据库的表名

   Set rs=Conn.OpenSchema(20)
      While not rs.EOF
         Response.Write("所在数据库名:" & rs(0) & "<br>")
        Response.Write("所有者:" & rs(1) & "<br>")
          Response.Write("表 名:" & rs(2) & "<br>")
         Response.Write("表的类型:" & rs(3) & "<br>")
         rs.MoveNext
      Wend

假设我们现在要获取数据库tdd里的所有字段名
用以下代码

  <%
       Dim i,j，Sql
       Set rs=Server.CreateObject(“ADODB.Recordset”) 
       Sql="select * from [tdd] where 2<>2"
       rs.open sql,Conn,1,1
       j=rs.Fields.count
       For i=0 to (j-1) 
          Response.Write("第" & i+1 & "个字段名：" & rs.Fields(i).Name & "<br><br>")
       Next
     %>