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


请先选择分类<br/>
帮助 如何买卖<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='mymm.asp?CONTSE=<%=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
%><br/>
<!--#include file="fanhui.asp"-->
<%call headsay()%>