多列显示

 <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>
阅读更多
文章标签: border table
个人分类: asp
想对作者说点什么? 我来说一句

winform 自动完成多列显示

2011年12月19日 6.63MB 下载

MultiColumnCombo

2012年02月03日 21KB 下载

VB中的ListBox多列显示实例

2013年03月06日 3KB 下载

没有更多推荐了,返回首页

加入CSDN,享受更精准的内容推荐,与500万程序员共同成长!
关闭
关闭