自动显示数据库字段的问题？

如何在页面自动读取数据库表中所有字段，然后显示出来以供输入各项信息，这样表结构变了程序不用修改，

请各位帮忙提提思路，最好有简单典型的代码。十分感谢！

我查本站以前的帖子有类似的主题，但好像都删了，点击后说没有此页！
---------------------------------------------------------------

1   
2dim rs   
3Set rs = Server.CreateObject("ADODB.Recordset")   
4rs.open "select * from tableName", conn, 0, 1

1<table align="center" bgcolor="#A000C0" border="0" cellpadding="3" cellspacing="1">
2<tr bgcolor="#e0fff0">

for i=0 to rs.fields.count-1
response.write" <th>"&rs.fields(i).name&"</th>"& chr(13)
next

do while not rs.eof
data=" <tr bgcolor="#ffffff">"& chr(13)
for i=0 to rs.fields.count-1
data=data&" <td>"&rs.fields(i).value &"</td>"& chr(13)
next
response.write data&" </tr>"& chr(13)
rs.movenext
loop
rs.close : Set rs=nothing
Conn.close : Set Conn=nothing

1</table>