<!--#include file="include/nowshop.asp"-->
<META http-equiv=Content-Type content="text/html; charset=gb2312">
<body leftmargin="0" topmargin="0" marginwidth="0" marginheight="0"> 
<center>
  <TABLE cellSpacing=0 cellPadding=0 width=768 align=center bgColor=#ffffff 
border=0>
    <TBODY>
      <TR> 
        <TD height=5></TD>
      </TR>
      <TR> 
        <TD> <TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
            <TBODY>
              <TR> 
                <TD vAlign=top width=175> <TABLE cellSpacing=0 cellPadding=0 width=175 
            background=images/l_menu.gif border=0>
                    <TBODY>
                      <TR> 
                        <TD bgColor=#ededed height=1></TD>
                      </TR>
                      <TR align=right> 
                        <TD> <TABLE cellSpacing=0 cellPadding=0 width="98%" border=0>
                            <TBODY>
                              <TR> 
                                
                        <TD height=18><SPAN 
                        style="FONT-WEIGHT: bold; FONT-SIZE: 12px"><FONT 
                        color=#ff3300>&nbsp;&nbsp;商</FONT><FONT color=#ff6600>品</FONT><FONT 
                        color=#ff00cc>分</FONT><FONT 
                      color=#9900ff>类</FONT></SPAN></TD>
                              </TR>
                              <TR> 
                                <TD> 
<TABLE align=center cellSpacing=0 cellPadding=0 width=175 border=0>
	
<%
color1="77CC00"     '分类列表中大类的颜色
color2="0066ff"     '分类列表中中类的颜色
viewmidclass=1      '是否显示中类，1表示显示，0表示不显示
dim larcode(100)    '最多支持100个大类
dim midcode(20)     '最多支持20个中类

	'以下是分类列表，首先读取全部大类，然后根据每个大类读取各自的中类
	response.write "<table width='175' border='0' align='center' cellpadding=1 cellspacing=1>"
	Dim a,b,c
	sqllar="select Distinct LarCode,LarSeq from bclass order by LarSeq"
	Set rsprodtree=Server.CreateObject("ADODB.RecordSet") 
	rsprodtree.Open sqllar,conn,1,1 

	if rsprodtree.bof and rsprodtree.eof then
		response.write "<tr><td width=175 colspan=3 height=100 align=center>对不起，本商城暂未开业</td></tr>"
	else
		
		i=0
		Do While Not rsprodtree.eof	
		i=i+1
		larcode(i)=rsprodtree("LarCode")
		rsprodtree.movenext	
		if rsprodtree.eof then exit do
		Loop
	end if
	set rsprodtree=nothing
	set sqllar=nothing


	
	FOR t=1 to i
	response.write "<tr><td width=175 colspan=3 height=1  background=images/l_menu_line.gif></td></tr>"
	response.write "<tr><td width='175'  class='dfont' height=25 colspan=3 valign=middle>&nbsp;&nbsp;<a href='class.asp?LarCode="&LarCode(t)&"'><font color=#4876d3><B>"&LarCode(t)&"</B></font></a></td></tr>"
	response.write "<tr>"

if viewmidclass<>0 then           '是否显示中类
	'以下是根据前面读取的大类名称，读取各个大类下的中类
	sqllar="select MIDCode,MIDSeq from bclass where larcode='"&larcode(t)&"' order by MIDSeq"
	Set rsprodtree=Server.CreateObject("ADODB.RecordSet") 
	rsprodtree.Open sqllar,conn,1,1 
		m=0
		Do While Not rsprodtree.eof	
		m=m+1
		midcode(m)=rsprodtree("midCode")
		rsprodtree.movenext	
		if rsprodtree.eof then exit do
		Loop

	set rsprodtree=nothing
	set sqllar=nothing

		for n=1 to m
		if n mod 2<>0 then
		response.write "<td width=85 align=right  class='dfont'><a href='class.asp?LarCode="&LarCode(t)&"&MidCode="&MidCode(n)&"'>"&MidCode(n)&"</a></TD>"
		else
		response.write "<td align=center width=5>|</td><td  width=85 class='dfont'><a href='class.asp?LarCode="&LarCode(t)&"&MidCode="&MidCode(n)&"'>"&MidCode(n)&"</a></TD></tr><tr>"
		end if
		next
