ASP如何读取SqlServer库中的表名,MSSQL,数据库

<%
SET Conn=Server.CreateObject("ADODB.Connection")
Conn.Open "Driver={SQL server};Description=sqldb;SERVER=192.168.0.1;UID=sa;PWD=123456;DATABASE=sqldb"
%>
读SqlServer库中的表名:
<%
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
%>