如何显示一个数据库里的所有表（ACCESS）-ASP教程,数据库相关

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

一般为<!–#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%>