<!--
商易仿淘宝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
%>
<!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="pics/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.css@t=20060512.css");
@import url("/css/layout.css");
@import url("/css/pet.css");
	@import url("css/v1.2.php@t=2006512.css");
	@import url("css/component.php@t=2006512.css");

</style>
</head>
<body class="CurPet" >
<!--#include file="FHeadAll.asp"-->
<div class="HackBox"></div>

<div id="Content" class="">
<a name="main"></a>
<base target="_blank" />
<script src="pet.js"></script>
<style type="text/css" media="all">
@import url("/css/layout.css");
@import url("/css/pet.css");
</style>
<%
sub showslb(shownum,lbid,xlbid,picwidth,picheight)
set slbrs=server.createobject("adodb.recordset")
sql="select top "&shownum&" id,mc,xt from chanpin where lbid="&lbid&" and xlbid="&xlbid&" and tui=0 and cang=0 order by sj desc,id desc"
slbrs.open sql,conn,1,1
if slbrs.eof then
response.write"没有数据"
else
do while not slbrs.eof 
response.write"<a href=merchandise.asp?id="&encode(slbrs("id"))&" title="&slbrs("mc")&"><img src=user/images/rikeeupimages/"&slbrs("xt")&" alt="&slbrs("mc")&" width="""&picwidth&""" height="""&picheight&""" alt="&slbrs("mc")&"/></a>"
slbrs.movenext
loop
end if 
slbrs.close
set hwrs=nothing
end sub


sub showslbli(shownumli,lbidli,xlbidli,picwidthli,picheightli)
set slbrs=server.createobject("adodb.recordset")
sql="select top "&shownumli&" id,mc,xt from chanpin where lbid="&lbidli&" and xlbid="&xlbidli&" and tui=0 and cang=0 order by sj desc,id desc"
slbrs.open sql,conn,1,1
if slbrs.eof then
response.write"没有数据"
else
do while not slbrs.eof 
response.write"<li><a href=merchandise.asp?id="&encode(slbrs("id"))&" title="&slbrs("mc")&"><img src=user/images/rikeeupimages/"&slbrs("xt")&" alt="&slbrs("mc")&" width="""&picwidthli&""" height="""&picheightli&""" alt="&slbrs("mc")&"/><br>"&InterceptString(slbrs("mc"),16)&"</a></li>"
slbrs.movenext
loop
end if 
slbrs.close
set hwrs=nothing
end sub

sub showslbli2(shownumli2,lbidli2,xlbidli2,wordleng)
set slbrs=server.createobject("adodb.recordset")
sql="select top "&shownumli2&" id,mc,xt from chanpin where lbid="&lbidli2&" and xlbid="&xlbidli2&" and tui=0 and cang=0 order by sj desc,id desc"
slbrs.open sql,conn,1,1
if slbrs.eof then
response.write"没有数据"
else
do while not slbrs.eof 
response.write"<li><a href=merchandise.asp?id="&encode(slbrs("id"))&" title="&slbrs("mc")&">"&InterceptString(slbrs("mc"),""&wordleng&"")&"</a></li>"
slbrs.movenext
loop
end if 
slbrs.close
set hwrs=nothing
end sub

sub showslbli3(shownumli3,lbidli3,xlbidli3,picwidthli3,picheightli3)
set slbrs=server.createobject("adodb.recordset")
sql="select top "&shownumli3&" id,mc,xt from chanpin where lbid="&lbidli3&" and xlbid="&xlbidli3&" and tui=0 and cang=0 order by sj desc,id desc"
slbrs.open sql,conn,1,1
if slbrs.eof then
response.write"没有数据"
else
do while not slbrs.eof 
response.write"<a href=merchandise.asp?id="&encode(slbrs("id"))&" title="&slbrs("mc")&"><img src=user/images/rikeeupimages/"&slbrs("xt")&" alt="&slbrs("mc")&" width="""&picwidthli3&""" height="""&picheightli3&""" alt="&slbrs("mc")&"/></a>"
slbrs.movenext
loop
end if 
slbrs.close
set hwrs=nothing
end sub


Response.Write "<table width=760 align=center cellpadding=0 cellspacing=0><tr><td>"
set banner1= conn.execute("select top 1 * from ad where adtype1=14 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
end if
banner1.close
set banner1=nothing
Response.Write "</td></tr></table>"
%>
<div id="Content" class="L180">
  <!-- 右边内容区 -->
  <div id="Main">
    <div id="Container">
      <!-- banner --><!-- 狗狗天地 -->
      
      <!-- 宠物乐园 -->
      <div id="PetEden" class="BoxCommonStyle">
        <h2><a href="ProductList.asp?lbid=40">宠物乐园</a></h2>

        <div class="BoxContent">
          <div id="PetEdenBox1">
            <ul>
 <%showslbli 3,40,341,108,108%>
			 

          
		  
		    </ul>
            <div class="HackBox"></div>
          </div>
          <div id="PetEdenBox2">
            
<%showslb 4,40,338,84,84%>	
			


            
            <div class="HackBox"></div>
          </div>
        </div>
        <div id="PetEdenBox3">
          <div> <a href="productlist.asp?lx=0&key=猪"><img src="pics/bao/album/chl/collection/060429_c21.gif" /></a>
              <ul>
                
				<%showslbli2 4,40,339,20%>

              </ul>
          </div>
          <div> <a href="productlist.asp?lx=0&key=鼠"><img src="pics/bao/album/chl/collection/060324_c03.jpg" /></a>
              <ul>
                <%showslbli2 4,40,343,20%>

              </ul>
          </div>
        </div>
        <div class="BoxBottom"></div>
      </div>
      <!-- 宠物社区 -->
      <!-- 食品专区 -->
<div id="PetAnimal" class="BoxCommonStyle">
        <h2><a href="ProductList.asp?lbid=40&xlbid=344">食品专区</a></h2>

        <div class="BoxContent">
		<div id="PetAnimalBox1">
			<ul>
				
			<%showslbli 6,40,344,114,114%>	

			</ul>
		</div>
		<div id="PetAnimalBox2">
			<div id="AdList1">
				<ul>
				<%showslbli 3,40,347,85,85%>	


				</ul>
			</div>
			</div>
		<div id="HackBox"></div>
		</div>
        <div class="BoxBottom"></div>
      </div>
      <!-- 用品专区 -->
      <div id="PetCommodity" class="BoxCommonStyle">
        <h2><a href="ProductList.asp?lbid=40&xlbid=345"">用品专区</a></h2>
        
        <div class="BoxContent">
		<div id="PetCommodityBox1">
			<object classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000" codebase="../../../download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=7,0,19,0" width="204" height="221">
			  <param name="movie" value="pics/bao/album/chl/pet/petcommodity.swf" />
			  <param name="petcommodity" value="high" />
			  <embed src="pics/bao/album/chl/pet/petcommodity.swf" quality="high" pluginspage="http://www.macromedia.com/go/getflashplayer" type="application/x-shockwave-flash" width="204" height="221"></embed>
			</object>
		</div>
			<div id="PetCommodityBox2">
				<ul>
				<%showslbli3 4,40,346,83,83%>	
					

				</ul>
			</div>
			<div id="PetCommodityBox3">
				<ul>
					<%showslbli 3,40,349,83,83%>

					
				</ul>
			</div>
			

		<div id="PetCommodityBox4">
			<ul>
				
				<%showslbli 5,40,345,83,83%>
				

			</ul>
		</div>
		</div>
        <div class="BoxBottom"></div>
      </div>
    </div>
  </div>
  <!-- 左边类目条 -->
  <div id="SideBar">
    <!-- 注册 -->
    <div id="LoginBox">
		<div id="LoginButton"><a href="user/reg.asp"><img src="pics/bao/album/chl/pet/login_01.gif" title="免费注册" /></a></div>
		<div id="ShopButton"><a href="user/shop.asp"><img src="pics/bao/album/chl/pet/login_02.gif" border="0" title="免费开店" /></a></div>
		<span><a href="gwznindex.asp" target="_blank">安全购物锦囊</a></span>
		<span><a href="gwznindex.asp" target="_blank">开店创业指南</a></span>
		<div id="AlipayButton"><a href="https://www.alipay.com/"><img src="pics/bao/album/chl/pet/login_03.gif" title="支付宝" /></a></div>
    </div>



 	<%
	dim sql,rs,xrs,srs
	Sql="select top 1 lbid,lbname from lb where cang=0 and lbid=40 "
    set rs=server.createobject("adodb.recordset")
    rs.open Sql,conn,1,1
	if rs.eof then
	response.write "无类别"
	else
	




	response.write "<div id=""PetAnimalSort"" class=""SortCommonStyle""><a href=ProductList.asp?lbid="&rs(0)&"><h3>"&InterceptString(rs(1),22)&"</h3></a>"



	   	set xrs = conn.execute("select top 10 xlbid,xlbname,cp from xlb where lbid="&rs("lbid")&" and cang=0 order by cp desc,xlbid desc")
		if xrs.eof then
		response.write""
		end if 
		do while not xrs.eof
		response.write "<div class=""HackBox""></div><a href=""ProductList.asp?lbid="&rs("lbid")&"&amp;xlbid="&xrs("xlbid")&""" title="&xrs(1)&"><h4>"&InterceptString(xrs("xlbname"),22) &"</h4></a>"
'if lbnumber<2 then
	   	set srs = conn.execute("select  slbid,slbname,cp from slb where xlbid="&xrs("xlbid")&"  order by cp desc,slbid")
		if srs.eof then
		response.write""
		end if 
		
		do while not srs.eof
		response.write "<ul class=""SortList""><a href=""ProductList.asp?lbid="&rs("lbid")&"&amp;xlbid="&xrs("xlbid")&"&slbid="&srs("slbid")&""" title="&srs("slbname")&"><li>"&InterceptString(srs("slbname"),18) &"</li></ul>"
		srs.movenext
		loop
		
		srs.close
'end if
	'response.Write"</div>"
		xrs.movenext
		loop
		
		xrs.close
	%></div>	
	<%end if 
	rs.close
	set rs=nothing
	
	%>	  
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
    <!-- 宠物食品 --><!-- 宠物用品 -->
  </div>
</div>
<div class="HackBox"></div>
<style type="text/css">
<!--
 #collection{
 	display:none;
 }
-->
</style>




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

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