如何显示一个表（ACCESS）_

如何显示一个表（ACCESS）

2005-4-20 7:20:22　　作者：模板天下收集整理　　来源：未知　网友评论 0 条　论坛

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

共分1页 [1]

>> 相关文章