|
|
|
|
|
|
|
|
Dicas
|
|
|
ASP - Active Server Page (Miscelâneas)
|
|
 |
Título da Dica: Efeito na Status Bar com várias frases.
|
 |
|
|
|
Postada em 13/10/2003 por Tekki
<SCRIPT>
<!-- Hide from old browsers
message = "www.vbweb.com.br^" +
"o seu site de ^" +
" VB^" +
" VB.net^" +
" Asp ...^" +
"^"
scrollSpeed = 25
lineDelay = 1500
// Do not change the text below //
txt = ""
function scrollText(pos) {
if (message.charAt(pos) != '^') {
txt = txt + message.charAt(pos)
status = txt
pauze = scrollSpeed
}
else {
pauze = lineDelay
txt = ""
if (pos == message.length-1) pos = -1
}
pos++
setTimeout("scrollText('"+pos+"')",pauze)
}
// Unhide -->
scrollText(0)
</SCRIPT>
|
|
|
|
|
