<% 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 %> 开心8代理现金直营,鸟巢幸运球队添彩10%,红树林最可靠赌博 ,广东家具,顺德家具,佛山家具,家具" /> ,顺德家具网" />
  搜索产品:   办公家具   玻璃家具   卧室家具   客厅家具   沙发  
   >> <%=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 %>澳门太阳城官网
网站地图 澳门太阳城官网 金巴黎彩票网网站 吉祥坊彩票
申博游戏网站 沙龙娱乐注册 申博现金网 188申博太阳城官网
澳门赌场赢钱攻略 奔驰tips网址 天下网博彩娱乐 188彩票网上海快三
600万彩票网开户 吉祥游戏充值中心 澳门巴黎人娱乐场网址 博易彩票娱乐平台
爱彩网注册 红中彩票平台注册 澳门巴黎人官网网址 吉祥博游戏
717sj.com 8XMS.COM S6186.COM 575sj.com 988xsb.com
97XTD.COM 132sun.com 381psb.com 986XTD.COM S618Y.COM
288TGP.COM 18888shenbo.com 173XTD.COM XSB389.COM 66sbib.com
444TGP.COM 444xsb.com 77sbsg.com 988XTD.COM 1111XSB.COM