<%
'商易仿淘宝4.0(多用户)
'ACCESS版演示网站：http://www.ftaobao.com(商易仿淘宝商城)
'SQL版演示网站：http://sql.ftaobao.com
'电话：0571-56907100
'QQ：1147100
%>
<style type="text/css">
<!--
.STYLE1 {
	color: #FFFFFF;
	font-weight: bold;
}
-->
</style>

<!--#include file="FFunction.asp"-->
<!--#include file="FHeadTitle.asp"-->
<!--#include file="include/indextupian.asp"-->
<!--#include file="manage/store/jmail.asp"-->
<head>
<%Response.Write "<TITLE>"&my_name&"</TITLE>"%>
<style type="text/css" media="screen">
@import url("css/v1.2.php@t=2006512.css");
@import url("home/css/layout.css@t=20050712.css");
@import url("home/css/component.css@t=20060512.css");
@import url("home/css/sys/frontpage.css@t=20060512.css");
</style>

</head>
<%
if my_domains<>"" then
if Request.ServerVariables("SERVER_NAME")<>"www."&my_domains and Request.ServerVariables("SERVER_NAME")<>my_domains Then response.redirect "url.asp"
end if
If shopnet("a")<>"" And IsNumeric(shopnet("a")) Then 
Response.redirect "shop/1/myshop.asp?shopid="&shopnet("a")&""
Response.End
End if
%>

<body class="<%= PageStyle %>">

<!--#include file="FHeadAll.asp"-->
<div class="HackBox"></div>
<div id="Content" class="L250">
<a name="main"></a>
<style type="text/css">
<!--
#EventAd{
	width:760px;
	position:relative;
}
#EventAd div{
	position:absolute;
	top:-29px;
	right:-112px;
	width:110px;
	height:160px;
}
#NewMall{
	position:relative;
}
#NewMall div{
	position:absolute;
	top:-104px;
	right:70px;
	width:45px;
	height:34px;
}
body div#Head ul#ChannelMenuItems li#MenuMall a span{
	color:#F30;
}
-->
</style>

<% ShowIndexNewProduct(9)%>
<div id="Main">
  <div id="Container">
    <div id="MainPromotionBanner">
     <%indextupian()%></div>
    <div id="NewbieGuide">
      <ul>
        <li id="NGRegister"><a href="user/reg.asp">免费注册</a></li>
        <li id="NGOpenShop"><a href="user/shop.asp">免费开店</a></li>
        <li id="NGTrust"><a href="gwzn.asp?lbid=15">诚信安全</a></li>
        <li id="NGAlipay"><a href="https://www.alipay.com/">支付宝——购物无风险</a></li>
      </ul>
    </div>
    <div id="Category" class="TabPanelStyle1">
      <div id="CategoryTitle">
        <h3><span>商品类目</span></h3>
        <div id="CategoryLinkShop"><a href="shopindex.asp?PageType=B">店铺</a></div>
        <div id="CategoryLinkOffer"><a href="user/qiugou.asp">发布求购信息</a></div>
      </div>
      <div id="CategoryList" class="Content Col2">
        
        <% ShowIndexClass() %>
        <div class="HackBox"></div>
      </div>
      <div id="CategoryListBottom"></div>
      <!-- div#CategoryList -->
    </div>
    <!-- div#Category -->
  </div>
  <!-- div#Container -->
