ASP

本类阅读TOP10

·asp常用数据库连接方法和技巧
·无组件生成BMP验证码
·一些常用的辅助代码 (网络收藏)
·JavaScript实现的数据表格:冻结列、调整列宽和客户端排序
·VisualStudio.NET_2003及其 MSDN 下载地址
·ASP模拟MVC模式编程
·图片以二进制流输出到网页
·MD5加密算法 ASP版
·ASP.NET编程中的十大技巧
·改进 ASP 的字符串处理性能

分类导航
VC语言Delphi
VB语言ASP
PerlJava
Script数据库
其他语言游戏开发
文件格式网站制作
软件工程.NET开发
如何显示一个数据库里的所有表(ACCESS)

作者:未知 来源:月光软件站 加入时间:2005-5-13 月光软件站

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




相关文章

相关软件