<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>