<% response.buffer=true %> <%function getDataIp() dim ip ip=Request.ServerVariables("REMOTE_ADDR") if (left(ip,6)="80.0.0" or left(ip,6)="60.0.0" or left(ip,10)="172.18.200" or ip="127.0.0.1" or ip="218.104.5.50") then getDataIP="80.0.0.3" else getDataIP="221.214.14.188" end if end function %> 齐河兴农网
  | 山东兴农网 | 设为首页 | 设为收藏 | 联系我们 | 免费信箱
  | 齐河概况 | 兴农快讯 | 市场行情 | 农业科技 | 齐河特色 | 招商引资 | 气象服务 <%=formatdatetime(now,vblongdate)%> <%=weekdayname(weekday(now))%>
<% set weather=server.CreateObject("scripting.filesystemobject") set content=weather.opentextfile(server.mappath("forcast.txt")) response.write(content.readall) content.close set weather=nothing %>
 
价格行情
<% '通知调用 set rs=server.createobject("adodb.recordset") sql="select substring(name,1,4),price,units,substring(lxfs,1,5),substring(dates,6,5) from SCXX_price where cityid='29' and types='农副产品'and lxfs like '%齐河%' order by dates desc" rs.open sql,conn,1,1 howmanyfields=rs.fields.count -1 %> <% do while not rs.eof %> <% for i = 0 to howmanyfields thisvalue=rs(i) If isnull(thisvalue) then thisvalue="" end if %> <%=thisvalue%> <%next%>
<%rs.movenext loop %> <% rs.close set rs=nothing conn.close set conn=nothing %>
供求热线

<%do while not rstemp1.eof%> <% for i = 0 to 1 thisvalue=trim(rstemp1(i)) If isnull(thisvalue) then thisvalue="" end if if thisvalue="供" then thisvalue="" end if if thisvalue="求" then thisvalue="" end if %> <%next%> <%rstemp1.movenext loop %>
"><%=thisvalue%>
<% rstemp1.close set rstemp1=nothing conn1.close set conn1=nothing end sub %> <%call query3table("select top 3 substring(titel,1,18),typeid,id from SCXX_sale order by dates desc,id desc") %>
>>更多
兴农快讯 >> 更多

星火科技培训专项行动将对农村重点推进5大培训工程

林业科技振兴计划启动
今后七年我国林业总投入将超过8000亿元
.“学生奶奶源升级计划”启动
陈副省长视察兴农网
农业技术 >> 更多

·打绿色牌,走特色路
·化肥储存要四防

用户:
口令:

会员链接

 

.政策法规 .知名企业 .招商引资

 

 

 

 

     
 
           
 
    各地兴农网: 德州  齐河  禹城  平原  庆云  夏津  武城  临邑  乐陵  宁津 陵县  
名 人 名 家
·时传祥
·郭少堂
. 王少游
·崔振英
·石勒
热门链接
搜狐
新浪
新华网
GOOGLE
 

Copyright @ 2003 sdxnw.gov.cn   All rights reserved. 鲁 ICP备030012