weatherpic.asp

商务世纪新闻asp源代码

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