<script language="VBScript" type="text/VBScript">
function WeatherPic(str)
	if Instr(str,"Çç")>0 then
		WeatherPic=str&"<img align=absmiddle src=WeatherPic/sun.gif>"
	elseif Instr(str,"¶àÔÆ")>0 then
		WeatherPic=str&"<img align=absmiddle src=WeatherPic/yun.gif>"
	elseif Instr(str,"Òõ")>0 then
		WeatherPic=str&"<img align=absmiddle src=WeatherPic/yin.gif>"
	elseif Instr(str,"Îí")>0 then
		WeatherPic=str&"<img align=absmiddle src=WeatherPic/wu.gif>"
	elseif Instr(str,"Óê")>0 then
		WeatherPic=str&"<img align=absmiddle src=WeatherPic/yu.gif>"
	elseif Instr(str,"Ñ©")>0 then
		WeatherPic=str&"<img align=absmiddle src=WeatherPic/xue.gif>"
	elseif Instr(str,"·ç")>0 then
		WeatherPic=str&"<img align=absmiddle src=WeatherPic/feng.gif>"
	else
		WeatherPic=str
	end if
end function
</script>