使用这个过程的前提条件是要在调用前写好数据库连接的代码。
一般为<!--#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%>
