<%
'商易仿淘宝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/page.asp"-->
<!--#include file="../../include/shopinfo.asp"-->
<html xmlns="http://www.w3.org/1999/xhtml">
<style type="text/css">
<!--
.STYLE2 {color: #000000}
.STYLE3 {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");
    .STYLE1 {
	color: #FFFFFF;
	font-weight: bold;
}
    </style>


        <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>
<%
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
If rsuser("dpmb")<>1 Then  
Select case rsuser("dpmb")
      case "2"
	   Response.redirect "../2/myshop2js.asp?shopid="&shopnet("shopid")&""
		Response.end
   case "3"
	    Response.redirect "../3/myshop3js.asp?shopid="&shopnet("shopid")&""
		Response.End
	case "4"
	    Response.redirect "../4/myshop4js.asp?shopid="&shopnet("shopid")&""
		Response.End
	case "5"
	    Response.redirect "../5/myshop5js.asp?shopid="&shopnet("shopid")&""
		Response.End
	case "6"
	    Response.redirect "../6/myshop6js.asp?shopid="&shopnet("shopid")&""
		Response.End
	case "7"
	    Response.redirect "../7/myshop7js.asp?shopid="&shopnet("shopid")&""
		Response.end
End Select
End if
%>


<!--#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> >> <a href="myshop.asp?shopid=<%=shopnet("shopid")%>"><%=shopname%></a>
	</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>
		    <div id="div">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<a href="../../zhanneixin/fa.asp?huiyuan=<%=huiyuan%>" target=_blank><B>给掌柜发信</B></a></div>
		    <br>
		</div>
		<div id="ShopInfoList">
			<ul>
				<li><span class="ListHint">　　掌柜:</span><%=username%> 					

<a href="../../renzhengshow.asp?huiyuan=<%=huiyuan%>&shopid=<%=shopnet("shopid")%>" target="_blank">
<%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><span class="STYLE3"><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">
<table width="100%" border="0" cellspacing="0" cellpadding="0">
 <tr >
    <td bgcolor="#ffe1eb"><table width="73%" border="0" align="center" cellpadding="5" cellspacing="5">
      <tr>
        <td height="22" bgcolor="#FF6666" style="word-break:break-all"><span class="STYLE1"> &nbsp;<%=shopname%>-----------店铺介绍</span></td>
      </tr>
      <%
If fw<>"" then
shopfw=fw
Else
shopfw="店主还没有设置！"
End If 
%> 
	  <tr>
        <td height="40" valign="top" style="word-break:break-all">
		<%=shopfw%>		</td>
      </tr>
      <tr>
        <td height="40" valign="top"><table width="100%" border="0" align="center" cellpadding="0" cellspacing="0">
          <tr>
            <td height="22" bgcolor="#FF6666" style="word-break:break-all"><span class="STYLE1"> &nbsp;配送及支付</span></td>
          </tr>
          <tr>
            <td height="22" bgcolor="#FFE1EB"><table width="100%" border="0" cellspacing="5" cellpadding="0">
                <tr>
                  <td>&nbsp;</td>
                  <td>商品所在地：</td>
                  <% Set rs = Server.CreateObject("ADODB.Recordset")
        sql="select * from fukuan where userid =" & shopnet("shopid")
        rs.open sql,conn,3,2
		if rs.eof and rs.bof then
		wmsg="掌柜还没有设置配送及支付方式"
		end if
		%>
                  <td style="word-break:break-all"><%=rs("suozaidi")%></td>
                </tr>
                <tr>
                  <td width="9%">&nbsp;</td>
                  <td width="19%">配送费用:</td>
                  <td width="72%" style="word-break:break-all"><%if rs("maijia")=1 then%>
                    卖家承担运费
                    <%else%>
                    EMS:<%=rs("amount")%>元&nbsp;&nbsp;平邮<%=rs("amount1")%>元&nbsp;&nbsp;快递：<%=rs("amount2")%>元
                    <%end if%>                  </td>
                </tr>
                <tr>
                  <td>&nbsp;</td>
                  <td>配送范围:</td>
                  <td style="word-break:break-all"><%=rs("fw")%></td>
                </tr>
                <tr>
                  <td>&nbsp;</td>
                  <td>发货方式:</td>
                  <td style="word-break:break-all"><%=rs("fahuofangshi")%></td>
                </tr>
                <tr>
                  <td>&nbsp;</td>
                  <td>预计收货时间:</td>
                  <td style="word-break:break-all"><%=rs("shouhuosj")%></td>
                </tr>
                <tr>
                  <td>&nbsp;</td>
                  <td>&nbsp;</td>
                  <td>&nbsp;</td>
                </tr>
                <tr>
                  <td>&nbsp;</td>
                  <td>付款方式:</td>
                  <td>&nbsp;</td>
                </tr>
                <tr>
                  <td colspan="3" bgcolor="#FFE1EB"><div align="center"></div>
                      <div align="center">
                        <%If rs("zhifubao")<>"" Then response.write "<img src=../../image/zhifubao.gif>" End if%>
                        &nbsp;
                        <%If rs("wangyinzaixian")<>"" Then response.write "<img src=../../image/wangyinlogo.gif>" End if%>
                        &nbsp;
                        <%If rs("egold")<>"" Then response.write "<img src=../../image/egold.gif>" End if%>
                        &nbsp;
                        <%If rs("youjuhuikuan")<>"" Then response.write "<img src=../../image/post.gif>" End if%>
                        &nbsp;
                        <%If rs("jiaotongyinhang")<>"" Then response.write "<img src=../../image/bank_jt.gif>" End if%>
                        &nbsp;
                        <%If rs("zhaoshangyinhang")<>"" Then response.write "<img src=../../image/bank_cmb.gif>" End if%>
                        &nbsp;
                        <%If rs("zhongguoyinhang")<>"" Then response.write "<img src=../../image/bank_headbg.gif>" End if%>
  &nbsp;
                        &nbsp;
                        <%If rs("jiansheyinhang")<>"" Then response.write "<img src=../../image/bank_ccb.gif>" End if%>
                        &nbsp;
                        <%If rs("nongyeyinhang")<>"" Then response.write "<img src=../../image/bank_abc.gif>" End if%>
                        &nbsp;
                        <%If rs("gongshangyinhang")<>"" Then response.write "<img src=../../image/bank_cbc.gif>" End if%>
                        &nbsp;
                        <%If rs("visa")<>"" Then response.write "<img src=../../image/bank_visa.gif>" End if%>
                        <%rs.close
				set rs=nothing%>
                          </div></td>
                </tr>
            </table></td>
          </tr>
        </table>
      </table>
<!--#include file="../../user/mybottom.asp" -->
  		
</body>
</html>
