福建莆田天气_福州莆田天气预报

1.福州是什么城

2.莆田市海洋与渔业局温馨提示

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

福建省北部地区暴雨警报(7月2日06时40分发布)

受冷暖空气共同影响，昨天早晨到今天早晨我省内陆部分县市及福州市局部县市出现暴雨。统计7月1日06时-7月2日06时24小时自动站雨量，共有21个县市个测站雨量大于50毫米，以将乐光明90.7毫米为最大。（详见附表）

预计今天，南平、三明、宁德三市和福州市北部阴有中阵雨或雷阵雨，部分暴雨，局部大暴雨，24小时雨量可达50-80毫米，局部超过100毫米；莆田市和龙岩、泉州两市北部、福州市南部有小到中阵雨或雷阵雨，部分大雨，局部暴雨；其余地市阴天间多云，部分有阵雨或雷阵雨。雷雨时局部可能伴有强雷电和短时强降水等强对流天气。

3日，全省阴有小到中阵雨或雷阵雨，三明、龙岩、福州、莆田、泉州五市和南平、宁德两市南部、漳州市北部部分有大雨到暴雨，其余各市局部有大到暴雨。

洞头县气象台2009年7月2日17时发布的沿海大风警报和天气预报

发表时间: 2009-07-02 15:47:39 来源: [打印] [关闭]

洞头县气象台2009年7月2日17时发布的沿海大风警报和天气预报：

洞头县和洞头沿海：

今天夜里阴有时有阵雨或雷雨，雨量小到中等局部大雨；明天阴到多云有时有阵雨；后天阴到多云。

偏东风6级阵风7-8级，明天转偏南风5-6级阵风7级。

明天白天最高温度： 27℃

明天早晨最低温度： 22-23℃

森林火险等级预报：

三级，可以引起森林火灾，林区注意控制野外用火。

福州是什么城

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毫米）

莆田市海洋与渔业局温馨提示

福州称为“榕城”

福州背山依江面海，气候宜人，地理环境优越，有榕城、温泉城之雅称，还有“江南胜地”之美誉。它属亚热带季风气候，年平均气温在19度左右，最佳的旅游季节为每年的四至十一月。

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

莆田市海洋与渔业局于2022年10月31日11时21分温馨提示：各位渔民朋友们：受台风“尼格”和冷空气共同影响，预计今天上午至明天上午：闽中渔场、闽南渔场和台湾浅滩渔场风力可达9-10级阵风11-12级，浪高4.0-5.5米巨浪，我市沿海东北风7-8级阵风9-11级，浪高2.5-3.5米的大浪。请全市养殖渔排上的所有劳动力人员务必于10月31日18时之前全部撤离上岸，已回港避风渔船在影响解除前不得出海，已撤离上岸的老弱妇幼人员不得返回渔排，确保渔业生产安全。 信息来源：国家预警信息发布中心； 发布单位：莆田市海洋与渔业局。

更多莆田市天气预报信息:

莆田市气未来5天天气预报

莆田市天气未来7天天气预报

莆田市天气未来10天天气预报

莆田市天气未来15天天气预报

莆田市天气未来20天天气预报

莆田市天气未来25天天气预报

莆田市天气未来30天天气预报

莆田市天气未来40天天气预报

更多莆田市下级天气预报信息:

城厢区 涵江区 荔城区 秀屿区 仙游县

更多莆田市周边城市天气预报:

福州市 厦门市 莆田市 三明市 泉州市 漳州市 南平市 龙岩市 宁德市

<%

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

Call weather()

Sub weather()

url="" '莆田的天气

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 http

set http=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 http=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

'//检查组件,采用xmlhttp抓取网页还是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

%>