|
|
|
|
如何显示一个表（ACCESS） |
|
|
|
作者：未知 来源：月光软件站 加入时间：2005-5-13 月光软件站 |
<%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%>
|
|
相关文章：相关软件： |
|
本类阅读TOP10