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