?? weatherpic.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>
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -