<img border="0" src="ima/i4.jpg" width="223" height="33"><!--#include file="top_login.asp"--><br>
<font color="#FF0000"> 
<%if fl=0 then%>
<%else%>
<img border="0" src="ima/i1.jpg" width="223" height="33"></font> 
<TABLE width="98%" align="center" cellPadding=0 cellSpacing=0>
  <TBODY>
    <TR> 
      <TD height=20 bgcolor="#FFFFFF"><table width="100%" border="0" cellspacing="0" cellpadding="0" height="5">
          <tr> 
            <td height="10"></td>
          </tr>
        </table>
        <table width="90%" border="0" align="center" cellSpacing="0">
          <tr> 
            <td height="23"> 
              <%
		  
		  '二次查讯大类
		  set rs=server.CreateObject("adodb.recordset")
		  rs.open "select anclass,anclassid,sztys from shop_anclass order by anclassidorder",conn,1,1
		  do while not rs.eof
		   response.write "<IMG height=9 src=images/Forum_nav.gif width=9 border=0>&nbsp;&nbsp;<A href=class.asp?lx=big&anid="&rs("anclassid")&" class=top><font color="&trim(rs("sztys"))&"><b>"&trim(rs("anclass"))&"</b></font></a>&nbsp;&nbsp;<br><br>"
			
			'//查讯小类
			
			set rs2=server.CreateObject("adodb.recordset")
			rs2.open "select nclass,nclassid,xsztys from shop_nclass where anclassid="&rs("anclassid")&" order by nclassidorder",conn,1,1
			do while not rs2.eof
			response.write "<A href=class.asp?lx=small&anid="&rs("anclassid")&"&nid="&rs2("nclassid")&"><font color="&trim(rs2("xsztys"))&">"&trim(rs2("nclass"))&"</font></A>  " 
             rs2.movenext
			 loop
			 rs2.close
			 set rs2=nothing
			 response.write "<br><br>"
			rs.movenext
			'ii=ii+1
			loop
				rs.close
				set rs=nothing%>
            </td>
          </tr>
        </table>
        <table width="100%" border="0" cellspacing="0" cellpadding="0" height="5">
          <tr> 
            <td height="10"></td>
          </tr>
        </table></TD>
    </TR>
  </TBODY>
</TABLE>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
  <tr> 
    <td bgcolor="#FFFFFF"><img src="images/block.gif" width="1" height="1"></td>
  </tr>
</table>
<font color="#FF0000"> 
<%end if%>
</font> 
<table width="100%" border="0" cellspacing="0" cellpadding="0">
  <tr> 
    <td >
	<img border="0" src="ima/i2.jpg" width="223" height="33"></td>
  </tr>
</table>
<table width="98%" border="0" align="center" cellpadding="0" cellspacing="0">
  <%set rs=server.createobject("adodb.recordset")
						  rs.open "select Top 8 * from shop_snsn where newsshop=1 order by shopid desc",conn,1,1
						  if rs.recordcount=0 then 
						  response.write "暂无新品"
						  else
						  while not rs.eof
						  %><tr onmouseover="this.bgColor='#C5E5F6';this.style.color='#000000';" style="CURSOR: hand; COLOR: #000000"  onmouseout="this.bgColor='ffffff';this.style.color='#000000';" bgColor="#ffffff" name="852753"> 
    <td width="100%" height="23" > &nbsp;<img border="0" src="ye_news.gif" width="17" height="13"> 
      <a href=list.asp?id=<%=rs("shopid")%>> <font color="<%=flxpshj%>"> 
      <%if len(trim(rs("shopname")))>25 then
	response.write left(trim(rs("shopname")),25)&".."
	else
	response.write trim(rs("shopname"))
	end if%>
      </font></a></td>
  </tr>     <%
						  rs.movenext
						  wend
						  end if
						  rs.close
						  %>
</table>
<img border="0" src="ima/i3.jpg" width="223" height="33"> 
<table width="98%" border="0" align="center" cellpadding="0" cellspacing="0">
  <%set rs=server.CreateObject("adodb.recordset")
		  rs.open "select top 8 shopid,shopname,chengjiaocount from shop_snsn order by chengjiaocount desc",conn,1,1%>
      <%i=0
			  do while not rs.eof%><tr onmouseover="this.bgColor='#C5E5F6';this.style.color='#000000';" style="CURSOR: hand; COLOR: #000000"  onmouseout="this.bgColor='ffffff';this.style.color='#000000';" bgColor="#ffffff" name="852753"> 
    <td width="100%" height="23" > 
      <%response.write "&nbsp;<img src=ye_news.gif border=0>  <a href=list.asp?id="&rs("shopid")&" title=此商品已成功销售"&rs("chengjiaocount")&"次><font color="&flxshph&">"
				if len(trim(rs("shopname")))>25 then
				response.write left(trim(rs("shopname")),25)&".."
				else
				response.write trim(rs("shopname"))
				end if
				response.write "</font></a><br>"
				%>
    </td>
  </tr><%i=i+1
			  if i>=8 then exit do
			  rs.movenext
			  loop
			  rs.close
			  set rs=nothing%>
</table>