按列显示数据表中字段的值

数据|显示

　　在织梦论坛看到有很多会员提到如何通过循环do while调用数据表字段的问题。网上也见过这种方法很多，但感觉都挺复杂的，有的都动用Mod运算符进行取余运算了。包括我自己，在实际工作中实现效果也有点过于复杂了。试着改用一下分列显示的效果（分列显示效果见下图），感觉代码简练了好多，而且易于初学asp的用户修改。

代码如下：

<%
'绑定数据库Conn，略......

Set rs = Conn.Execute("select top 7 ID from news order by ID asc")
if not(rs.eof and rs.bof) then
response.write "<table width=""80%"" border=""1"">" & Chr(10)
do while not rs.eof
response.write " <tr width=""20%"">" & Chr(10)
for i=1 to 4
response.write " <td>"
if not rs.eof then
response.write rs("ID")
rs.movenext
else
response.write "."
end if
response.write "</td>" & Chr(10)
next
response.write " </tr>" & Chr(10)
loop
response.write "</table>"
else
response.write "未有记录......"
end if
rs.close : set rs = nothing
%>