<% page=int(request("page")) if page < 1 then page=1 spage=0 epage=0 navstr0 = "" pagernavstr="?act=view" kid = int(request("kid")) if kid > 0 then sqlyt = "select top 1 title,id,parent,sort from yongtu where id="&kid rsyt = conn.execute(sqlyt) if not rsyt.eof then keyword_1 = rsyt(0) keyword = rsyt(0) sqlytp = "select top 1 title,id,parent,sort from yongtu where id="&rsyt("parent") rsytp = conn.execute(sqlytp) if not rsytp.eof then navstr0 = " "&rsytp("title")&" >> " end if pagernavstr = pagernavstr & "&kid="&kid end if fc = fc & " and ( byongtu in(select title from yongtu where yongtu.id in ("&kid&") ) or syongtu in (select title from yongtu where yongtu.id in ("&kid&"))) " end if bigid=int(request("bigid")) if bigid>0 then fk=" and Ctype="&bigid&" " pagernavstr = pagernavstr & "&bigid=" & bigid end if 'sqlstr="Select min(a.cid) as cid , a.hidd,a.sort FROM cpinfo a,(Select hidd, max(sort) as sort FROM cpinfo Where cid>0 "& fc & fk &" group by hidd) b Where a.hidd = b.hidd and a.sort = b.sort "& fc & fk &" and (Select shengp FROM userinfo Where userinfo.hidd=a.hidd)=1 group by a.sort,a.hidd order by (Select class FROM userinfo Where userinfo.hidd=a.hidd) desc,a.cid asc" sqlstr="select * from ProductByUserSearch where 1=1 "&fc&" "&fk&" order by ut1 desc,Hits desc" 'Response.Write(sqlstr) set brs=server.createobject("adodb.recordset") brs.pagesize=10 brs.open sqlstr,conn,1,1 if not brs.eof then if page>brs.pagecount then page=brs.pagecount end if brs.absolutepage=page aid="" x=0 do while not brs.eof x=x+1 aid=aid & brs(0) & "," if x=brs.pagesize then exit do brs.movenext loop end if if aid<>"" then sqlstr="Select top "& brs.pagesize &" cpinfo.cid,cpinfo.cname,cpinfo.cpicsa,cpinfo.hidd,cpinfo.cptype,cpinfo.gsname,cpinfo.uploadtime,userinfo.content,userinfo.uorder From cpinfo Left Join userinfo On (userinfo.hidd=cpinfo.hidd) Where cpinfo.cid IN ("& left(aid,(len(aid)-1)) &") Order By userinfo.class Desc,userinfo.uorder Asc,userinfo.hidd Asc,cpinfo.sort Desc,cpinfo.uploadtime Asc" set rs=conn.execute(sqlstr) else 'runjs("location.href='BigClass.asp';") response.End() end if if (page-3)<1 then spage=1 else spage=page-3 end if if (spage+10)>brs.pagecount then epage=brs.pagecount else epage=spage+10 end if %> 澳门网上在线赌博,九五至尊会员管理网最占成,最新金博网上赌场 ,广东家具,顺德家具,佛山家具,家具" /> ,顺德家具网" />
  搜索产品:   办公家具   玻璃家具   卧室家具   客厅家具   沙发  
   >> <%=navstr0%> <%=keyword_1 %>
共搜索到 <%=brs.recordcount%> 个企业资料 
<% sqlk="Select id From yongtu Where parent=0 and title like'%"&replace(keyword,"家具","")&"%' order by sort desc,id asc " set rsk=conn.execute(sqlk) if not rsk.eof then sqls="select id,title from yongtu where parent=" & rsk("id") & " order by sort desc,id asc" set rss=conn.execute(sqls) if not rss.eof then do while not rss.eof Response.Write(""&rss("title")&"  ") rss.movenext loop end if set rss=nothing end if set rsk=nothing %>
   
<%call imgnews(8,60)%>
当前<%=page%>页  共<%=brs.pagecount%>页红中彩票平台网址多少<% for p=spage to epage if p=page then response.write("" & p & "") else response.write(""& p & "") end if next %>澳门太阳城官网
网站地图 600万彩票网完整版 吉祥博平台登录 吉祥博平台登录
太阳城官方 申博太阳城代理开户 申博sunbet 申博138注册
博狗集團客服端下载 利澳娱乐最新利宫 满堂彩登录直营网 太阳城直营网官网
600w彩票网能信吗 澳门太阳城官网 600w彩票网信用 红中彩票平台网址多少
红中彩票平台登录 红中彩票注册 爱彩网平台登录 吉祥博app下载
9927w.com 8NNS.COM 828XTD.COM 381sunbet.com 8WWS.COM
1112997.COM 987XTD.COM DC785.COM 157psb.com 8ZZS.COM
XSB3333.COM 000XSB.COM 108ib.com DC583.COM 3333XSB.COM
586sunbet.com 8ZJKS.COM 66TGP.COM DC815.COM XSB687.COM