<%
'商易仿淘宝4.0(多用户)
'ACCESS版演示网站：http://www.ftaobao.com(商易仿淘宝商城)
'SQL版演示网站：http://sql.ftaobao.com
'电话：0571-56907100
'QQ：1147100
%>
<!--#include file="include/conn.asp"-->
<!--#include file="include/config.asp"-->
<!--#include file="FFunction.asp"-->
<% IsShowChannel=true
   IsShowHotKey=false


sub xlbshow(lbid,xlbid,lbnum)
set ars=server.createobject("adodb.recordset")
sql="select top "&lbnum&" slbid,slbname,lbid,xlbid from slb where lbid="&lbid&" and xlbid="&xlbid&" order by cp desc,slbid desc"
ars.open sql,conn,1,1
if ars.eof then
response.write"没有数据"
else
do while not ars.eof
response.write"·<a href=ProductList.asp?lbid="&lbid&"&xlbid="&xlbid&"&slbid="&ars("slbid")&" title="&ars("slbname")&">"&InterceptString(ars("slbname"),6)&"</a>&nbsp;&nbsp;&nbsp;"
ars.movenext
loop 
end if
ars.close
set ars=nothing
end sub 

%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<title><%=my_name%>--男人</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<meta name="description" content=""/>
<meta name="keywords" content="" />
<link rel="icon" href="csspic/favicon.ico" type="image/x-icon" />
<link rel="shortcut icon" href="pics/favicon.ico" type="image/x-icon" />
<style type="text/css" media="screen">
	@import url("css/v1.2.php@t=2006512.css");
	@import url("css/component.php@t=2006512.css");
</style>
</head>
<body class="CurMan" >
<!--#include file="FHeadAll.asp"-->

<div class="HackBox"></div>
<div id="Content" class="">
<a name="main"></a>
<style type="text/css" media="screen">
@import url("/css/man.css");
</style>
<base target="_blank" />
<script language="JavaScript" type="text/JavaScript">
<!--



function MM_preloadImages() { //v3.0
var d=document; if(d.images){ if(!d.MM_p) d.MM_p=new Array();
var i,j=d.MM_p.length,a=MM_preloadImages.arguments; for(i=0; i<a.length; i++)
if (a[i].indexOf("#")!=0){ d.MM_p[j]=new Image; d.MM_p[j++].src=a[i];}}
}

window.onload = function(){
	MM_preloadImages('pics/2k5/chl/v1/man/man_060221__3.gif','pics/2k5/chl/v1/man/man_060221__4.gif','pics/2k5/chl/v1/man/man_060221__5.gif','pics/2k5/chl/v1/man/man_060221__7.gif','pics/2k5/chl/v1/man/man_060221__8.gif','pics/2k5/chl/v1/man/man_060221__9.gif','pics/2k5/chl/v1/man/man_060221__10.gif','pics/2k5/chl/v1/man/man_060221__11.gif','pics/2k5/chl/v1/man/man_060221__12.gif','../images/2k6/chl/v1/man/man_060221__1.gif','../images/2k6/chl/v1/man/man_060221_2.gif','pics/2k6/chl/v1/man/man_060221__3.gif','pics/2k6/chl/v1/man/man_060221__01.gif','pics/2k6/chl/v1/man/man_060221_s_3.gif','pics/2k6/chl/v1/man/man_060221_s_4.gif','pics/2k6/chl/v1/man/man_060221__3.gif');
};
//-->
</script>



<table width="760" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td><table width="100%"  border="0" align="center" cellpadding="0" cellspacing="3">
      <tr>
        <td align="center" valign="top">  <table width="760" border="0" cellspacing="0" cellpadding="0">
    <tr>
      <td><div align="center"><%Response.Write "<table width=760 align=center cellpadding=0 cellspacing=0><tr><td>"
