shopxp_fenlei1.asp

IMPORTANT YOU SHOUD LOAD IT DOWN FOR USING

<table width="100%" border="0" align="center" cellpadding="0" cellspacing="0">
          <tr>
            <td height="20" align="center"><%
set rs=server.CreateObject("adodb.recordset")
rs.open "select * from shopxp_btype order by shopxpbe_idorder",conn,1,1
if rs.recordcount=0 then
	response.write "<br>目前没有商品分类"
else
	while not rs.eof
%>
                <table width="93%" cellspacing="0" cellpadding="0" border="0">
                  <tr align="center">
                    <td height="28"  colspan=3  style="CURSOR: hand" onMouseOver="this.bgColor='#E3F4F0';" onMouseOut="this.bgColor='#FFFFFF';"><a href="xpCatalog_xpDesc.asp?action_key_order=big&amp;shopxpbe_id=<%=rs("shopxpbe_id")%>"><b><font color="#FF6600"><%=rs("shopxpbe_name")%></font></b></a></td>
                  </tr>
                  <%
	    set rs_s=server.CreateObject("adodb.recordset")
	    rs_s.open "select * from shopxp_stype where shopxpbe_id=" & rs("shopxpbe_id") & " order by shopxpse_idorder",conn,1,1
	    if rs_s.recordcount=0 then 
%>
                
                  <%
	    else
	    	i=0
		while not rs_s.eof
%>
                  <tr>
                    <td width="33%" height="18" ><div align="center"><a href="xpCatalog_xpsmall_Desc.asp?action_key_order=small&amp;shopxpbe_id=<%=rs("shopxpbe_id")%>&amp;shopxpse_id=<%=rs_s("shopxpse_id")%>"> <%=rs_s("shopxpse_name")%></a></div></td>
                    <%rs_s.movenext
					if rs_s.eof then 
					else
				%>
                    <td width="34%" height="18" ><div align="center"><a href="xpCatalog_xpsmall_Desc.asp?action_key_order=small&amp;shopxpbe_id=<%=rs("shopxpbe_id")%>&amp;shopxpse_id=<%=rs_s("shopxpse_id")%>"> <%=rs_s("shopxpse_name")%></a></div></td>
                  </tr>
                  <%
				rs_s.movenext
			    end if%>
                  <%
			wend
	    	end if
				%> 
				  <tr> 
                <td colspan=3 height=1 background="img_shopxp/bj_x1.gif" ></td>
              </tr>                
              </table>
              <%
	    rs_s.close
	    set rs_s=nothing
	rs.movenext
	wend
end if
rs.close
set rs=nothing
%></td>
          </tr>
        </table>