一聚教程网:一个值得你收藏的教程网站

热门教程

如何显示一个表(ACCESS)

时间:2022-06-30 10:47:02 编辑:袖梨 来源:一聚教程网

<%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%>

热门栏目