夏津兴农网

<%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 %>

价格行情

<%sub query2table(inputquery) set conn=server.createobject("ADODB.connection") conn.open("Provider=SQLOLEDB.1;Server=80.0.0.17;Database=sdxnw;UID=sdxnwread;pwd=read;") set rstemp=conn.execute(inputquery) howmanyfields=rstemp.fields.count -1 %> 　　 <%do while not rstemp.eof%> <% for i = 0 to howmanyfields thisvalue=rstemp(i) If isnull(thisvalue) then thisvalue="" end if %> <%next%> <%rstemp.movenext loop %>

<%=thisvalue%>

<% rstemp.close set rstemp=nothing conn.close set conn=nothing end sub %> <%call query2table("select substring(name,1,4),price,units,substring(lxfs,1,5),substring(dates,6,5) from SCXX_price where cityid='19' and types='农副产品' order by dates desc") %>

供求热线

<%sub query3table(inputquery) set conn1=server.createobject("ADODB.connection") conn1.open("Provider=SQLOLEDB.1;Server=80.0.0.17;Database=sdxnw;UID=sdxnwread;pwd=read;") set rstemp1=conn1.execute(inputquery) %> <%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") %>

>>更多

兴农快讯

>> 更多