<!--#include file="conn.asp"-->
<%call Head() %>
<%
Call saycarda("我要买")
%>
<!--#INCLUDE file="../bbs/sy1.asp"-->

请选择您感兴趣的分类<br/>


<%
set rsxl=Server.CreateObject("ADODB.Recordset")
rspl="select * from shop_lm order by pid asc"
rsxl.open rspl,connshop,1,2
if rsxl.eof then
   Response.write "暂无栏目！<br/>"
Else
dim j
j=1
do while ((not rsxl.EOF) and j <=cint(500))
%>
<a href='list.asp?dlid=<%=rsxl("id")%>&amp;saytk=<%=saytk%>&amp;sid=<%=sid%>'><%=ubb(rsxl("name"))%></a>
<%if j mod 4 =0 and j<>rsxl.RecordCount then response.write "<br/>"%>
<%
rsxl.Movenext  
j=j+1
loop
end if
rsxl.close
set rsxl=nothing
Response.write "<br/>=推荐商店=<br/>"
set brs12=Server.CreateObject("ADODB.Recordset")
     ssql22="select top 5 * from Users where dzt=2 and tj<>0 order by tj desc"
  brs12.open ssql22,connshop,1,1
if brs12.eof then
   Response.write "<b>暂无推荐商店</b><br/>"
Else

For f=1 to 3
    spmc=left(brs12("dname"),8)
   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
%>
<br/>
<!--#include file="fanhui.asp"-->


<%call headsay()%>