<!-- #include file="conni.asp" -->
<%call Head() 
Call saycarda("商城-"&waptitle&"")%>
<!--#INCLUDE file="../bbs/sy1.asp"-->
<%

if myid<>0 then
mz="[url=/bbs/uinfo.asp?id="&myid&"&amp;saytk=[saytk]&amp;sid=[sid]]"&myni&"[/url]"
else
mz="游客"&Replace(time(),":","")&""
end if
conn.execute("insert into sqdt(shijian,dz)values('"&now&"','"&mz&"逛到了(url=/shop/?saytk=[saytk]&amp;sid=[sid])商城大街(/url)')")
if zqfjsh=2 then%>
商城升级中......
<%else%>

<%if myid<>0 then
set npp=Server.CreateObject("ADODB.Recordset")
rspl="select * from Users where id="&myid
npp.open rspl,conn
uurl=ubb(npp("sftp"))%>
用户名:<a href='/bbs/show.asp?saytk=<%=saytk%>&amp;sid=<%=sid%>'><%=myni%></a>|<%if npp("dzt")=1 then%><a href='mykd.asp?saytk=<%=saytk%>&amp;sid=<%=sid%>'>审核中</a><br/><%elseif npp("dzt")=2 then%><a href='adminmy.asp?sid=<%=sid%>&amp;saytk=<%=saytk%>'>管理</a><br/><%end if%><%end if%>
<img src='<%=shoplogo%>' alt='logo'/><br/>
  



<%
Call shopso()

brs4.close
set brs4=nothing
Response.write ""
set brs12=Server.CreateObject("ADODB.Recordset")
     ssql22="select top 8 * from Users where dzt=2 and tj<>0 order by tj desc"
  brs12.open ssql22,conn,1,1
if brs12.eof then
   Response.write "<b>暂无推荐商店</b><br/>"
Else

For f=1 to 8
    spmc=left(brs12("dname"),12)
   if len(brs12("dname"))>8 then
    spmc=spmc+""
   End if
    Response.write "[推荐]<a href='tdp.asp?id=" & brs12("id") & "&amp;saytk="&saytk&"&amp;sid="&sid&"'>" & ubb(spmc) & "</a><br/>"
    brs12.Movenext
  if brs12.EOF then Exit for
    Next
  End if
brs12.close
set brs12=nothing
%>

【最新上市商品】

<%
Response.write "<a href=""/shop/mym.asp?saytk="&saytk&"&amp;sid="&sid&""">发布</a><br/>"

set brs1=Server.CreateObject("ADODB.Recordset")
     ssql="select top 8 * from shop_xx order by fsj desc"
  brs1.open ssql,connshop,1,1
if brs1.eof then
   Response.write "<b>暂无新品</b><br/>"
Else

For i=1 to 8
    spmc=left(brs1("name"),12)
   if len(brs1("name"))>8 then
    spmc=spmc+""
   End if
    Response.write ""&i&".<a href='view.asp?id=" & brs1("id") & "&amp;saytk="&saytk&"&amp;sid="&sid&"'>" & ubb(spmc) & "</a><br/>"
    brs1.Movenext
  if brs1.EOF then Exit for
    Next
  End if
brs1.close
set brs1=nothing
%>
【全部:
<a href="shangjia.asp?saytk=<%=saytk%>&amp;sid=<%=sid%>">店铺</a>|
<a href="jishi.asp?saytk=<%=saytk%>&amp;sid=<%=sid%>">货品</a>|
<a href='rqdp.asp?saytk=<%=saytk%>&amp;sid=<%=sid%>'>人气</a>】<br/>
【商品导购:
<a href='myg.asp?saytk=<%=saytk%>&amp;sid=<%=sid%>'>购买</a>|<a href='mym.asp?saytk=<%=saytk%>&amp;sid=<%=sid%>'>出售</a>】<br/>









【<a href="2shou.asp?saytk=<%=saytk%>&amp;sid=<%=sid%>">二手物品市场</a>】

<a href="/shop/m2s.asp?saytk=<%=saytk%>&amp;sid=<%=sid%>">发布</a><br/>
<%set brs2=Server.CreateObject("ADODB.Recordset")
     ssql2="select top 8 * from shop_es order by fsj desc"
  brs2.open ssql2,connshop,1,1
if brs2.eof then
   Response.write "<b>暂无二手商品</b><br/>"
Else

For h=1 to 8
    spmc2=left(brs2("name"),12)
   if len(brs2("name"))>8 then
    spmc2=spmc2+"~"
   End if
    Response.write ""&h&".<a href='2view.asp?id=" & brs2("id") & "&amp;saytk="&saytk&"&amp;sid="&sid&"'>" & ubb(spmc2) & "</a><br/>"
    brs2.Movenext
  if brs2.EOF then Exit for
    Next
  End if
brs2.close
set brs2=nothing
%>


【综合货品分类】<br/>

<%set rs=Server.CreateObject("ADODB.Recordset")
rsppl="select * from shop_lm order by pid asc"
rs.open rsppl,connshop,1,2
if rs.eof then 
response.write("商城建设中......<br/>")
else
rs.Move(0)
dim j
j=1
do while ((not rs.EOF) and j <=500000)%>
<%if rs("lx")="1" then%>
<%=ubb2(rs("fljj"))%>
<%elseif rs("lx")="2" then%>
<a href="list.asp?saytk=<%=saytk%>&amp;dlid=<%=rs("id")%>&amp;sid=<%=sid%>"><%=ubb(rs("name"))%></a>
<%end if%>
<%if rs("br")=1 then%><br/><%end if%>
<%
rs.MoveNext
j=j+1
loop
end if

%>


<br/>【帮助:



<a href='eggz.asp?saytk=<%=saytk%>&amp;sid=<%=sid%>'>商城准则</a>|<a href='/bbs/managers.asp?saytk=<%=saytk%>&amp;sid=<%=sid%>'>网站客服</a>】
<% myid=request.querystring("xyid") %>
<!--#include file="../bbs/fanhui.asp"-->
<%end if%>
<%call head3()%>