📄 随机显示的背景图片.htm
字号:
<HTML>
<HEAD>
<TITLE>
随机显示的背景图片
</TITLE>
<Script LANGUAGE="VBScript">
dim str
Randomize
d = Rnd()*3
document.write "<center>"
If d<1 Then
document.write "<img src='1.jpg'>"
str="1.jpg"
ElseIf d<2 Then
document.write "<img src='2.jpg'>"
str="2.jpg"
Else
document.write "<img src='3.jpg'>"
str="3.jpg"
End If
Randomize
d = Rnd()*3
If d<1 Then
document.bgColor="blue"
ElseIf d<2 Then
document.bgColor="lime"
Else
document.bgColor="pink"
End If
document.write "</center>"
</script>
<Script LANGUAGE="VBScript">
<!--
sub Button1_onclick
msgbox "现在显示的背景图片为：" & str
end sub
-->
</Script>
</HEAD>
<BODY bgcolor=Snow>
<div>
<center>
<H2>多次刷新页面就能看到效果</H2>
<form Action="随机显示的背景图片.htm" Method="POST">
<INPUT NAME="Button1" TYPE="BUTTON" VALUE="图片信息">
<input TYPE="Submit" NAME="SEND" VALUE="刷新页面">
</form>
</center>
</div>
</BODY>
</HTML>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -