status4.txt

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

<SCRIPT Language="JavaScript">
  var msg="@msg";
  var interval=@interval;
  var lentxt=msg.length;
  var width=250;
  var count=0;
  var left=0;
  var abc=0;
  setTimeout("Scroll();", interval);

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

    if (abc>0)  {
      if ((abc%2)==1) window.status="";
      else window.status=msg;
      abc++;
      if (abc==8) abc=0;
    }
    else  {
      if (count>0) {
        scroller=msg.substring(0,count);
        txt=msg.substring(count,count+1);
      }
      else
      txt=msg.substring(0,1);

      if ((width-left)>2)
        left+=(width-left)/2;
      else
        left++;

      for (var i=0; i<(width-left); i++)
        scroller=scroller+" ";
      if (left>=width) {
        count+=1;
        left=count*2;
      }
      if (count>=lentxt) {
        pos=count=0;
        abc=1;
      }
      scroller=scroller+txt;
      window.status=scroller;
    }
    setTimeout("Scroll();", interval);
  }
</SCRIPT>