<%
'建立留言本数据表中的所有留言的记录集
sql="select * from fzq_info order by fzq_time desc"
set res_lyb=server.CreateObject("adodb.recordset")
res_lyb.open sql,conn,3,2,1
%>
<%
do while not res_lyb.eof
fzqname=res_lyb("fzq_name")
fzqemail=res_lyb("fzq_email")
fzqtime=res_lyb("fzq_time")
fzqmemo=res_lyb("fzq_memo")
fzqmemo=convert(fzqmemo
%>
这里放要显示的内容用表格
<%
res_lyb.movenext '数据集的记录指针指向下一条记录
loop
res_lyb.close() '关闭记录集
set res_lyb=nothing '设定记录为空释放内存
set conn=nothing '设定数据库连接为空,释放内存
'以上整个循环在 table 外,所以循环N次就将产生N个table的表格