end if

	next

%>
  <%
if rs_pay("xuanze4")=1 then
%>
<TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
          <TBODY>
		   <TR><td height="10"></td></TR>
            <TR vAlign=center> 
              <TD height=22><SPAN 
            style="FONT-WEIGHT: bold; FONT-SIZE: 12px; COLOR: #ffffff">&nbsp;&nbsp;<a href="class.asp?action=tejia"><FONT 
                        color=#ff3300>热</font><FONT color=#ff6600>点</font><FONT 
                        color=#ff00cc>排</font><FONT 
                      color=#9900ff>行</font></a></SPAN></TD>
            </TR>
            <TR> 
              <TD> <TABLE cellSpacing=1 cellPadding=0 width="100%" 
            border=0>
                  <TBODY>
                    <TR bgColor=#ffffff> 
                      <TD><table>				<%
set cqrsprod=conn.execute("select  * from bproduc where online=true order by ClickTimes desc,AddDate desc")
Do While Not cqrsprod.eof
prodname=lleft(cqrsprod("ProdName"),24)
response.write "<tr><td class=td1 height=22 bgcolor=#FFFFFF>&nbsp;·<a href='list.asp?ProdId="&cqrsprod("ProdId")&"'><font alt='热门商品TOP"&K+1&"'>"&prodname&"</font></a></td></tr>"
k=k+1
if k>renmen_num-1 then exit do
if cqrsprod.eof then exit do
cqrsprod.movenext
loop
set cqrsprod=nothing
%></table>
</TD>
                    </TR>
                  </TBODY>
                </TABLE>
				
				<% end if %>

</table>
</TD>
                              </TR>
                            </TBODY>
                          </TABLE></TD>
                      </TR>
                      <TR> 
                        <TD bgColor=#ededed height=1></TD>
                      </TR>
                    </TBODY>
                  </TABLE>

<% set rs_zuoxia=conn.execute("select * from adv1") 
hf130pic= rs_zuoxia("hf130pic")
hf130url= rs_zuoxia("hf130url")
hf130tit= rs_zuoxia("hf130tit")
hf131pic= rs_zuoxia("hf131pic")
hf131url= rs_zuoxia("hf131url")
hf131tit= rs_zuoxia("hf131tit")
hf132pic= rs_zuoxia("hf132pic")
hf132url= rs_zuoxia("hf132url")
hf132tit= rs_zuoxia("hf132tit")
hf133pic= rs_zuoxia("hf133pic")
hf133url= rs_zuoxia("hf133url")
hf133tit= rs_zuoxia("hf133tit")
hf134pic= rs_zuoxia("hf134pic")
hf134url= rs_zuoxia("hf134url")
hf134tit= rs_zuoxia("hf134tit")
hf135pic= rs_zuoxia("hf135pic")
hf135url= rs_zuoxia("hf135url")
hf135tit= rs_zuoxia("hf135tit")
hf136pic= rs_zuoxia("hf136pic")
hf136url= rs_zuoxia("hf136url")
hf136tit= rs_zuoxia("hf136tit")
hf137pic= rs_zuoxia("hf137pic")
hf137url= rs_zuoxia("hf137url")
hf137tit= rs_zuoxia("hf137tit")
hf138pic= rs_zuoxia("hf138pic")
hf138url= rs_zuoxia("hf138url")
hf138tit= rs_zuoxia("hf138tit")
hf139pic= rs_zuoxia("hf139pic")
hf139url= rs_zuoxia("hf139url")
hf139tit= rs_zuoxia("hf139tit")

if rs_zuoxia("xuanze3")=1 then
%>

