这段网页怎么编写？

<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="105%" id="AutoNumber1" height="604">

<tr>

<td width="100%" height="110">

<p align="right">

<img border="0" src="IMAGES/ad0.jpg" width="549" height="110"></td>

</tr>

<tr>

<td width="100%" height="32">

<p align="center"><%=dreamsun_sitename%>

<%set rs2=server.CreateObject("adodb.recordset")

sql="select * from zhuanti order by id DESC"

rs2.open sql,conn,1,1

%>

</td>

</tr>

<tr>

<td width="100%" height="462" valign="top" valign="top">

<table border="0" width="100%" id="table1" bordercolorlight="#000000" bordercolordark="#000000">

<tr>

<td width="26"> </td>

<td width="147">专题名称</td>

<td>专题介绍</td>

</tr>

<tr>

<td width="26"><%=rs2("id")%></td>

<td width="147"><a href="?zhtid=<%=rs2("id")%>&cz=edit"><%=rs2("zhtname")%> </a></td>

<td><%=left(trim(rs2("zhtnote")),100)%></td>

</tr>

</table>

请问怎样改才可以让zhuanti里的数据 用表格的方式列出来！

大家帮我改改,改的好,可以多加分！！！

分析：

出现这样的问题的原因是你记录集中只有一条记录，recordset是一次取一个记录的，而你用了sql="select * from zhuanti order by id DESC" 得到的数据就是最后那条数据了。

方法：

不用急，应该用一个循环语句，让它取了一个数据之后，再改变指针取下面的数据，……

<%

dim i,sql

set rs2=server.CreateObject("adodb.recordset")

sql="select * from zhuanti order by id DESC"

rs2.open sql,conn,1,1

i=1 /*用来做循环*/

do while not (rs2.eof or err)

%>

<tr> …你的表格数据…<td>

<%

i=i+1

if i>PageSize then exit do /*如果你设置了页面显示记录最大数的话*/

rs2.MoveNext

loop

%>

%>