set banner1= conn.execute("select top 1 * from ad where adtype1=10 and show=1 order by date desc")
if not banner1.eof then
if banner1("adtype")=2 then
Response.Write("<embed src=user/images/gg/"&banner1("imageurl")&" border=0>")
else
Response.Write("<div align=center><a href=../click.asp?id="&banner1("id")&" target=_blank onFocus=this.blur()><img src=../user/images/gg/"&banner1("imageurl")&" border=0></a></div>")
end if
else
Response.Write"还没有广告数据"
end if
banner1.close
set banner1=nothing
Response.Write "</td></tr></table>"
%></div></td>
    </tr>
  </table>&nbsp;</td>
      </tr>
    </table>
      
      <table width="100%" border="0" cellspacing="3" cellpadding="0">
        <tr>
    <td width="181" height="143" valign="top">
	  <table width="180" border="0" cellspacing="0" cellpadding="0">
        <tr>
          <td>
		  <table width="180" border="0" cellspacing="0" cellpadding="0">
            <tr>
              <td><img src="pics/2k6/chl/v1/lady/lady_060303_top.gif" width="180" height="5"></td>
            </tr>
            <tr>
              <td height="160" background="pics/2k6/chl/v1/lady/lady_060303_center.gif">
			  <table width="150" border="0" align="center" cellpadding="0" cellspacing="0">
              <tr>
                <td height="42" align="center"><a href="user/reg.asp"><img src="pics/2k6/chl/v1/lady/lady_060303_regist.gif" width="134" height="35" border="0" /></a></td>
              </tr>
              <tr>
                <td height="42" align="center"><a href="user/shop.asp" target="_blank"><img src="pics/2k6/chl/v1/lady/lady_060303_free.gif" width="134" height="35" border="0" /></a></td>
              </tr>
              <tr>
                <td align="center">
				<table width="150" border="0" cellspacing="0" cellpadding="0">
                    <tr>
                      <td height="20" align="center"><img src="pics/2k6/chl/v1/lady/lady_060303_ico.gif" width="2" height="3" align="absmiddle" />&nbsp;&nbsp;<a href="gwznindex.asp" target="_blank">安全购物锦囊</a></td>
                    </tr>
                    <tr>
                      <td height="20" align="center"><img src="pics/2k6/chl/v1/lady/lady_060303_ico.gif" width="2" height="3" align="absmiddle" />&nbsp;&nbsp;<a href="gwznindex.asp" target="_blank">开店创业指南</a></td>
                    </tr>
                </table>
				</td>
              </tr>
              <tr>
                <td height="42" align="center"><a href="http://www.alipay.com/"><img src="pics/2k6/chl/v1/lady/lady_060303_alipay.gif" width="134" height="36" border="0" /></a></td>
              </tr>
            </table>
			</td>
            </tr>
            <tr>
              <td><img src="pics/2k6/chl/v1/lady/lady_060303_bottom.gif" width="180" height="5"></td>
            </tr>
          </table>
		  </td>
        </tr>
      </table>
      <table width="180" border="0" cellspacing="0" cellpadding="0">
        
      </table>
    </td>
    <td width="254" valign="middle">
      <div align="center"><a href="productlist.asp?lx=0&amp;key=男裤"><img src="images/760x200_060619_man.jpg" width="250" height="175" border="0" /></a></div></td>
    <td width="151" valign="top"><table width="150" height="175"  border="0" cellpadding="0" cellspacing="0">
			<tr>
          <td height="105" align="center" bgcolor="#474747"><a href="showqiougou.asp" target="_blank"><img src="pics/2k6/chl/v1/man/man_060512_01.gif" border="0" /></a></td>
        </tr>
	<tr><td valign="top" height="60" bgcolor=#DDE3F4><table border="0" cellpadding="0" cellspacing="0" width=100% >
 <%

