下角移动的文字.htm

来自「VBSCRIPT的源码,相信很多html程序员都会用到,这些源码小小变动一下,可」· HTM 代码 · 共 57 行

HTM
57
字号
<HTML>
<HEAD>
<META name=VI60_defaultClientScript content=VBScript>
<TITLE>下角移动的文字</TITLE>
<SCRIPT ID=clientEventHandlersVBS LANGUAGE=VBScript>
<!--

dim number11,string11

sub window_onload()

    number11=1

    string11="女士们,先生们,欢 迎 你 使 用 VBScript 编 程 百 例!!!                         "

    time1=settimeout("timer1()",1000) 

end sub

function timer1()

    number11=number11+1

    if number11>len(string11) then 
        number11=1

    end if 
    nmbofend=len(string11)-number11

    showstring=right(string11,nmbofend)

	do until len(showstring)>50

		showstring=showstring & " " & string11
	loop

	window.status=showstring

	time2=settimeout("timer2()",100)

end function

function timer2()

	time1=settimeout("timer1()",100)

end function

-->
</SCRIPT>
</HEAD>
<BODY bgColor=lightyellow>
<center><h1>请看左下角的文字<h1>
</center>
</BODY>
</HTML>

⌨️ 快捷键说明

复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?