春节莆田天气预报_下周莆田天气预报15天

1.莆田鸬鹚岛天气预报

2.莆田近几天的天气预报

3.ASP天气预报系统源码，速求

莆田目前就2个广播台，要能上网就方便多了……

FM93.7 新闻综合

播出时间

05:30 早安朋友

05:35 中国移动新农村(重播)

06:25 天气预报(方言)

06:30 转播中央人民广播电台新闻和报纸搞要节目

07:00 转播福建人民广播电台早新闻节目

07:20 天气预报

07:30 莆田新闻

07:45 哈哈笑笑剧

08:00 健康与音乐

09:00 新闻快报、政风行风热线 就想听歌

09:30 就想听歌

10:00 点点祝福点点情(双休日11:45-12:00《金色城堡》)

12:00 新闻快报

12:10 健康与音乐

13:00 好歌天天听

14:00 红森林影音剧场

14:30 中国移动新农村

15:30 莆仙戏院

17:00 音乐柠檬茶

18:00 直播莆田

18:15 天气预报

18:20 音乐新地带

19:00 转播中央电视台新闻联播

19:30 听游天下

20:00 连播

20:30 健康与音乐(21:55-22:05《体彩之声》22:25《天气预报》)

23:00 相约今宵

02:00 全天播音结束

FM103 音乐交通

播出时间

05:30 晨光序曲 星期天音乐会

05:35 聆听民歌

07:00 资讯快递(生活) 103快乐交通·早点版

09:00 资讯快递(气象) 边走边听

10:00 资讯快递(时政) 103证券时间

10:45 健康与音乐

11:00 资讯快递(财经) 103快乐交通·中午版 星期天音乐会

12:00 资讯快递(体育) 103快乐交通·中午版

13:00 经典正流行

13:30 轻松20分

14:00 主流

14:30 103精彩剧场

15:00 资讯快递(交通) 开心方向盘 星期天音乐会

16:00 资讯快递(生活) 开心方向盘

17:00 资讯快递(时政) 103快乐交通·下午版

18:00 资讯快递(气象) 103快乐交通·下午版

19:00 流行风云榜

19:45 哈哈笑笑剧

20:00 时尚生活

20:30 健康与音乐

21:00 健康每一天

21:25 中国移动·人在他乡

23:00 健康与音乐

23:30 鬼话连篇

00:00 夜空不寂寞 星期天音乐会

02:00 全天播音结束

莆田鸬鹚岛天气预报

2009年全省气温显著偏高，降水量偏少，气象灾害偏轻，气候年景属正常。冬季气温偏高、降水显著偏少，1月上中旬，全省各地出现持续性低温冻害过程,但全省冬季气温仍偏高1.4℃，为暖冬，降水为1961年以来历史同期第二少年，持续的少雨使全省大部分地区发生了不同程度的秋冬气象干旱; 春季气温正常、降水偏少，局部地区出现强对流天气，灾情较轻，雨季于5月18日开始，7月4日结束，起止时间均偏迟，历时偏短，强度偏弱，降水量偏少2成，使沿海地区出现秋冬春气象连旱;夏季气温偏高、降水正常，7～8月先后三次出现最高气温超过38℃的较大范围持续性高温天气;秋季气温偏高、降水正常，10月31日～11月4日受强冷空气影响，西部北部地区出现寒潮天气过程，历史上较少见，闽南局部县(市)的夏秋干旱给农业生产和人民生活造成严重影响。全年有9个热带气旋登陆或影响我省，个数接近常年，特点是影响路径偏南，风雨影响偏轻，造成灾害较轻，其中有3个热带气旋登陆我省，第3号热带风暴“莲花”6月21日在晋江登陆，第8号台风“莫拉克”8月9日在霞浦登陆和7月14日在莆田登陆的热带低压。据不完全统计，全省因气象灾害226.35 万人受灾，死亡39人（其中雷灾死亡19人），失踪2人，直接经济损失36.7亿元。综合分析,2009年福建省气候正常,气象灾害偏轻。

1、气 温

2009年全年（1～12月）气温15.5℃～22.6℃，分布呈西北山区向东南沿海逐渐增高的趋势, 漳州、漳浦、东山、晋江、南靖、厦门、仙游、漳平和莆田9个县（市）在21℃以上,其中最高漳州市达22.6℃; 寿宁、浦城、泰宁、宁化、明溪、邵武、建阳、武夷山8个县（市）在19℃以下,其中最低寿宁县为15.5℃（图1）。

2009年福建省平均气温分布(℃)

大部分县（市）年平均气温偏高0.7℃以上，其中漳州、长汀、晋江、泰宁、仙游5个县（市）偏高1.0℃以上（图2）。

福建武夷山4月份降水（172.0毫米）

莆田近几天的天气预报

福建>莆田 天气预报

11日（今天）

大雨转中雨

31/27℃

12日（明天）

阵雨

32/27℃

13日（后天）

阵雨

33/27℃

ASP天气预报系统源码，速求

莆田天气预报 (2012-01-22 08:00发布) 关闭未来4-7天天气预报 天气图例 日期 天气现象 气温 风向 风力

22日星期日 白天 小到中雨 高温 8℃ 东北风 3-4级

夜间 小雨 低温 4℃ 东北风 3-4级

23日星期一 白天 小雨 高温 7℃ 东北风 3-4级

夜间 小雨 低温 4℃ 东北风 3-4级

24日星期二 白天 小雨 高温 8℃ 东北风 3-4级

夜间 小雨 低温 4℃ 东北风 3-4级

未来4-7天天气预报（2012-01-21 18:00发布） 仅供参考25日星期三 白天 阴 高温 10℃ 东北风 3-4级

夜间 阴 低温 6℃ 无持续风向 微风

26日星期四 白天 阴 高温 10℃ 无持续风向 微风

夜间 阴 低温 7℃ 无持续风向 微风

27日星期五 白天 阴 高温 12℃ 无持续风向 微风

夜间 多云 低温 7℃ 无持续风向 微风

28日星期六 白天 小雨 高温 12℃ 东北风 3-4级

<%

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

Next

Set matches = Nothing

Set reg = Nothing

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

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

Else

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

%>

<font color="#CC0000" style="font-size: 9pt">今日天气：<%=weatherStr%></font>

<%

end if

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

%>