b2b_leftmenu.asp

来自「小型网上购物网站」· ASP 代码 · 共 60 行

<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<TABLE align="center" cellSpacing=0 cellPadding=0 width=190 border=0>
  <TBODY>
    <TR> 
      <TD width="989" vAlign=top>

        <table cellspacing=1 cellpadding=0 width="100%" border=0>
          <tbody>
            <%
	  rs.open "select categoryid,category from category where hide=0 and ParentID = 0 order by categoryorder",conn,1,1
	if rs.eof and rs.bof then
		   rs.close
	  response.Write "<tr><td align=center>还没有商品分类</td></tr>"
	  else
	  do while not rs.eof %>
            <tr> 
              <td height=20 colspan="2" valign=center><a href=b2b_cplist.asp?catid=<% = rs("categoryid") %>><b><font color=#ff6600>
                <% = rs("category") %>
             </font></b></a></td>
            </tr>
			<tr><td colspan="2" background=images/bg_04.gif border=0></td></tr>
            <% 
	  Dim rs1
	  set rs1 = server.CreateObject("adodb.recordset")
	  rs1.open "select categoryid,category from category where hide=0 and ParentID="&rs("categoryid")&" order by categoryorder",conn,1,1
	  
	 do while not rs1.eof %>
            <tr> 
              <td valign="top" bgcolor="#F7F7F7">·<a href=b2b_cplist.asp?catid=<% = rs1("categoryid") %>> 
                <% = rs1("category") %>
              </a></td>
              <td width="51%" valign="top" bgcolor="#f7f7f7">
				<%
	  rs1.movenext  %>
				·<a href=b2b_cplist.asp?catid=<% = rs1("categoryid") %>> 
                <% = rs1("category") %>
              </a></td>
              <% if rs1.eof then %>
              <%
	  exit do
	  else %>
            </tr>
            <%	  rs1.movenext 
	 end if
	  loop
	  rs1.close
	  set rs1 = nothing %>
            <%
	  rs.movenext
	  loop
	  rs.close
	  end if
	  %>
          </tbody>
      </table> </TD>
    </TR>
  </TBODY>
</TABLE>