<TABLE id=__01 cellSpacing=0 cellPadding=0 width=175 
            border=0>
                  <TBODY>
                    <TR> 
                      <TD align="right"><a href='<%=hf130url%>' title='<%=hf130tit%>' target=_blank>
	<img border=0 width=175 src='<%=hf130pic%>'></a></TD>
                    </TR>
                  </TBODY>
                </TABLE>
<% end if %>


<% 
if rs_zuoxia("xuanze3")=2 then
%>

<TABLE id=__01 cellSpacing=0 cellPadding=0 width=175 
            border=0>
                  <TBODY>
                    <TR> 
                      <TD align="right"><a href='<%=hf131url%>' title='<%=hf131tit%>' target=_blank>
	<img border=0 width=175 src='<%=hf131pic%>'></a></TD>
                    </TR>
                    <TR> 
                      <TD align="right"><a href='<%=hf132url%>' title='<%=hf132tit%>' target=_blank>
	<img border=0 width=175 src='<%=hf132pic%>'></a></TD>
                    </TR>
                  </TBODY>
                </TABLE>
<% end if %>


<%
if rs_zuoxia("xuanze3")=3 then
%>

<TABLE id=__01 cellSpacing=0 cellPadding=0 width=175 
            border=0>
                  <TBODY>
                    <TR> 
                      <TD align="right"><a href='<%=hf133url%>' title='<%=hf133tit%>' target=_blank>
	<img border=0 width=175 src='<%=hf133pic%>'></a></TD>
                    </TR>
                    <TR> 
                      <TD align="right"><a href='<%=hf134url%>' title='<%=hf134tit%>' target=_blank>
	<img border=0 width=175 src='<%=hf134pic%>'></a></TD>
                    </TR>
                    <TR> 
                      <TD align="right"><a href='<%=hf135url%>' title='<%=hf135tit%>' target=_blank>
	<img border=0 width=175 src='<%=hf135pic%>'></a></TD>
                    </TR>
                  </TBODY>
                </TABLE>
<% end if %>


<%
if rs_zuoxia("xuanze3")=4 then
%>

<TABLE id=__01 cellSpacing=0 cellPadding=0 width=175 
            border=0>
                  <TBODY>
				   <TR> 
                      <TD align="right"><a href='<%=hf136url%>' title='<%=hf136tit%>' target=_blank>
	<img border=0 width=175 src='<%=hf136pic%>'></a></TD>
                    </TR>

                    <TR> 
                      <TD align="right"><a href='<%=hf137url%>' title='<%=hf137tit%>' target=_blank>
	<img border=0 width=175 src='<%=hf137pic%>'></a></TD>
                    </TR>
                    <TR> 
                      <TD align="right"><a href='<%=hf138url%>' title='<%=hf138tit%>' target=_blank>
	<img border=0 width=175 src='<%=hf138pic%>'></a></TD>
                    </TR>
                    <TR> 
                      <TD align="right"><a href='<%=hf139url%>' title='<%=hf139tit%>' target=_blank>
	<img border=0 width=175 src='<%=hf139pic%>'></a></TD>
                    </TR>
                  </TBODY>
                </TABLE>
<% end if %>

                  
        </TD>
                
            <TD vAlign=top> 
              <TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
                    <TBODY>
                      <TR align=middle> 
                        <TD height=5> <TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
                            <TBODY>
                              <TR align=right> 
                                
                            <TD><!--#include file="indexshop1.asp"-->
</TD>
                              </TR>
                            </TBODY>
                          </TABLE></TD>
                      </TR>
                    </TBODY>
                  </TABLE>
                  <TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
                    <TBODY>
                      <TR> 
                        <TD height=5></TD>
                      </TR>
                    </TBODY>
                  </TABLE>
                  
            </TABLE>
  <% 
if rs_pay("xuanze2")=1 then
%>
<table><tr><td width="768" height="2"></td></tr></table>
  <TABLE cellSpacing=0 cellPadding=0 width=768 align=center bgColor=#ffffff 
