中,文字输出为各种方式,速度有快慢,字时多时少,很有趣

1、<script language="JavaScript"><!- ActiveASCII by Neal Kanodia (please, don't delete this line)function createArr(num) for(var i = 0; i < num; i+) thisi = null function fillArr(tx,me,ti,wa) this.text = tx; this.method = me.toLowerCase(); this.ticks = ti; this.wait = wa funct

2、ion block(num,txt,mthod,tcks,wit) blocksnum = new fillArr(txt,mthod,tcks,wit) function ms(unt) var sp = "" for( var i = 1; i <= unt; i+ ) sp += " " return(sp) function Activate() if (cblock = max) cblock = 0; if (iloop = 0) loops-; if (loops = 0) meth = "0" else meth

3、 = blockscblock.method else meth = blockscblock.method else meth = blockscblock.method if (meth = "0") document.Active.ASCII.value = end if (meth = "display") Tape = blockscblock.text; Wait = blockscblock.wait; Display() if (meth = "display center") Tape = blockscblock.

4、text; Wait = blockscblock.wait; half = Tape.length / 2; DisplayC() if (meth = "scroll left") clen = tlen; Tape = blockscblock.text; Ticks = blockscblock.ticks; tTicks = Ticks * 2; ScrollL() if (meth = "scroll right") clen = 0 - blockscblock.text.length; Tape = blockscblock.text;

5、Ticks = blockscblock.ticks; tTicks = Ticks * 2; ScrollR() if (meth = "scroll lc") clen = 0 - blockscblock.text.length; Tape = blockscblock.text; Ticks = blockscblock.ticks; Wait = blockscblock.wait; tTicks = Ticks * 2; half = Tape.length / 2; ScrollLC() if (meth = "scroll rc") cl

6、en = tlen; Tape = blockscblock.text; Ticks = blockscblock.ticks; Wait = blockscblock.wait; tTicks = Ticks * 2; half = Tape.length / 2; ScrollRC() if (meth = "scroll cl") Tape = blockscblock.text; Ticks = blockscblock.ticks; tTicks = Ticks * 2; half = Tape.length / 2; clen = cent - half; Sc

7、rollCL() if (meth = "scroll cr") Tape = blockscblock.text; Ticks = blockscblock.ticks; tTicks = Ticks * 2; half = Tape.length / 2; clen = cent - half; ScrollCR() if (meth = "slide left") Tape = blockscblock.text; Ticks = blockscblock.ticks; Wait = blockscblock.wait; cpos = 0; cle

8、t = Tape.charAt(cpos); clen = tlen; cstr = "" SlideL() if (meth = "slide lc") Tape = blockscblock.text; Ticks = blockscblock.ticks; Wait = blockscblock.wait; cpos = Tape.length - 1; clet = Tape.charAt(cpos); clen = 0; cstr = "" half = Tape.length / 2; iba = cent - half;

9、 ib = ms(iba); SlideLC() if (meth = "slide rc") Tape = blockscblock.text; Ticks = blockscblock.ticks; Wait = blockscblock.wait; cpos = 0; clet = Tape.charAt(cpos); cstr = "" half = Tape.length / 2; clen = cent + half; fs = ms(cent - half); SlideRC() if (meth = "slide cl"

10、;) Tape = blockscblock.text; Ticks = blockscblock.ticks; cpos = 0; clet = Tape.charAt(cpos); cstr = Tape.substring(1,Tape.length); half = Tape.length / 2; clen = cent - half; iba = 0; ib = ms(iba); SlideCL() if (meth = "slide cr") Tape = blockscblock.text; Ticks = blockscblock.ticks; cpos

11、= Tape.length - 1; clet = Tape.charAt(cpos); cstr = Tape.substring(0,Tape.length - 1); half = Tape.length / 2; clen = 0; fs = ms(cent - half); SlideCR() if (meth = "slip left") clen = 0; Tape = blockscblock.text; Ticks = blockscblock.ticks; SlipL() if (meth = "slip right") clen =

12、 0; Tape = blockscblock.text; Ticks = blockscblock.ticks; SlipR() if (meth = "slip letter") Tape = blockscblock.text; Ticks = blockscblock.ticks; cpos = Tape.length - 1; clet = Tape.charAt(cpos); cstr = Tape.substring(0,Tape.length - 1); clen = 0; SlipLet() if (meth = "split") Ta

13、pe = blockscblock.text; Ticks = blockscblock.ticks; var iii = Tape.length / 2; if (iii / 2 != Math.ceil(iii / 2) Tape = Tape + " " hstr1 = Tape.substring(0,Tape.length/2); hstr2 = Tape.substring(Tape.length/2,Tape.length); tTicks = Ticks * 2; clen = cent - hstr1.length; iba = 0; ib = ms(ib

14、a); Split() if (meth = "merge") Tape = blockscblock.text; Ticks = blockscblock.ticks; var iii = Tape.length / 2; if (iii / 2 != Math.ceil(iii / 2) Tape = Tape + " " hstr1 = Tape.substring(0,Tape.length/2); hstr2 = Tape.substring(Tape.length/2,Tape.length); tTicks = Ticks * 2; cle

15、n = 0 - hstr1.length; iba = tlen; ib = ms(iba); Wait = blockscblock.wait; Merge() function Display() document.Active.ASCII.value = Tape; cblock+; timerID = setTimeout("Activate()",Wait) function DisplayC() var temp = cent - half; ini = ms(temp); document.Active.ASCII.value = ini + Tape; cb

16、lock+; timerID = setTimeout("Activate()",Wait) function ScrollL() if (clen >= 0) ini = ms(clen); tickered = ini + Tape; document.Active.ASCII.value = tickered; clen-; timerID = setTimeout("ScrollL()",Ticks) else beg = 0 - clen; if (beg = Tape.length) document.Active.ASCII.valu

17、e = "" cblock+; timerID = setTimeout("Activate()",Ticks) else tickered = Tape.substring(beg,tlen); document.Active.ASCII.value = tickered; clen-; timerID = setTimeout("ScrollL()",tTicks) function ScrollR() if (clen >= 0) if (clen > tlen) document.Active.ASCII.valu

18、e = "" cblock+; timerID = setTimeout("Activate()",Ticks) else ini = ms(clen); tickered = ini + Tape; document.Active.ASCII.value = tickered; clen+; timerID = setTimeout("ScrollR()",Ticks) else beg = 0 - clen; tickered = Tape.substring(beg,tlen); document.Active.ASCII.va

19、lue = tickered; clen+; timerID = setTimeout("ScrollR()",tTicks) function ScrollLC() if (clen >= 0) if (cent <= (clen + half) cblock+; timerID = setTimeout("Activate()",Wait) else ini = ms(clen); tickered = ini + Tape; document.Active.ASCII.value = tickered; clen+; timerID =

20、 setTimeout("ScrollLC()",Ticks) else beg = 0 - clen; if (cent <= (clen + half) cblock+; timerID = setTimeout("Activate()",Wait) else tickered = Tape.substring(beg,tlen); document.Active.ASCII.value = tickered; clen+; timerID = setTimeout("ScrollLC()",tTicks) function

21、 ScrollRC() if (clen >= 0) if (cent >= (clen + half) cblock+; timerID = setTimeout("Activate()",Wait) else ini = ms(clen); tickered = ini + Tape; document.Active.ASCII.value = tickered; clen-; timerID = setTimeout("ScrollRC()",Ticks) else beg = 0 - clen; if (cent >= (cle

22、n + half) cblock+; timerID = setTimeout("Activate()",Wait) tickered = Tape.substring(beg,tlen); document.Active.ASCII.value = tickered; clen-; timerID = setTimeout("ScrollRC()",tTicks) function ScrollCL() if (clen >= 0) ini = ms(clen); tickered = ini + Tape; document.Active.AS

23、CII.value = tickered; clen-; timerID = setTimeout("ScrollCL()",Ticks) else beg = 0 - clen; if (beg >= Tape.length) document.Active.ASCII.value = "" cblock+; timerID = setTimeout("Activate()",Wait) else tickered = Tape.substring(beg,tlen); document.Active.ASCII.value

24、= tickered; clen-; timerID = setTimeout("ScrollCL()",tTicks) function ScrollCR() if (clen >= 0) if (clen > tlen) document.Active.ASCII.value = "" cblock+; timerID = setTimeout("Activate()",Wait) else ini = ms(clen); tickered = ini + Tape; document.Active.ASCII.val

25、ue = tickered; clen+; timerID = setTimeout("ScrollCR()",Ticks) else beg = 0 - clen; tickered = Tape.substring(beg,tlen); document.Active.ASCII.value = tickered; clen+; timerID = setTimeout("ScrollCR()",tTicks) function SlideL() if (clen >= 0) ini = ms(clen); tickered = cstr +

26、ini + clet; document.Active.ASCII.value = tickered; clen -= 3; timerID = setTimeout("SlideL()",Ticks) else document.Active.ASCII.value = cstr + clet; cstr = document.Active.ASCII.value; clen = tlen - cstr.length; cpos+; clet = Tape.charAt(cpos); if (clet = " ") cstr = cstr + &quo

27、t; " cpos+; clet = Tape.charAt(cpos) if (clet = "") cblock+; timerID = setTimeout("Activate()",Wait) else timerID = setTimeout("SlideL()",Ticks) function SlideLC() if (clen <= cent - half) ini = ms(clen); tickered = ini + clet + ib + cstr; document.Active.ASCII.

28、value = tickered; clen += 3; iba -= 3; ib = ms(iba); timerID = setTimeout("SlideLC()",Ticks) else iba = cent - half; ini = ms(iba); ib = ms(iba); document.Active.ASCII.value = ini + clet + cstr; cstr = clet + cstr; clen = 0; cpos-; if (cpos >= 0) clet = Tape.charAt(cpos); if (clet = &qu

29、ot; ") cstr = " " + cstr; cpos-; clet = Tape.charAt(cpos) timerID = setTimeout("SlideLC()",Ticks) else cblock+; timerID = setTimeout("Activate()",Wait) function SlideRC() if (clen >= 0) ini = ms(clen); tickered = fs + cstr + ini + clet; document.Active.ASCII.val

30、ue = tickered; clen -= 3; timerID = setTimeout("SlideRC()",Ticks) else clen = cent + half; cstr += clet; document.Active.ASCII.value = fs + cstr; cpos+; clet = Tape.charAt(cpos); if (clet = " ") cstr = cstr + " " cpos+; clet = Tape.charAt(cpos) if (clet = "")

31、document.Active.ASCII.value = fs + Tape; cblock+; timerID = setTimeout("Activate()",Wait) else timerID = setTimeout("SlideRC()",Ticks) function SlideCL() if (clen > 0) ini = ms(clen); tickered = ini + clet + ib + cstr; document.Active.ASCII.value = tickered; clen -= 3; iba +=

32、3; ib = ms(iba); timerID = setTimeout("SlideCL()",Ticks) else iba = 0; ib = ms(iba); clen = cent - half; ini = ms(clen); document.Active.ASCII.value = ini + cstr; cstr = cstr.substring(1,Tape.length); cpos+; clet = Tape.charAt(cpos); if (clet = " ") cstr = cstr.substring(1,Tape.l

33、ength); cpos+; clet = Tape.charAt(cpos) if (clet = "") document.Active.ASCII.value = "" cblock+; timerID = setTimeout("Activate()",Ticks) else timerID = setTimeout("SlideCL()",Ticks) function SlideCR() if (clen <= cent + half) ini = ms(clen); tickered = fs

34、+ cstr + ini + clet; document.Active.ASCII.value = tickered; clen += 3; timerID = setTimeout("SlideCR()",Ticks) else clen = 0; document.Active.ASCII.value = fs + cstr; cstr = cstr.substring(0,cstr.length - 1); cpos-; half += 1; if (cpos >= 0) ; clet = Tape.charAt(cpos); if (clet = "

35、; ") cstr = cstr.substring(0,cstr.length - 1); cpos-; clet = Tape.charAt(cpos) timerID = setTimeout("SlideCR()",Ticks) else cblock+; timerID = setTimeout("Activate()",Ticks) function SlipR() if (clen >= 0) if (clen > tlen) document.Active.ASCII.value = "" cbl

36、ock+; timerID = setTimeout("Activate()",Ticks) else ini = ms(clen); tickered = ini + Tape; document.Active.ASCII.value = tickered; clen+; timerID = setTimeout("SlipR()",Ticks) else beg = 0 - clen; tickered = Tape.substring(beg,tlen); document.Active.ASCII.value = tickered; clen+;

37、 timerID = setTimeout("SlipR()",Ticks) function SlipL() if (clen >= 0) ini = ms(clen); tickered = ini + Tape; document.Active.ASCII.value = tickered; clen-; timerID = setTimeout("SlipL()",Ticks) else beg = 0 - clen; if (beg = Tape.length) document.Active.ASCII.value = "&q

38、uot; cblock+; timerID = setTimeout("Activate()",Ticks) else tickered = Tape.substring(beg,tlen); document.Active.ASCII.value = tickered; clen-; timerID = setTimeout("SlipL()",Ticks) function SlipLet() if (clen < tlen) ini = ms(clen); tickered = cstr + ini + clet; document.Acti

39、ve.ASCII.value = tickered; clen += 3; timerID = setTimeout("SlipLet()",Ticks) else clen = 0; cstr = cstr.substring(0,cstr.length - 1); cpos-; if (cpos >= 0) ; clet = Tape.charAt(cpos); if (clet = " ") cstr = cstr.substring(0,cstr.length - 1); cpos-; clet = Tape.charAt(cpos) ti

40、merID = setTimeout("SlipLet()",Ticks) else cblock+; timerID = setTimeout("Activate()",Ticks) function Split() if (clen >= 0) ini = ms(clen); tickered = ini + hstr1 + ib + hstr2; document.Active.ASCII.value = tickered; clen-; iba += 2; ib = ms(iba); timerID = setTimeout("S

41、plit()",Ticks) else if (clen <= 0 - hstr1.length) cblock+; timerID = setTimeout("Activate()",Ticks) else beg = 0 - clen; tickered = hstr1.substring(beg,tlen); document.Active.ASCII.value = tickered + ib + hstr2; clen-; iba += 2; ib = ms(iba); timerID = setTimeout("Split()"

42、;,tTicks) function Merge() if (clen >= 0) if (clen > cent - hstr1.length) tickered = ini + hstr1 + hstr2; document.Active.ASCII.value = tickered; cblock+; timerID = setTimeout("Activate()",Wait) else ini = ms(clen); tickered = ini + hstr1 + ib + hstr2; document.Active.ASCII.value = t

43、ickered; clen+; iba -= 2; ib = ms(iba); timerID = setTimeout("Merge()",Ticks) else beg = 0 - clen; tickered = hstr1.substring(beg,tlen); document.Active.ASCII.value = tickered + ib + hstr2; clen+; iba -= 4; ib = ms(iba); timerID = setTimeout("Merge()",tTicks) /# User Vars/ Number

44、 of blocks (see bottom) to be displayed./ *COMMON ERROR*: Make sure to set this value according to the/ number of blocks (always the last block # + 1)!var max = 18/ Don't change this!var blocks = new createArr(max)/ Length of textbox/ *COMMON ERROR: If you change this or the length of the/ textb

45、ox, remember to change the other accordingly.*var len = 50/ Number of time to loop ALL blocks (use 0 for unlimited)var loops = 0/ If you set the number of loops, set the final messegevar end = 'End of "ActiveASCII" by Neal Kanodia.'/ Use this format for each string (starting at 0 u

46、ntil 1 less/ than max):/ block(#block,"Text to display","Method",#ticks,#wait)/ example: block(0,"1st block.","Scroll Left",25,0)/ *COMMON ERROR*: If you add a block INCREASE MAX BY 1/ *COMMON ERROR*: If you remove a block DECREASE MAX BY 1/ *COMMON ERROR*: Check the spelling of your methods!block(17,"欢迎光临!","display",0,500)block(18,"欢迎光临!","display center",0,500)block(2,"欢迎光临!","scroll