set qgrs=server.createobject("adodb.recordset")
sql="select top 3 qiugou.id,qiugou.mc,qiugou.lbid from qiugou left join lb on qiugou.lbid=lb.lbid where lb.topic='男人' order by qiugou.date desc,qiugou.id"
qgrs.open sql,conn,1,1
if qgrs.eof then
response.write "<tr><td>没有数据</td></tr>"
else
do while not qgrs.eof
response.write "<tr><td height=20  width=""100%""><span class=""LM""><span class=""LL"">·<a href=""user/qiugouinfo.asp?qgid="&qgrs("id")&""" title="&qgrs("mc")&">"&InterceptString(qgrs("mc"),20) &"</a></span></span></td></tr>"
qgrs.movenext
loop
end if
qgrs.close
set qgrs=nothing
%>

        
		
		</table></td></tr>
		
		


      </table>
	  
	  
	  
	  
	  
	  
	  </td>
    <td width="167" align="center" valign="top">
	
	
	
	
	<table width="150" height="175"  border="0" cellpadding="0" cellspacing="0">
        <tr>
          <td height="105" align="center" bgcolor="#474747"><a href="sort.asp" target="_blank"><img src="pics/2k6/chl/v1/man/man_060512_02.gif" width="167" height="115" border="0"></a></td>
        </tr>
        
		
		<tr>
          <td height="60" bgcolor="#DDE3F4" valign="top">

<%
set shoprs = conn.execute("select top 3 id,name,lbid from shop where lbid in (select lbid from lb where cang=0 and topic='男人') order by sj2 desc,id desc")
if shoprs.eof then
response.Write "没有数据"
else
do while not shoprs.eof
response.write "<span class=""LM""><span class=""LL"">·<a href=""shop/1/myshop.asp?shopid="&shoprs("id")&""" title="&shoprs("name")&">"&InterceptString(shoprs("name"),20) &"</a> <br />"
shoprs.movenext
loop
end if
shoprs.close
set shoprs=nothing
%>

			



  
</td>
        </tr>
      </table>
	  
	  
	  
	  
	  </td>
  </tr>
      </table>
      <table width="760" height="4" border="0" align="center" cellpadding="0" cellspacing="0">
        <tr>
          <td></td>
        </tr>
      </table>
      <table width="100%" border="0" cellspacing="0" cellpadding="5">
        <tr>
          <td width="180" align="center" valign="top"><table width="100%" border="0" cellspacing="0" cellpadding="0">
            <tr>
              <td>
<table width="180"  border="0" cellspacing="0" cellpadding="0">
              <tr>
                <td valign="top"><table width="100%" height="4"  border="0" cellpadding="0" cellspacing="0">
                  </table>
				  
<table width="100%"  border="0" align="center" cellpadding="0" cellspacing="0" id="ChlCategory">
	<%
	dim sql,rs,xrs,srs
	Sql="select lbid,lbname from lb where cang=0 and topic='男人' order by px desc,lbid"
    set rs=server.createobject("adodb.recordset")
    rs.open Sql,conn,1,1
	if rs.eof then
	response.write "无类别"
	response.end()
	end if
	lbnumber=rs.recordcount
	do while not rs.eof
	response.write "<tr><td height=21 valign=middle bgcolor=#0E5297 align=left>&nbsp;<span style=""color:#FFFFFF;font-weight:bold;margin:10px 0 0 12px;"" title="&rs(1)&">"&InterceptString(rs(1),22)&"</span></td></tr>"
	   	set xrs = conn.execute("select top 12 xlbid,xlbname,cp from xlb where lbid="&rs("lbid")&" and cang=0 order by cp desc,xlbid")
		do while not xrs.eof
		if xrs.eof then
		response.write""
		end if
		response.write "<tr><td height=20 bgcolor=#EBEBEB><a href=""ProductList.asp?lbid="&rs("lbid")&"&amp;xlbid="&xrs("xlbid")&""" title="&xrs(1)&"><span class='whitefont'><b>"&InterceptString(xrs("xlbname"),22) &"</b></span></a></td></tr>"

if lbnumber<2 then


	   	set srs = conn.execute("select top 3 slbid,slbname,cp from slb where xlbid="&xrs("xlbid")&"  order by cp desc,slbid")
		do while not srs.eof
		if srs.eof then
		response.write""
		end if
		response.write "<tr><td height=19 bgcolor=#F5F5F5>&nbsp;&nbsp;&nbsp;&nbsp;<b>·</b><a href=""ProductList.asp?lbid="&rs("lbid")&"&amp;xlbid="&xrs("xlbid")&"&slbid="&srs("slbid")&""" title="&srs("slbname")&"><span class='whitefont'>"&InterceptString(srs("slbname"),18) &"</span></a></td></tr>"
		srs.movenext
		loop
		srs.close

