<% 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 %> 178国际赌博注册,索罗门线上棋牌,鸿胜国际娱乐开户 ,广东家具,顺德家具,佛山家具,家具" /> ,顺德家具网" />
  搜索产品:   办公家具   玻璃家具   卧室家具   客厅家具   沙发  
   >> <%=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 %>澳门太阳城官网
网站地图 吉祥博游戏 网上彩票平台是真的吗 吉祥博娱乐app
申博开户官网 申博138真人荷官 太阳城游戏网址 老钱庄娱乐官网注册
网易彩票大乐透登入 必赢彩票加拿大3.5分 优博平台官网 乐发彩票开户登入
600w彩票网m.600w.org 吉祥博娱乐app 爱彩网app下载 红中彩票网
600万彩票网网站 红中彩票官网 金巴黎彩票网注册 600万彩票网骗局
132sun.com 588cw.com 1113887.COM 8CYS.COM 66sbsun.com
855TGP.COM 598XTD.COM 588BBIN.COM 4444XSB.COM 989sunbet.com
XSB788.COM 578sj.com 298PT.COM 77TGP.COM 586sunbet.com
171ib.com 272SUN.COM 788TGP.COM 581tt.com 9927w.com