<% 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万彩票网平台 吉祥博app下载 彩票网站注册送彩金
太阳城现金开户 太阳城电子游戏 申博开户网址 太阳城亚洲
彩票平台幸运农场 彩天堂客户端直营网 金沙网址注册登入 大发彩票网注册
吉祥游戏充值中心 全红彩票信用怎么样 吉祥博 600w彩票网平台
红中彩票网址 红中彩票官网 金巴黎彩票网网站 吉祥游戏充值中心
897XTD.COM 987cw.com 77sbsun.com 689psb.com 100xsb.com
698psb.com 986jbs.com 958sj.com 558jbs.com XSB698.COM
998XTD.COM 8DCS.COM 887XTD.COM 81s8.com 587PT.COM
518sunbet.com 181cw.com 368PT.COM 567XTD.COM 77sbsun.com