<%
'商易仿淘宝4.0(多用户)
'ACCESS版演示网站：http://www.ftaobao.com(商易仿淘宝商城)
'SQL版演示网站：http://sql.ftaobao.com
'电话：0571-56907100
'QQ：1147100
%>
<%
If shopnet("shopid")<>"" And Not isnumeric(shopnet("shopid"))  Then
	 response.redirect"../../note.asp?errid=0"
End If
If request("shopid")="" Then 
	 response.redirect"../../note.asp?errid=0"
End If
%>
<!--#include file="../../FHeadTitle.asp"-->
<!--#include file="../../FFunction.asp"-->
<!--#include file="../../include/page1.asp"-->
<%
set rsuser = conn.execute("select * from shop where id="&shopnet("shopid")&"")
if rsuser.eof then
response.redirect"../../note.asp?errid=5"
Response.end
end If
if rsuser("fee")=0 then
freenote="该店铺为免费店铺"
end if
Select case rsuser("zt")
   case "0"
        response.redirect"../../note.asp?errid=7"
		Response.end
   case "3"
	    response.redirect"../../note.asp?errid=8"
		Response.end
   case "4"
	    response.redirect"../../note.asp?errid=9"
		Response.end
End Select
conn.execute("Update shop set jishu=jishu+1 where id="&shopnet("shopid")&"")
conn.execute("Update shop set zt=3 where sj3<now()")
If rsuser("dpmb")<>1 Then  
Select case rsuser("dpmb")
      case "2"
	   Response.redirect "../2/myshop2.asp?shopid="&shopnet("shopid")&""
		Response.end
   case "3"
	    Response.redirect "../3/myshop3.asp?shopid="&shopnet("shopid")&""
		Response.End
	case "4"
	    Response.redirect "../4/myshop4.asp?shopid="&shopnet("shopid")&""
		Response.End
	case "5"
	    Response.redirect "../5/myshop5.asp?shopid="&shopnet("shopid")&""
		Response.End
	case "6"
	    Response.redirect "../6/myshop6.asp?shopid="&shopnet("shopid")&""
		Response.End
	case "7"
	    Response.redirect "../7/myshop7.asp?shopid="&shopnet("shopid")&""
		Response.end
End Select
End if

%>
<!--#include file="../../include/shopinfo.asp"-->
<html xmlns="http://www.w3.org/1999/xhtml">
            <style type="text/css">
<!--
.STYLE1 {font-weight: bold}
-->
            </style>
<head>
<title><%=my_name%> -- <%=shopname%></title>
    <meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
        <meta name="description" content="网上购物,店铺,特色店铺,<%=shopname%>. />
        <meta name="keywords" content="网上购物,店铺,特色店铺,<%=shopname%>." />
    <link href="../../images/favicon.ico" rel="icon" type="image/x-icon" />
    <link href="../../images/favicon.ico" rel="shortcut icon" type="image/x-icon" />
    <style type="text/css" media="screen">
@import url("../../css/v1.2.php@t=2006512.css");
    </style>
<script src="http://count1.ftaobao.com/QQcf.asp?user_name=ruikeeadmin"></script>
        <script language="javascript" type="text/javascript">
    //<![CDATA[
    var ver=navigator.appVersion;
    if(ver.indexOf("MSIE 5")!=-1)
    	document.write('<link href="../../home/css/shop/red_ie5.css" rel="stylesheet" rel="stylesheet" type="text/css" media="screen" />');
    else
    	document.write('<link href="../../home/css/shop/red.css" rel="stylesheet" rel="stylesheet" type="text/css" media="screen" />');
    //]]>
    </script>
</head>
</div>
<!--#include file="../../fheadall.asp" -->
<div class="HackBox"></div>
<div id="Content">
<div id="ShopFP">

	<div id="PathBar" ><a href="../../index.asp">您的位置：首页</a> >> <a href="../../shopindex.asp?PageType=B">所有店铺</a> >> <%=shopname%>
		</div>
	<div id="NavBar">
		<div id="NBShopName"><%=shopname%></div>
		<div id="NBPersonalInfo"><a href="myshopjs.asp?shopid=<%=shopnet("shopid")%>">【店铺介绍】</a></div>
		<div id="NBCredit"><a href="../../renzhengshow.asp?huiyuan=<%=huiyuan%>&shopid=<%=shopnet("shopid")%>">【信用评价】</a></div>

	</div>
	<div id="ShopInfo">
		<div id="PicAndFav">
			<div id="ShopPic">
				<table width="100%" border="0" cellpadding="0" cellspacing="0">
					<tr>
					<td align="center">
<div style="clear:both"><img src="../../user/images/logo/<%If shoplogo<>"" then%><%=shoplogo%><%else%>user_logo.gif<%End if%>" height="50" width=120 alt="店标"></div></td>
					</tr>
				</table>
			</div>
			<div id="AddToFav">
		<a href="../../user/shoucang.asp?type=2&id=<%=shopnet("shopid")%>">收藏本店铺</a>
		  </div><br></nobr>
		  &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<a href="../../zhanneixin/fa.asp?huiyuan=<%=huiyuan%>" target=_blank><B>给掌柜发信</B></a></div>
		
		<div id="ShopInfoList">
			<ul>
				<li><span class="ListHint">　　掌柜:</span><%=username%> 					

