【www.gdgbn.com--Access】

 
<%sub Col_show(tablename)%>
     
     <%
     tablename=trim(tablename)
     const adSchemaColumns=4
     set rs=Conn.openSchema(adSchemaColumns,Array(empty, empty,tablename,empty))
     rs.movefirst
     %> 
    
     <%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/3369/