<% typeid=Trim(Request("typeid")) if typeid="" then typeid=21 if typeid=1 then elseif typeid=25 or typeid=26 then title_top="客服中心_佛山博尔高隔间   |办公隔墙|高隔间|玻璃隔断" description_top="佛山博尔隔墙公司 ,专注高隔间、防火高隔断、吸音高隔间、整体木纹隔间的铝材、门、百叶帘、配件等整体配套。诚招加盟商,承诺一年不盈利赔10万元。咨询:  400-660-0343" keywords_top="办公室玻璃隔间 ,金属地脚线,办 公室门,中空百叶帘" elseif typeid=24 then title_top="招商加盟_佛山博尔高隔间   |办公隔墙|高隔间|玻璃隔断" description_top="佛山博尔隔墙公司 ,专注高隔间、防火高隔断、吸音高隔间、整体木纹隔间的铝材、门、百叶帘、配件等整体配套。诚招加盟商,承诺一年不盈利赔10万元。咨询:  400-660-0343" keywords_top="办公玻璃隔墙 ,金属百叶帘,套 装门,办公室高隔间" else title_top="资讯中心_佛山博尔高隔间   |办公隔墙|高隔间|玻璃隔断" description_top="佛山博尔隔墙公司 ,专注高隔间、防火高隔断、吸音高隔间、整体木纹隔间的铝材、门、百叶帘、配件等整体配套。36、80、84、108 十几个款式,公司 备有500吨库存。咨询: 400-660-0343" keywords_top="办公隔断 ,高隔墙,办公室 玻璃高隔间,隔墙" end if %> 火拼牛牛网站|<%=title_top%>
<% if typeid<>"" then Set rsne=Server.CreateObject("Adodb.RecordSet") sql = "select * from news_type where id="&typeid&" order by id desc" rsne.Open sql,conn,1,1 if not rsne.eof then typeid=rsne("id") type_name=rsne("news_type") end if rsne.close end if %>
<% if typeid="25" or typeid="26" or typeid="29" then call left6() elseif typeid="24" then call left5() elseif typeid="28" then call left7() else call left2() end if call left_sp() call left_lxwm() call left_zsjm() call left_swf() %>
<% if typeid="25" or typeid="26" or typeid="29" then %>
<%=type_name%>您当前所以位置:    首页 > 客服中心 > <%=type_name%>
<% elseif typeid="24" then %>
<%=type_name%>您当前所以位置:    首页 > 招商加盟 > <%=type_name%>
<% elseif typeid="28" then %>
<%=type_name%>您当前所以位置:    首页 > 装修常识 > <%=type_name%>
<% else %>
<%=type_name%>您当前所以位置:    首页 > 资讯中心 > <%=type_name%>
<% end if %>
    <% dim strFileName const MaxPerPage=28 dim totalPut,CurrentPage,TotalPages strFileName=request.ServerVariables("script_name")&"?typeid="&typeid&"" if request("page")<>"" then currentPage=cint(request("page")) else currentPage=1 end if Set rs=Server.CreateObject("Adodb.RecordSet") sql = "select * from news where typeid="&typeid&" and language=1 order by addtime desc" rs.Open sql,conn,1,1 %> <% if rs.eof and rs.bof then showContent showpage strFileName,totalput,MaxPerPage,true,true,"条新闻" else totalPut=rs.recordcount if currentpage<1 then currentpage=1 end if if (currentpage-1)*MaxPerPage>totalput then if (totalPut mod MaxPerPage)=0 then currentpage= totalPut \ MaxPerPage else currentpage= totalPut \ MaxPerPage + 1 end if end if if currentPage=1 then showContent showpage strFileName,totalput,MaxPerPage,true,true,"条新闻" else if (currentPage-1)*MaxPerPage <% sub showContent dim i i=0 %> <%do while not rs.EOF %>
  • &newsid=<%=rs("id")%>"><%=HtmlCutter(rs("topic"), 90, "hand") %>[<%=formatdatetime(rs("addtime"),2)%>]
  • <% i=i+1 if i>=MaxPerPage then exit do rs.movenext loop %>
<%end sub %>
友情链接:    如意彩票   盛世彩   京彩网   爱投彩票官网   五福彩票