爬格子的文字文本特效__脚本特效_后台技术飞飞Asp技术乐园

爬格子的文字

时间： 2007-11-29 13:44:48　阅读次数：1532

爬格子的文字

<html>
<head>
<title>网页特效|www.ffasp.com 飞飞Asp乐园|---爬格子的文字</title>
</head><body>

msg="网页特效网页特效"
align="left";
speed=250;
up=true;
spas=" ";
for (a=0;a<=12;a++) {spas+=" "}
msg=spas+msg+spas;
j=eval(-1);
stop=msg.length;
document.write("<form name='form'><table border=0 cellspacing=0 "
+"cellpadding=0 align="+align+">");
for (i=1;i<=13;i++) {
document.write("<tr><td><input type=text name=\"box"+i+"\" size=1>");
document.write("</td></tr>");
}
document.write("</table></form>");
function scrollIt() {
j++;
with (document.form) {
if ((j+12) <= stop) {
box1.value = msg.charAt(j);
box2.value = msg.charAt(j+1);
box3.value = msg.charAt(j+2);
box4.value = msg.charAt(j+3);
box5.value = msg.charAt(j+4);
box6.value = msg.charAt(j+5);
box7.value = msg.charAt(j+6);
box8.value = msg.charAt(j+7);
box9.value = msg.charAt(j+8);
box10.value = msg.charAt(j+9);
box11.value = msg.charAt(j+10);
box12.value = msg.charAt(j+11);
box13.value = msg.charAt(j+12);
} else {
j=0;
   }
}
setTimeout("scrollIt()",speed);	
}
scrollIt();
// End -->
</SCRIPT>
</body></html>

提示：您可以先修改部分代码再运行