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