border=0>
    <TBODY>
      <TR> 
        <TD> <TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
            <TBODY>
              <TR> 
                    <TD><table width="768" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor=#FFFFFF>
	<tr><td align=center><a href='<%=hf14url%>' title='<%=hf14tit%>' target=_blank>
	<img border=0 width=768 src='<%=hf14pic%>'></a>
	</td></tr>
</table></TD>
              </TR>
            </TBODY>
          </TABLE></TD>
      </TR>
    </TBODY>
  </TABLE>
  <% end if %>
  
    <% 
if rs_pay("xuanze2")=2 then
%>
<table><tr><td width="768" height="2"></td></tr></table>
  <TABLE cellSpacing=0 cellPadding=0 width=768 align=center bgColor=#ffffff 
border=0>
    <TBODY>
      <TR> 
        <TD> <TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
            <TBODY>
              <TR> 
                    <TD><table width="768" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor=#FFFFFF>
	<tr><td align=center><a href='<%=hf15url%>' title='<%=hf15tit%>' target=_blank>
	<img border=0 width=384 src='<%=hf15pic%>'></a>
	</td><td align=center><a href='<%=hf10url%>' title='<%=hf10tit%>' target=_blank>
	<img border=0 width=384 src='<%=hf10pic%>'></a>
	</td></tr>
</table></TD>
              </TR>
            </TBODY>
          </TABLE></TD>
      </TR>
    </TBODY>
  </TABLE>
  <% end if %>

    <% 
if rs_pay("xuanze2")=3 then
%>
<table><tr><td width="768" height="2"></td></tr></table>
  <TABLE cellSpacing=0 cellPadding=0 width=768 align=center bgColor=#ffffff 
border=0>
    <TBODY>
      <TR> 
        <TD> <TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
            <TBODY>
              <TR> 
                    <TD><table width="768" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor=#FFFFFF>
	<tr><td align=center><a href='<%=hf11url%>' title='<%=hf11tit%>' target=_blank>
	<img border=0 width=256 src='<%=hf11pic%>'></a>
	</td><td align=center><a href='<%=dourl%>' title='<%=dotit%>' target=_blank>
	<img border=0 width=256 src='<%=dopic%>'></a>
	</td><td align=center><a href='<%=odurl%>' title='<%=odtit%>' target=_blank>
	<img border=0 width=256 src='<%=odpic%>'></a>
	</td></tr>
</table></TD>
              </TR>
            </TBODY>
          </TABLE></TD>
      </TR>
    </TBODY>
  </TABLE>
  <% end if %>

    <% 
if rs_pay("xuanze2")=4 then
%>
<table><tr><td width="768" height="2"></td></tr></table>
  <TABLE cellSpacing=0 cellPadding=0 width=768 align=center bgColor=#ffffff 
border=0>
    <TBODY>
      <TR> 
        <TD> <TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
            <TBODY>
              <TR> 
                    <TD><table width="768" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor=#FFFFFF>
	<tr><td align=center><a href='<%=hf16url%>' title='<%=hf16tit%>' target=_blank>
	<img border=0 width=192 src='<%=hf16pic%>'></a>
	</td><td align=center><a href='<%=hf17url%>' title='<%=hf17tit%>' target=_blank>
	<img border=0 width=192 src='<%=hf17pic%>'></a>
	</td><td align=center><a href='<%=hf18url%>' title='<%=hf18tit%>' target=_blank>
	<img border=0 width=192 src='<%=hf18pic%>'></a>
	</td><td align=center><a href='<%=hf19url%>' title='<%=hf19tit%>' target=_blank>
	<img border=0 width=192 src='<%=hf19pic%>'></a>
	</td></tr>
</table></TD>
              </TR>
            </TBODY>
          </TABLE></TD>
      </TR>
    </TBODY>
  </TABLE>
  <% end if %>

  <table><tr><td width="768" height="2"></td></tr></table>
</center>