这段代码的作用是实现将查询所得的内容分为两列显示，每列显示8条。不过我没看很懂，感觉有点儿问题，很明显最后一段的do-loop循环中缺少了i变量的变化控制，并且缺少了一个</td>结束标签，估计是作者在copy代码时疏忽所致。

　　前面部分就不写了，从定义sql查询语句，建立记录集开始。

 

<%sqltext="select top 16 id,name from danwei where enable=1 or pid=4 or flag=1 order by pl desc"
rs.Open sqltext,cn,1,1
i=1
%>

 

<tr>
<td class="font2" valign="top" height="27">
<%do while not rs.EOF and i<10 %>
<a href="<%=linkclientdetail%>?id=<%=rs("id")%>" class=nav2><%=checktitle(trim(rs("name")),11)%></a><br>
<%rs.MoveNext
i=i+1
loop%>

</td>

<td class="font2" valign="top" height="27">
<%do while not rs.EOF and i<17 %>
<a href="<%=linkclientdetail%>?id=<%=rs("id")%>" class=nav2><%=checktitle(trim(rs("name")),11)%></a><br>
<%rs.MoveNext
loop
rs.Close %>