如何顯示一個表（ACCESS） - 中國WEB開發者網絡 (http://www.webasp.net) -- 技術教程 (http://www.webasp.net/article/) --- 如何顯示一個表（ACCESS） (http://www.webasp.net/article/18/17666.htm)

-- 作者：未知 -- 發佈日期： 2005-04-19

<%sub Table_show(tablename)%>    <table  border="1" cellspacing="0" cellpadding="3" style='border-collapse:collapse;' bordercolor="#006699">    <%    set rs=server.CreateObject("adodb.recordset")    sql="select * from "&tablename    rs.open sql,conn,1,1    %>       <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><%=rs(i)%></td>    <%next%>       </tr>    <%rs.movenext    loop    rs.close    set rs=nothing%>     </table>    <%end sub%>

webasp.net