<% 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万彩票网有信誉吗? 彩票网站注册送彩金 600万彩票网
太阳城娱乐手机版 澳门申博官网 申博在线太阳 申博sunbet平台
澳彩网湖北快三 永利娱乐注册登入 新葡京OG视讯 大象彩票官方网
金巴黎彩票网官网 吉祥博下载 仲博彩票平台 600万彩票网完整版
吉祥博下载 吉祥博客户端下载 红中彩票游戏 2017时时彩平台排行榜
88sbib.com 600xsb.com 8JAS.COM 8RQS.COM 585DC.COM
8AQS.COM 8DTS.COM S6181.COM 99sbsun.com 4888tyc.com
855TGP.COM 315ib.com 8AKSS.COM 833TGP.COM 55sbmsc.com
XSB298.COM 518XTD.COM 8KTS.COM 1112931.COM 729XTD.COM