📄 例4－28.htm
字号:
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<!-- saved from url=(0047)http://192.168.6.19/jxyd/book/web0208/E4_28.htm -->
<HTML><HEAD><TITLE>Document对象属性示例</TITLE>
<META http-equiv=Content-Type content="text/html; charset=gb2312">
<META content="MSHTML 6.00.2900.2722" name=GENERATOR></HEAD>
<BODY topMargin=50>
<SCRIPT language=VBScript>
Times=0
Sub window_onload()
call BannerChange()
End Sub
Sub BannerChange()
Select Case (Times)
Case 0
banner.style.backgroundcolor="cyan"
banner.style.color = "darkblue"
Case 1
banner.style.fontstyle = "italic"
banner.style.color = "hotpink"
banner.style.backgroundcolor="yellow"
Case 2
banner.style.color = "red"
banner.style.backgroundcolor="black"
Case 3
banner.style.color = "white"
banner.style.fontstyle = "normal"
banner.style.backgroundcolor="cornflowerblue"
End Select
If Times = 3 Then
Times = 0
Else
Times = Times + 1
End If
window.SetTimeOut "BannerChange",1000
End Sub
</SCRIPT>
<CENTER><SPAN id=banner
style="FONT-SIZE: 18px; COLOR: blue; FONT-FAMILY: '宋体'"> 热线栏目 </SPAN></CENTER></BODY></HTML>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -