【www.gdgbn.com--Access】

<%sub Table_show(tablename)%>
     
     <%
     set rs=server.CreateObject("adodb.recordset")
     sql="select * from "&tablename
     rs.open sql,conn,1,1
     %> 
    
     <%for i=0 to rs.fields.count-1%> 
    <%=rs.fields(i).name%>
     <%next%> 
    
     <%do while not rs.eof%> 
    
     <%for i=0 to rs.fields.count-1%> 
    <%=rs(i)%>
     <%next%> 
    
     <%rs.movenext
     loop
     rs.close
     set rs=nothing%> 
          
<%end sub%>

本文来源：http://www.gdgbn.com/shujuku/3357/