实时天气预报html代码_html天气预报连接

2024-09-12 11:23:36

1.天气预报web服务

2.求横向不滚动宁波地区的天气预报代码？急！高分回报！

3.可选择城市的天气预报代码

4.在Dreamweer中怎么设置天气预报

实时天气预报html代码_html天气预报连接

Response.ContentType="text/html; charset=gb2312"

Call weather()

Sub weather()

url="://weather.news.qq/inc/07_dc107.htm" '莆田的天气

Call IsObjInstalled("Microsoft.XMLHTTP")

weatherStr= getHTTPPage(url)

if weatherStr="" then

response.write "抱歉,天气预报加载失败!"

else

set reg=new Regexp

reg.Multiline=True

reg.Global=false

reg.IgnoreCase=true

reg.Pattern="<td height=""57"" align=""center"" bgcolor=""#EEF3F8"">((.|\n)*?)</td></tr>"

Set matches = reg.execute(weatherStr)

For Each match1 in matches

weatherStr=match1.Value

Set matches = Nothing

Set reg = Nothing

if InStr(weatherStr,"没有找到与")>0 then

response.write "抱歉,天气预报加载失败!"

Else

weatherStr=Replace(weatherStr,"<br>"," ")

end if

End Sub

'// 用 Microsoft.XMLHTTP 组件集数据

Function getHTTPPage(url)

'on error resume next

dim

set =Server.createobject("Microsoft.XMLHTTP")

Http.open "GET",url,false

Http.send()

if Http.readystate<>4 then

exit function

end if

getHTTPPage=bytes2BSTR(Http.responseBody)

set =nothing

if err.number<>0 then err.Clear

End function

'// 用 ADODB.Stream 处理集到的数据，把二进制的文件转成文本字符

Function Bytes2bStr(vin)

Dim BytesStream,StringReturn

Set BytesStream = Server.CreateObject("ADODB.Stream")

BytesStream.Type = 2

BytesStream.Open

BytesStream.WriteText vin

BytesStream.Position = 0

BytesStream.Charset = "GB2312"

BytesStream.Position = 2

StringReturn =BytesStream.ReadText

BytesStream.close

Set BytesStream = Nothing

Bytes2bStr = StringReturn

End Function

'//检查组件,用xml抓取网页还是AspHTTP

Function IsObjInstalled(strClassString)

' On Error Resume Next

IsObjInstalled = False

Err = 0

Dim xTestObj

Set xTestObj = Server.CreateObject(strClassString)

If 0 = Err Then

If AspHttpOpen=1 Then

IsObjInstalled = True

Response.write "系统不支持 XMLHTTP 组件"

'Response.write "当前组件 ASPHTTP"

response.end()

Else

IsObjInstalled = False

'Response.write "当前组件 XMLHTTP"

End If

Else

IsObjInstalled = False

'Response.write "当前组件 XMLHTTP"

End If

Set xTestObj = Nothing

Err = 0

End Function

天气预报web服务

//给你一个网址

//://m.weather.cn/data/101010100.html

//://blog.csdn.net/hello_haozi/article/details/7564223

NSString *shangHai = @"://m.weather.cn/data/101020100.html";

NSOperationQueue *queue = [[NSOperationQueue alloc] init];

NSURL *url1 = [NSURL URLWithString:shangHai];

NSURLRequest *request1 = [[NSURLRequest alloc] initWithURL:url1];

[NSURLConnection sendAsynchronousRequest:request1 queue:queue completionHandler:^(NSURLResponse *response, NSData *da, NSError *error) {

if (da) {

NSDictionary *shangHaiDict = [NSJSONSerialization JSONObjectWithData:da options:NSJSONReadingMutableLees error:&error];

NSLog(@"%@",shangHaiDict);

}

}];

这是上海的天气，不知道是否回答了你的问题

求横向不滚动宁波地区的天气预报代码？急！高分回报！

首先你在你的web项目下面的References，右击References，点击Add Web

Refercenes 然后把://webservice.webxml.cn/WebServices/WeatherWS.asmx地址输入到URl文本框后面，然后点击后面的绿色箭头，再点击添加按钮，此时在web项目里会出现Web Refercens下面会出现一个命名空间，此命名空间里就是web服务里所包含类，然后你在一个页面上添加一个测试按钮，在按钮里写如下代码： cn.webxml.webservice.WeatherWS wws = new cn.webxml.webservice.WeatherWS();

string[] data= wws.getWeather("上海","");

data数组里就是关于上海城市的天气情况的数据，然后你根据实际情况做处理即可

可选择城市的天气预报代码

在你的网页中实现为个天气预报的功能,在网页适当位置中加入如下代码:

在Dreamweer中怎么设置天气预报

说明：城市名称写下面的代码

中国其他各省(区)天气的代码只需将上述代码中的 cncn 换成下列字符串:

广东: gudp 福建: fujp 浙江: zhjp 江苏:jsup 安徽: anhp 山东: shdp

海南: hanp 广西: guxa 贵州: guzp 云南:yunp 四川: sicp 陕西: saxp

河南: henp 河北: hebp 山西: shxp 内蒙古:nema 辽宁: linp 吉林: jilp

黑龙江: hljp 湖北: hubp 湖南: hunp 江西:jixp 甘肃: gasp 宁夏: nixa

青海: qihp 西藏: xiza 新疆: xija