text4.txt

来自「Active Server Pages 网页制作教程看之前请传到ASP空间。或者」· 文本 代码 · 共 50 行

<SCRIPT Language="JavaScript">
  var msgt4 = "@msg";
  var intervalt4 = @interval
  var lentxtt4=msgt4.length;
  var widtht4=250;
  var countt4=0;
  var leftt4=0;
  var abct4=0;
  setTimeout("ScrollText4();", intervalt4);

  function ScrollText4()
  {
    var txt="";
    var scroller="";

    if (abct4>0)  {
      if ((abct4%2)==1) document.@[e-mail]="";
      else document.@[e-mail]=msgt4;
      abct4++;
      if (abct4==8) abct4=0;
    }
    else  {
      if (countt4>0) {
        scroller=msgt4.substring(0,countt4);
        txt=msgt4.substring(countt4,countt4+1);
      }
      else
        txt=msgt4.substring(0,1);

      if ((widtht4-leftt4)>2)
        leftt4+=(widtht4-leftt4)/2;
      else
        leftt4++;
      for (var i=0; i<(widtht4-leftt4); i++)
        scroller=scroller+" ";
      if (leftt4>=widtht4) {
        countt4+=1;
        leftt4=countt4*2;
      }
      if (countt4>=lentxtt4) {
        pos=countt4=0;
        abct4=1;
      }
      scroller=scroller+txt;
      document.@[e-mail]=scroller;
    }
    setTimeout("ScrollText4();",intervalt4);
  }
</SCRIPT>
<FORM Name=@Form><INPUT Type=Text Name=@Text Size=@Size></FORM>