<%
'商易仿淘宝4.0(多用户)
'ACCESS版演示网站：http://www.ftaobao.com(商易仿淘宝商城)
'SQL版演示网站：http://sql.ftaobao.com
'电话：0571-56907100
'QQ：1147100
%>
<table width="90%" border="0" cellpadding="0" cellspacing="0"><tr><td><table width="90%" border="0" align="center" cellpadding="0" cellspacing="2"  style="word-break:break-all;">
<%
set rss = conn.execute("select id,userlb,lbid from user_lb where userid="&shopnet("shopid")&" and lbid=0 order by px desc,id")
do while not rss.eof
Response.Write("<tr><td height=22 valign=middle>&nbsp;&nbsp;&nbsp;<a href=?shopid="&shopnet("shopid")&"&lbid="&rss("id")&"&lb="&rss("userlb")&"><font color=#ff6600><b>"&rss("userlb")&"</b></font></a></td></tr>")
set xlb= conn.execute("select id,userlb,lbid from user_lb where userid="&shopnet("shopid")&" and lbid="&rss("id")&" order by px desc,id")
if not xlb.eof then
Response.Write("<tr><td height=22><table width=90% align=center cellspacing=0 cellpadding=0 border=0>")
x=0
do while not xlb.eof
Response.Write("<tr><td height=22 width=90% align=right><a href=?shopid="&shopnet("shopid")&"&lbid="&xlb("id")&"&lb="&rss("userlb")&">"&InterceptString(xlb("userlb"),10)&"</a>&nbsp;</td>")
xlb.movenext
if xlb.eof then 
response.write "<td  width=90% >&nbsp;</td></tr>"
else
Response.Write("<td height=22 width=90% align=left >|&nbsp;<a href=?shopid="&shopnet("shopid")&"&lbid="&xlb("id")&"&lb="&rss("userlb")&">"&InterceptString(xlb("userlb"),10)&"</a></td></tr>")
xlb.movenext
end if
loop
Response.Write("</table></td></tr>")
end if
xlb.close
set xlb=nothing
rss.movenext
loop
rss.close
set rss=nothing%>
</table></td></tr></table>