</div>
<!-- div#Main -->
<div id="SideBar">
  <!-- 公告栏 -->
  <div id="TaobaoBulletin" class="StandardSidePanel2">
    <h3><a href="">公告栏</a></h3>
    <div class="Content">
      <% ShowIndexNews() %>
    </div>
    <div id="QuickEntries">
      <ul>
        <li><a href="productlist.asp?lx=0&px=3">最新商品</a></li>
        <li><a href="productlist.asp?s=yes&lx=1&fenye=20&px=3"><font color="#DE0083">最新店铺</font></a></li>
        <li><a href="searchlist.asp?start_price=5&end_price=10">10元专区</a></li>
        <li><a href="searchlist.asp?start_price=10&end_price=20">20元专区</a></li>
      </ul>
      <div class="HackBox"></div>
    </div>
  </div>
  <div id="MoreSideInfo">
    <h3><a href="bbs/"><%=my_name%>社区</a></h3>
    <div class="Content">
      <div id="ForumHeadLine">

		<% set banner1= conn.execute("select top 1 * from ad where adtype1=18 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("<a href=click.asp?id="&banner1("id")&" target=_blank onFocus=this.blur()><img src=user/images/gg/"&banner1("imageurl")&" border=0 width=""58"" height=""83""></a>")
end If
Else
response.write("<img src=""pics/bao/album/promotion/wsb_060511_58x78.gif"" width=""58"" height=""83""  />")
end if
banner1.close
set banner1=nothing%>




		  <ul><%set rsNews = connbbs.execute("select top 8 Topic,ForumID,id from BBSXP_Threads  order by PostTime desc,id desc")
if not rsNews.eof then
     do while not rsNews.eof%>
        <li><a href="/bbs/showpost.asp?ForumID=<%=rsnews("ForumID")%>&ThreadID=<%=rsnews("id")%>" target="_blank" title=<%=rsnews("Topic")%>><%=InterceptString(rsNews("Topic"),24)%></a></li>
	 <%rsNews.movenext
     loop
end if
rsNews.close
set rsNews=nothing
%>
		
        </ul>
      </div>
      <div id="ForumHotThreads">
        <h4>热帖<span><a href="bbs/">更多</a></span></h4>
        <ul>
          <%set rsNews = connbbs.execute("select top 8 Topic,ForumID,id from BBSXP_Threads  order by views desc,LastTime desc,id desc")
if not rsNews.eof then
     do while not rsNews.eof%>
        <li><a href="/bbs/showpost.asp?ForumID=<%=rsnews("ForumID")%>&ThreadID=<%=rsnews("id")%>" target="_blank" title=<%=rsnews("Topic")%>><%=InterceptString(rsNews("Topic"),16)%></a></li>
	 <%rsNews.movenext
     loop
end if
rsNews.close
set rsNews=nothing
%>
        </ul>
		<div class="HackBox"></div>
      </div>
      <div id="ForumActivities">
        <h4>精华<span><a href="bbs/">更多</a></span></h4>
        <ul>
       <%set rsNews = connbbs.execute("select top 8 Topic,ForumID,id from BBSXP_Threads where IsGood=1 order by IsGood desc,id desc")
if not rsNews.eof then
     do while not rsNews.eof%>
        <li><a href="/bbs/showpost.asp?ForumID=<%=rsnews("ForumID")%>&ThreadID=<%=rsnews("id")%>" target="_blank" title=<%=rsnews("Topic")%>><%=InterceptString(rsNews("Topic"),16)%></a></li>
	 <%rsNews.movenext
     loop
end if
rsNews.close
set rsNews=nothing
%>				
        </ul>
      </div>
      <div class="HackBox"></div>
    </div>
  </div>
<br>  
<div id="MoreSideInfo">
    <h3><a href="showqiougou.asp">最新求购</a></h3>
    <div class="Content">
		  <br><ul>
        <%shop_qg(10)%>
        </ul>
      </div>
</div>
  <!--导购Banner-->
  <div id="PromBanner">
   <% set banner1= conn.execute("select top 1 * from ad where adtype1=5 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("<div align=center><img src=pics/bao/album/chl/fp/banner_5F250x300_wxb.gif border=0></div>")
end if
banner1.close
set banner1=nothing%>
  </div>
</div>


<!-- div#SideBar -->
<div class="HackBox"></div>
<% ShowIndexChlChoice() %>
<div class="HackBox"></div>
<div id="IptvShow"></div>
</div>
<%
Response.Write "<table width=760 align=center cellpadding=0 cellspacing=0><tr><td>"
set banner1= conn.execute("select top 1 * from ad where (adtype1=1 or adtype1=2) 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")&" WIDTH=760 HEIGHT=100 border=0>")
else
Response.Write("<div align=center><a href=../click.asp?id="&banner1("id")&"&url="&banner1("url")&" target=_blank onFocus=this.blur()><img src=../user/images/gg/"&banner1("imageurl")&" border=0></a></div>")
end If
Else
Response.Write("<div align=center><a href=http://www.rikee.com target=_blank onFocus=this.blur()><img src=http://bbs.rikee.com/d/468X60GGT.gif border=0></a></div>")
end if
banner1.close
set banner1=nothing
Response.Write "</td></tr></table>"
%><br>
<!--#include file="indexbottom.asp" -->
</html>



