多列显示

<table width="100%" height="100%" border="0">

<tr>

<%

Set rs= Server.CreateObject("ADODB.Recordset")

rs.open "select * from btype order by id asc",conn,1,1

%>

<%

dim tempnum2

tempnum2=1

do while not rs.eof

%>

<td>

<img src="images/sanjiao.gif" width="9" height="9">

</td>

<td>

<strong>

<a href="infos.asp?id=<%=trim(rs("id"))%>" name="<%=trim(rs("id"))%>"><%=trim(rs("type"))%></a>

<%

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

rs2.open "Select count(*) as gs from st_infos where btype='"&rs("id")&"' and flag='0'",conn

gs=rs2(0)

%>

<font color="#83837E">[<%response.Write(gs)%>]</font>

<%

rs2.close

set rs2=nothing

%>

</strong>

</td>

<%

if (tempnum2 mod 2)=0 then response.write "</tr>" '两列显示mod 2

tempnum2=tempnum2+1

rs.movenext

loop

%>

</tr>

<%

rs.close

set rs=nothing

%>

</table>