<%
'商易仿淘宝4.0(多用户)
'ACCESS版演示网站：http://www.ftaobao.com(商易仿淘宝商城)
'SQL版演示网站：http://sql.ftaobao.com
'电话：0571-56907100
'QQ：1147100
%>
<%IsShowChannel=False
IsShowHotKey=False
userlbid=Trim(shopnet("lbid"))
If shopnet("shopid")<>"" Then 
 sellxinyong=conn.execute("select sum(sellxinyong) from list where userid="&shopnet("shopid")&" ")(0)
 If sellxinyong<>"" Then
 else
 sellxinyong=0
 End if
numbers=conn.execute("select count(id) from chanpin where userid="&shopnet("shopid")&"")(0)


buyxinyong=conn.execute("select sum(buyxinyong) from list where userid="&shopnet("shopid")&"")(0)
 If buyxinyong<>"" Then
 else
 buyxinyong=0
 End if
Set rs = Server.CreateObject("ADODB.Recordset")
sql="select * from huiyuan where huiyuan ='" &huiyuan&"'"
rs.open sql,conn,3,2
if not rs.eof and not rs.bof Then
End if
Set rs = Server.CreateObject("ADODB.Recordset")
sql="select * from shop where id =" &shopnet("shopid")
rs.open sql,conn,3,2
if not rs.eof and not rs.bof then
shopname=rs("name")
username=rs("name2")
shoplogo=rs("logo")
huiyuan=rs("huiyuan")
shopdz=rs("dz1")
dpjs=rs("js")
sj=rs("sj")
shoptel=rs("tel")
txt=rs("fuwu")
mail=rs("mail")
oicq=rs("oicq")
fw=rs("fw")
rs.close
Set rs=Nothing
else
'	 response.redirect"/note.asp?errid=5"
response.Write("<Script>alert('店铺参数错误！');window.location='index.asp';</script>")
response.End
end If
End If%>