<%const rootPath="."%> <%=sys.title%>
净化热线
13805461982
 
<%=kslbflash(7)%>
清除案例
检测设备
科普知识
新闻中心
招商加盟
栏目导航  NAVIGATOR
 
甲醛检测、治理甲醛、甲醛清除相关知识
<% set rs = Server.CreateObject("ADODB.RecordSet") if dp=1 and id<>0 then sql="select [id],[title],[color],[italic],[location],[qianyan],[hit],[ontop],[tj],[hot],[bold],[addtime],[titlepic] from [ksnews] where lm="&int(id)&" and show=0 order by xuhao desc,ontop desc,id desc" elseif id<>0 then sql="select [id],[title],[color],[italic],[location],[qianyan],[hit],[ontop],[tj],[hot],[bold],[addtime],[titlepic] from [ksnews] where lm"&dp&"="&int(id)&" and show=0 order by xuhao desc,ontop desc,id desc" else sql="select [id],[title],[color],[italic],[location],[qianyan],[hit],[ontop],[tj],[hot],[bold],[addtime],[titlepic] from [ksnews] where show=0 order by xuhao desc,ontop desc,id desc" end if rs.Open sql,conn,1,1 if rs.recordcount<>0 then pn=request.QueryString ("pn") rs.PageSize=20 if not isnumeric(pn) then pn=1 elseif int(pn)<=0 or int(pn)>rs.pagecount then pn=1 else pn=int(pn) end if rs.AbsolutePage=pn for i=1 to rs.PageSize %>
· href="<%=trueurl(rs("id"),rs("location"),"/new/view.asp?id=")%>" target="_blank" title="<%=rs("title")%>" class="news_query_list_title"><%=titleb(rs("title"),56,"…")%><%if rs("titlepic")<>"" then response.Write ""%><%=oth(rs("ontop"),0,rs("hot"))%> 关注数:<%=rs("hit")%> <% if rs("qianyan")="" then response.Write(" "&rs("addtime")&"")%>
<% if rs("qianyan")<>"" then %>
<%=rs("addtime")%>
<% end if %>
<% rs.movenext if rs.eof then exit for next else response.Write("
 暂未发布新闻!
") end if %>
<% if rs.recordcount<>0 then if rs.pagecount=1 then response.Write("当前只有1页") else if pn>1 then response.Write("首页<上一页") if pn-4>0 and rs.pagecount-pn>=5 then'****' for i=pn-4 to pn+5 if pn=i then response.Write(""&i&"") else response.Write(""&i&"") end if if i=rs.pagecount then exit for next elseif rs.pagecount-pn<5 and rs.pagecount>9 then'****' for i=rs.pagecount-9 to rs.pagecount if pn=i then response.Write(""&i&"") else response.Write(""&i&"") end if next else'****' for i=1 to 10 if pn=i then response.Write(""&i&"") else response.Write(""&i&"") end if if i=rs.pagecount then exit for next end if'****' if pn下一页>尾页") end if end if rs.close:set rs=nothing %>
<%=config("footcontent")%>
<%call oicq("blue","在线QQ")%>