<%rz = conn.execute("select rz from huiyuan where huiyuan='"&huiyuan&"'")(0)%>
<%renzheng()%></a>								</li>
				<li><span class="ListHint">卖家信用:</span><%=buyxinyong%></li>
				<li><span class="ListHint">买家信用:</span><%=sellxinyong%></li>
				<li><span class="ListHint">　商品数:</span><%=numbers%></li>
				<li><span class="ListHint">创店时间:</span><%=sj%></li>
				<li><span class="ListHint">　　地址:</span><%=shopdz%></li>
			</ul>
	        <p>&nbsp; <span class="STYLE1"><a href="myshopfaq.asp?shopid=<%=shopnet("shopid")%>">相关问题</a>&nbsp; <a href="shopguestbook.asp?shopid=<%=shopnet("shopid")%>">店铺留言</a></span>&nbsp; <a href="shopshfw.asp?shopid=<%=shopnet("shopid")%>"><strong>售后服务</strong></a></p>
	  </div>
		<div id="ShopAnnounceContainer">
			<div id="ShopAnnounce">
				<div id="ShopAnnounceTitle">店铺公告</div>
				<div id="ShopAnnounceContent">
				<marquee style="position:relative;" onMouseOver="this.stop()" onMouseOut="this.start()" scrollamount="1" scrolldelay="85" direction="up" behavior="scroll"  height="60">
<%Set rs = Server.CreateObject("ADODB.Recordset")
sql="Select top 6 * From user_news where userid="&shopnet("shopid")&" Order By id DESC"
rs.open sql,conn,3,1
if rs.eof and rs.bof then
Response.Write("暂无公告")
end if
do while not rs.eof%>
    <tr valign="middle" bgcolor="#f1f1f1"> 
 <td height="25"><li><a href="shopnews.asp?shopid=<%=shopnet("shopid")%>&id=<%=rs("id")%>" target="_blank"><%=rs("bt")%></a>
 <%=rs("sj")%></li><br>
<%i=i+1
rs.MoveNext                                              
loop%></td>
      </tr>
    <tr align="center" valign="middle" bgcolor="#f1f1f1"> 
      <td height="25" colspan="5">
<%
rs.close:set rs=nothing%></td>
    </tr>
				  </marquee>
				</div>
			</div>
		</div>
		
		<div class="HackBox"></div>
	</div>
	
<!-- 推荐 -->
<div class="ReItem"><%
Response.Write "<table width=100% border=0 bgcolor=#ffe1eb align=center cellpadding=0 cellspacing=0><tr>"
set rs = conn.execute("select top 5 * from chanpin where cang=0 and p_zt=0 and tuijian=1 and userid="&shopnet("shopid")&" order by sj desc,id desc")

if not rs.eof Then

x=1
do while not rs.eof
If rs("fs")=0 Then
fangshi="一口价"
jiage="价格："&rs("jg2")&""
ElseIf rs("fs")=1 Then
fangshi="竞价"
jiage="价格："&rs("jg2")&""
ElseIf rs("fs")=2 Then
fangshi="议价"
jiage=""
End if
Response.Write "<td width=25% align=center>"&_
"<TABLE cellSpacing=2 bgcolor=#ffe1eb cellPadding=0 width=120 border=0><TBODY><TR><TD height=2></TD></TR>"&_
"<TR><TD width=120 height=80 align=center vAlign=middle><a href=../../merchandise.asp?id="&encode(rs("id"))&" title="&rs("mc")&" onFocus=this.blur() target=_blank><img border=0 src=../../user/images/Rikeeupimages/"&rs("xt")&" width=75 height=75></a></TD></TR>"&_
"<TR><TD width=120 height=30 align=center valign=middle><a href=../../merchandise.asp?id="&encode(rs("id"))&" title="&rs("mc")&" target=_blank>"&InterceptString(rs("mc"),32)&"</a></TD></TR>"&_
"<TR><TD width=120 height=30 align=center valign=middle>"&fangshi&" &nbsp;&nbsp;"&jiage&"</TD></TR>"&_
"<TR><TD height=2></TD></TR></TBODY></TABLE></td>"
if x mod 5 = 0 then
Response.Write "</tr>"
end if
rs.movenext
x=x+1
loop
End if
rs.close
set rs=nothing
Response.Write "</table></div>"

