如何显示一个数据库里的所有表（ACCESS）

使用这个过程的前提条件是要在调用前写好数据库连接的代码。

一般为<!--#include file="conn.asp"-->

<%sub Schema_show()%>

<table border="1" cellspacing="0" cellpadding="3" style='border-collapse:collapse;' bordercolor="#006699">

<%

set rs=Conn.openSchema(20)

rs.movefirst

%>

<tr>

<%for i=0 to rs.fields.count-1%>

<td><%=rs.fields(i).name%></td>

<%next%>

</tr>

<%do while not rs.eof%>

<tr>

<%for i=0 to rs.fields.count-1%>

<td>

<%if rs.fields(i).name="TABLE_NAME" and (rs("TABLE_TYPE")="TABLE" or rs("TABLE_TYPE")="VIEW") then%>

<a href="?table=<%=rs(i)%>"><%=rs(i)%></a>

<%else%>

<%=rs(i)%>

<%end if%>

</td>

<%next%>

</tr>

<%rs.movenext

loop

rs.close

set rs=nothing%>

</table>

<%end sub%>