<% big_class=request("BCN") small_class=request("SCN") %> 广粮饮料食品有限公司
首 页 公司介绍 公司产品 饮料加工 消费者中心 销售中心 广纳贤才 广告欣赏 联系我们
 
消费者中心
  健康饮食贴士
 
<% page=clng(request("page")) Set rs=Server.CreateObject("ADODB.RecordSet") if big_class <> "" then if small_class <> "" then sql="select * from NEWS where BigClassName='"& big_class &"' SmallClassName='"& small_class &"' order by id desc" else sql="select * from NEWS where BigClassName='"& big_class &"' order by id desc" end if else sql="select * from NEWS where BigClassName='消费者中心' order by id desc" end if rs.Open sql,conn,1,1 if rs.eof and rs.bof then response.Write("暂时没有记录") else %> <% rs.PageSize=15 if page=0 then page=1 pages=rs.pagecount if page > pages then page=pages rs.AbsolutePage=page for j=1 to rs.PageSize %> <% rs.movenext if rs.eof then exit for next %> <% end if rs.close set rs=nothing %>
<% if rs("imagenum")<>"0" then response.write "图片新闻" end if %> " target="_blank" class="b"><%= RS("TITLE") %> [<%= RS("infotime") %>] (阅读<%= RS("hits") %>次)
<% if Page<2 then response.write "首页 上一页 " else response.write "首页 " response.write "上一页 " end if if rs.pagecount-page<1 then response.write "下一页 尾页" else response.write "" response.write "下一页 尾页" end if response.write " 页次:"&Page&"/"&rs.pagecount&"页 " response.write " 共"&rs.recordcount&"条记录 "&rs.pagesize&"条记录/页" response.write " 转到:" response.Write "" response.write "

" %>
©2007-2008 广粮饮料食品有限公司
地址:广州市环市东路486号广粮大厦18楼
广东及海南省业务联系电话:020-87319299 传真:020-87318112
  其他区域业务联系电话  :020-87676688 传真:020-87319151