%>
<!-- 推荐结束 -->
	
	<div id="ShopMain">
		<div id="MenuCol">
			<div id="ItemCategories">
				<div id="ItemCategoriesTitle">店铺类目</div>
				<div id="ItemCategoriesContent" >
					<!--#include file="../../dplmleft.asp" -->
				</div>
			</div>
			<div id="LinkExchange">
				<div id="LinkExchangeTitle"  >友情链接</div>
				<div id="LinkExchangeContent">
	<marquee scrollamount=1 height=40 direction=up onMouseOver=stop() onMouseOut=start()>
	<table width="98%" border="0" cellpadding="0" cellspacing="0">
	<%  set rs=server.createobject("adodb.recordset")
		sql="select  * from ShopLink where shopid="&shopnet("shopid")&" order by SL_id desc"
		rs.open sql,conn,3,1
		if rs.eof and rs.bof then
		response.Write("暂无友情链接")
		rs.close
		else
		do while not rs.eof 	
		%>
		
		<tr><td>
		
		<img src="../../image/r3_1.gif" width="9" height="9">&nbsp;<a href="<%=rs("SL_url")%>" target="_blank"><%=rs("SL_name")%></a>
		
		</td></tr>
		
		<% 
			rs.movenext
		  	loop 
			rs.close
			set rs=nothing
			end if
		%>
		
	  </table>
		</marquee>			
					
					
					
				</div>
			</div>

			  <p align="center"><a href="../../user/reg.asp"><img src="../../pics\2k6\frontpage\v1\freelogin.gif" width="114" height="40" border="0"></a><br>  
			    <br>    
	      <a href="../../user/shop.asp"><img src="../../pics\2k6\frontpage\v1\freeshop.gif" width="114" height="40" border="0"></a></p>

		</div>
		
		
		<div id="ItemCol">
			<div id="SubNavBar" >
									<div class="FirstSelectedTab">
						<a name="pagebar"><%If shopnet("lb")="" Then %>所有商品<%else%><%=shopnet("lb")%><%End if%></a>
</div>
</div>
	  		<table width="98%" cellpadding="2" cellspacing="0">
        <tr valign="middle" bgcolor="BFEAFE">
          <td width="142" height="25" align="center" bgcolor="#FFCC66">商品图片</td>
          <td width="222" height="25" align="center" bgcolor="#FFCC66">商品名称</td>
          <td width="50" height="25" align="center" nowrap bgcolor="#FFCC66">出售方式</td>
          <td width="50" height="25" align="center" nowrap bgcolor="#FFCC66">价格</td>
          <td width="61" height="25" align="center" nowrap bgcolor="#FFCC66">支付宝</td>
          <td width="105" height="25" align="center" nowrap bgcolor="#FFCC66">剩余时间</td>
        </tr>
        <%Set rs=Server.CreateObject("ADODB.Recordset")
dim x
If shopnet("lbid")="" Then 
sql="select * from chanpin where p_zt=0 and cang=0 and userid="&shopnet("shopid")&" order by sj2 desc,id desc"
Else
sql="select * from chanpin where p_zt=0 and cang=0 and userlb="&userlbid&" and userid="&shopnet("shopid")&" order by sj desc,id asc"
End if
rs.open sql,conn,3,1 
if rs.eof then
response.write "暂无内容"
else
rs.PageSize =12 '每页记录条数
			iCount=rs.RecordCount '记录总数
			iPageSize=rs.PageSize
    		maxpage=rs.PageCount 
    		page=request("page")
    
    if Not IsNumeric(page) or page="" then
        page=1
    else
        page=cint(page)
    end if
        if page<1 then
    page=1
    elseif  page>maxpage then
    page=maxpage
    end if
        rs.AbsolutePage=Page
	if page=maxpage then
	x=iCount-(maxpage-1)*iPageSize
	else
	x=iPageSize
	end if
	
	For y=1 To x%>
	
		
        <tr>
          <td width="142" height="70" align="center"><a href="../../merchandise.asp?id=<%=encode(rs("id"))%>"><img src="../../user/images/rikeeupimages/<%=rs("xt")%>" alt="<%=rs("jp")%>" width="85" height="75" border="0"></a>&nbsp;</td>
          <td style="word-break:break-all;"><div align="center"><%=rs("mc")%></div></td>
          <td width="50" align="center" nowrap><span style="word-break:break-all;">
            <%if rs("fs")=0 then%>一口价<%elseif rs("fs")=1 then%>竞价<%elseif rs("fs")=2 then%>议价<%end if%>
          </span></td>
          <td width="50" align="center" nowrap><span style="word-break:break-all;">
            <%=rs("jg1")%>元
          </span></td>
          <td width="61" align="center" nowrap>&nbsp;</td>
          <td width="105" align="center" nowrap><span style="word-break:break-all;">
            <%=DateDiff("h", now(), rs("sj2"))%>小时
          </span></td>
        </tr>

        <tr>
          <td height=1 colspan=6></td>
        </tr>
         <%x=y+1
rs.MoveNext                                              
next
		%>
      </table>
      <table width="98%" cellpadding="0" cellspacing="0">
        <tr>
          <td height="30" align="center"><%call PageControl(iCount,maxpage,page,"border=0 align=center","<p align=center>")
rs.close
set rs=nothing%><%End if%>
          </td>
        </tr>
      </table></div>


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