<html>
<head>
<title>改变背景颜色！</title>
<script language="vbscript">
<!--
Sub scolor(data)
document.bgcolor=data
End Sub
c=MsgBox ("yes and no!",4)
if c=6 Then
randomize
data = rnd()
data=Right(data,6)
scolor(data)
Else
data=InputBox ("please in put six data:")
scolor(data)
End If
-->
</script>
</head>
</html>
<head>
<title>改变背景颜色！</title>
<script language="vbscript">
<!--
Sub scolor(data)
document.bgcolor=data
End Sub
c=MsgBox ("yes and no!",4)
if c=6 Then
randomize
data = rnd()
data=Right(data,6)
scolor(data)
Else
data=InputBox ("please in put six data:")
scolor(data)
End If
-->
</script>
</head>
</html>
扫一扫
72
被折叠的 条评论
为什么被折叠?
到【灌水乐园】发言
