建立好数据库连接后,
下面代码可查出表名:
<%
Set rs=Conn.OpenSchema(adSchemaTables)
do While not rs.EOF
Response.Write("表 名:" & rs(2) & "<br>")
rs.MoveNext
loop
%>

下面代码可查出字段名:

<%
set rs=server.createobject("adodb.recordset")
sql="select*from liuyian"
rs.open sql,conn,1,1
for i=0 to rs.fields.count -1
response.write rs.fields(i).name & "<br>"
next
%>

当然你可组合一下一次完成