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