城市:
地区:
省份:
<%
if request("city")"" then
city=request("city")
area=request("area")
province=request("province")
contents=getHTTPpage("http://www.cma.gov.cn/netcenter_news/qxyb/city/index.PHP?city="&city&"&province="&province&"&area="&area)
startPos=CutedPage(contents,"",1)
endPos=CutedPage(contents,"",0)
contents=mid(contents,startPos,endPos-startPos)
contents=replace(contents,"src=/","src=http://www.cma.gov.cn/")
contents=replace(contents,"src=..","src=http://www.cma.gov.cn/netcenter_news/qxyb/city/..")
response.write contents
end if
function CutedPage(scontent,str,mode)
if scontent="" then exit function
pos=instr(scontent,str)
if pos>=0 then
if mode=0 then
CutedPage=pos
else
CutedPage=pos+len(str)
end if
else
Cutepage=len(scontent)
end if
end function
Function Bytes2Bstr2(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
Bytes2Bstr2 = objstream.ReadText
objstream.Close
set objstream = nothing
End Function
function getHTTPPage(url)
on error resume next
dim http
set http=Server.createobject("Microsoft.XMLHTTP")
Http.open "GET",url,false
Http.send()
if Http.readystate4 then exit function
getHTTPPage=bytes2BSTR2(Http.responseBody,"GB2312")
set http=nothing
if err.number0 then err.Clear
end function
%>