<!-- no prod --> <title>炫彩的文字效果</title> <meta name="ROBOTS" content="NOINDEX"> <script language="VBScript"> <!-- 'Declare the variable used to increment the x coordinate Public XPos 'Initialize the variable XPos = 20 Function LightMe() 'Puts a spotlight on the title call document.all.title.filters(0).addPoint(20, 10, 100, 200, 225, 200, 100) MoveLight End Function Function MoveLight() 'Moves the spotlight from left to right across the title area until it reaches the edge 'of the window and then stops 'This increments the x coordinate XPos = XPos + 5 'If not at the right edge of the window then move the spotlight right If XPos < 480 Then call document.all.title.filters(0).movelight(0, xpos, 10, 100, 1) myTimer = window.setTimeout("Movelight", 1) 'If at the right edge of the window call the first paragraph of text Else window.clearTimeout(myTimer) call document.all.title.filters(0).clear Text1Trans End If End Function Sub Text1Trans() 'Makes the first paragraph of text visible Text1.filters(0).Apply() Text1.style.visibility="visible" Text1.filters(0).Play() myTimer = window.setTimeout("Text2Trans", 3000) End Sub Sub Text2Trans() 'Makes the second paragraph of text visible Text2.filters(0).Apply() Text2.style.visibility="visible" Text2.filters(0).Play() Link2Trans End Sub Sub Link2Trans() 'Makes the Next button visible Link2.filters(0).apply() Link2.style.visibility="visible" Link2.filters(0).play() End Sub Sub Next_onclick() 'Makes the button appeared depressed and moves to next slide document.all.ButtonNext.src = "http://www.jb51.net/images/logo.gif" location.href= "http://www.jb51.net" End Sub --> </script> <meta http-equiv="Content-Type" content="text/html; charset=gb2312"> <style> body,div,td{font:menu} </style> <div id="title" style="position:absolute; left:7; top:7; width:425; visibility:visible; filter:Light"><strong>娆㈣</strong></div>