end if

		xrs.movenext
		loop
		xrs.close
	response.write "<tr><td bgcolor=#F5F5F5 align='right'><a href=""ProductList.asp?lbid="&rs("lbid")&"""><span class='yellowfont'>更多……</span></a></td></tr>"
	rs.movenext
	loop
	%>	  
</table>

 

				  
				  
				  
				  
				  
				  
				  
				  
				  
				  
				  
				  
				  
				  
				  </td>
              </tr>
            </table>
			  
			  </td>
            </tr>
          </table></td>
          <td width="6" ></td>
          <td align="left" valign="top"><table width="100%" border="0" cellspacing="0" cellpadding="0">
            <tr>
              <td><table width="100%" border="0" cellspacing="1" cellpadding="0" bgcolor="BAC5D2">
                <tr>
                  <td><img src="pics/2k6/chl/v1/man/man_060302_10.gif" width="578" height="29" /></td>
                </tr>
                <tr>
                  <td valign="top"><table width="100%" border="0" cellpadding="0" cellspacing="3" bgcolor="#BAC5D2">
                    <tr>
                      <td valign="top" bgcolor="#FFFFFF" background="pics/2k5/chl/v1/man/line1009.gif" width=330>
		  <table width="100%" height="144"  border="0" cellpadding="0" cellspacing="0" >
                        <tr>
                          <td align=left><table><tr>
<%
set hwrs=server.createobject("adodb.recordset")
sql="select top 3 id,mc,xt from chanpin where lbid=34 and tui=0 and cang=0 order by sj desc,id desc"
hwrs.open sql,conn,1,1
if hwrs.eof then
response.write "<td width=""100%"">没有数据</td>"
else
do while not hwrs.eof
'response.write "<td><a href=merchandise.asp?id="&encode(hwrs("id"))&" target=_blank title="&hwrs("mc")&">"
%>
<td align="center" width="105"><div align="center"><span class="LM"><span class="LL">
<a href=" merchandise.asp?id=<%=encode(hwrs("id")) %>" target="_blank" title=<%=hwrs("mc")%>><img src="user/images/rikeeupimages/<%=hwrs("xt")%>" alt="<%=hwrs("mc")%>" width="96" height="96"border="0" /></br><%=InterceptString(hwrs("mc"),12)%></a></td>
<%
hwrs.movenext
loop
end if
hwrs.close
set hwrs=nothing
%>						  
						  
						  
						 </tr></table> 
						  </td>
                        </tr>
                      </table></td>
<td width="242" align="center" valign="middle" bgcolor="#FFFFFF"><a href="ProductList.asp?lbid=34" target="_blank" title="男装/服饰配件"><img src="pics/2k6/chl/v1/man/060428_man_06.gif" border="0" /></a></td>
                    </tr>
                  </table></td>
                </tr>
                <tr>
                  <td><table width="100%" border="0" cellspacing="3" cellpadding="0">
                    <tr>
                      <td width="180" height="115" align="center" valign="middle" bgcolor="#FFFFFF"><a href="ProductList.asp?lbid=33" target="_blank" title="ZIPPO/瑞士军刀/男士精品"><img src="" width=170 height=110 border="0" /></a></td>
                      <td valign="top" background="pics/2k5/chl/v1/man/line1.gif"><table width="100%" border="0" cellpadding="0" cellspacing="0">
                        <tr>
                          <td><table><tr><div align="right"><span class="LM"><span class="LL">
						  

<%
set nrs=server.createobject("adodb.recordset")
sql="select top 3 id,mc,xt from chanpin where lbid=33 and tui=0 and cang=0 order by sj desc,id desc"
nrs.open sql,conn,1,1
if nrs.eof then
response.write "<td width=""100%"">没有数据</td>"
else
do while not nrs.eof
%>
<td width=125 height=105 align="center" >
<a href=" merchandise.asp?id=<%=encode(nrs("id")) %>" target="_blank" title=<%=nrs("mc")%>><img src="user/images/rikeeupimages/<%=nrs("xt")%>" alt="<%=nrs("mc")%>" width="82" height="82" border="0" /><br /><%=InterceptString(nrs("mc"),12)%></a></td>
<%
'商易仿淘宝4.0.1演示地址
'http://www.ftaobao.com
nrs.movenext
loop
end if
nrs.close
set nrs=nothing
%>			
		
						  
						  
						  
						</span></span></div></tr></table>  
						  </td>
                        </tr>
                      </table></td>
                    </tr>
                  </table></td>
                </tr>
              </table>
                </td>
            </tr>
          </table>
            <table width="100%" height="4" border="0" cellpadding="0" cellspacing="0">
              <tr>
                <td></td>
              </tr>
            </table>
            <table width="100%" height="389" border="0" cellpadding="0" cellspacing="0" background="pics/2k6/chl/v1/man/man_060302_09.gif">
              <tr>
                <td height="41">&nbsp;</td>
              </tr>
              <tr>
                <td height="159" valign="top"><table width="100%" border="0" cellspacing="0" cellpadding="0">
                  <tr>
<td width="28%"  ><div align="center"><a href="productlist.asp?lx=0&amp;key=车"><img src="pics/2k6/chl/v1/man/man_060512_05.gif" border="0" /></a></div></td>
                    <td align="center" valign="middle"><table width="98%" border="0" cellpadding="0" cellspacing="0">
                      <tr>
                        <td width="10"></td><td align="left">
<table><tr><span class="LM"><span class="LL">
						  

<%
set nrs=server.createobject("adodb.recordset")
sql="select top 3 id,mc,xt from chanpin where (xlbid=196 or xlbid=197 or xlbid=198 or xlbid=200)  and tui=0 and cang=0 order by sj desc,id desc"
nrs.open sql,conn,1,1
if nrs.eof then
response.write "<td width=""100%"">没有数据</td>"
else
do while not nrs.eof
%>
<td width=86 height=105 align="center" >
<a href=" merchandise.asp?id=<%=encode(nrs("id")) %>" target="_blank" title=<%=nrs("mc")%>><img src="user/images/rikeeupimages/<%=nrs("xt")%>" alt="<%=nrs("mc")%>" width="72" height="72" border="0" /><br /><%=InterceptString(nrs("mc"),12)%></a></td>
<%
nrs.movenext
loop
end if
nrs.close
set nrs=nothing
%>			
		
						  
						  
						  
						</span></span></tr></table>  
						
						
						
						</td>
                      </tr>
                    </table></td>
<td width="24%" align="center" valign="top"><table width="98%" border="0" cellspacing="6" cellpadding="0">
  <tr>
    <td>


<%
set nrs=server.createobject("adodb.recordset")
sql="select top 10 id,mc,xt from chanpin where (xlbid=192 or xlbid=193)  and tui=0 and cang=0 order by sj desc,id desc"
nrs.open sql,conn,1,1
if nrs.eof then
response.write "没有数据"
else
do while not nrs.eof
%>
<li>
<a href=" merchandise.asp?id=<%=encode(nrs("id")) %>" target="_blank" title=<%=nrs("mc")%>><%=InterceptString(nrs("mc"),18)%></a></li>
<%
nrs.movenext
loop
end if
nrs.close
set nrs=nothing
%>	</td>
  </tr>
</table></td>
                  </tr>
                </table></td>
              </tr>
              <tr>
                <td height="25">&nbsp;</td>
              </tr>
              <tr>
                <td height="73" align="center" valign="top"><table width="95%" border="0" cellspacing="0" cellpadding="0">
                  <tr>
                    <td valign="top"><table width="100%" border="0" cellspacing="0" cellpadding="0">
                      <tr>
		  <td width="87" align="center"><a href="productlist.asp?lx=0&amp;key=汽车"><img src="pics/2k6/chl/v1/man/man_060322_12.gif" border="0" /></a></td>
          <td width="92" align="center"><a href="productlist.asp?lx=0&amp;key=爱车"><img src="pics/2k6/chl/v1/man/man_060125_013.gif" border="0" /></a></td>
          <td width="104" align="center"><a href="productlist.asp?lx=0&amp;key=自驾"><img src="pics/2k6/chl/v1/man/man_060125_014.gif" border="0" /></a></td>
                      </tr>
                    </table></td>
                    <td width="6">&nbsp;</td>
                    <td><table width="100%" border="0" cellspacing="0" cellpadding="0">
                      <tr>

          <td width="92" align="right"><a href="productlist.asp?lx=0&amp;key=摩托"><img src="pics/2k6/chl/v1/man/man_060125_15.gif" border="0" /></a></td>
          <td width="89" align="right"><a href="productlist.asp?lx=0&amp;key=摩托"><img src="pics/2k6/chl/v1/man/man_060125_16.gif" border="0" /></a></td>
          <td width="93" align="center"><a href="productlist.asp?lx=0&amp;key=自行车"><img src="pics/2k6/chl/v1/man/man_060125_17.gif" border="0" /></a></td>
                      </tr>
                    </table></td>
                  </tr>
                </table></td>
              </tr>
              <tr>
                <td height="81" align="center" valign="top"><table width="100%" border="0" cellspacing="0" cellpadding="0">
                  <tr>
                    <td width="50%" valign="top"><table width="100%" border="0" cellpadding="0" cellspacing="0">
                      <tr>
                        <td width="12" height="20">&nbsp;</td>
                        <td>&nbsp;<%xlbshow 26,196,4%></td>
                      </tr>
                      <tr>
                        <td height="18">&nbsp;</td>
                        <td height="18">&nbsp;<%xlbshow 26,199,4%></td>
                      </tr>
                      <tr>
                        <td height="18">&nbsp;</td>
                        <td height="18">&nbsp;<%xlbshow 26,201,4%></td>
                      </tr>
                      <tr>
                        <td height="18">&nbsp;</td>
                        <td height="18">&nbsp;<%xlbshow 26,207,4%></td>
                      </tr>
                    </table></td>
                    <td width="3">&nbsp;</td>
                    <td valign="top"><table width="100%" border="0" cellspacing="0" cellpadding="0">
                      <tr>
                        <td width="6" height="20">&nbsp;</td>
                        <td>&nbsp;<%xlbshow 26,203,4%></td>
                      </tr>
                      <tr>
                        <td height="18">&nbsp;</td>
                        <td height="18">&nbsp;<%xlbshow 26,204,4%></td>
                      </tr>
                      <tr>
                        <td height="18">&nbsp;</td>
                        <td height="18">&nbsp;<%xlbshow 26,205,4%></td>
                      </tr>
                      <tr>
                        <td height="20">&nbsp;</td>
                        <td height="18">&nbsp;<%xlbshow 26,206,4%></td>
                      </tr>
                    </table></td>
                  </tr>
                </table></td>
              </tr>
            </table></td>
        </tr>
      </table></td>
  </tr>
</table>



















</div>
<div class="HackBox"></div>

</body>
</html>
<!--#include file="bottom.asp" -->

























                 <table     border="0" cellspacing="0" cellpadding="0"><tr>
<%
set hwrs=server.createobject("adodb.recordset")
sql="select top 4 id,mc,xt from chanpin where lbid=24 and xlbid=354 and tui=0 and cang=0 order by sj desc,id"
hwrs.open sql,conn,1,1
if hwrs.eof then
response.write"<td>没有数据</td>"
else
jj=1
do while not hwrs.eof
if jj=2 then
%>
<td><div style="float:left;clear:left;height:130px;width:100px;"><a href=" merchandise.asp?id=<%=encode(hwrs("id")) %>"  title=<%=hwrs("mc")%>><img src="user/images/rikeeupimages/<%=hwrs("xt")%>" alt="<%=hwrs("mc")%>"/><br /><%=InterceptString(hwrs("mc"),18)%></div></a></div></td></tr>
<%else%>
<td><div style="float:left;clear:left;height:130px;width:100px;"><a href=" merchandise.asp?id=<%=encode(hwrs("id")) %>"  title=<%=hwrs("mc")%>><img src="user/images/rikeeupimages/<%=hwrs("xt")%>" alt="<%=hwrs("mc")%>"/><br /><%=InterceptString(hwrs("mc"),18)%></a></div></td>
<%
end if
hwrs.movenext
jj=jj+1
loop
hwrs.close
set hwrs=nothing
end if
%>
	</tr></table>	
