回复:春江水暖鸭先知 ※※※※※※  >
秋晌岸边文集！
|
|
回复:1234 dim w,t,p,mm,c,mr,dy,tmp,vs:vs=5:dy=1:p=1:mr=" ":c="|"&mr:Set w = document.body sub tp m=mid(t,p,1):if m="" then c=mr if m="`" then m="":mm=mid(mm,1,len(mm)-1) if m="<" then av=instr(mid(t,p),">"):m=mid(t,p,av):p=p+av-1 if m="&" then av=instr(mid(t,p),";"):m=mid(t,p,av):p=p+av-1 tmp=100:if m="." then tmp=400 else if m="," then tmp=200 else if m=" " then tmp=200 if w.scrollHeight-w.scrollTop>w.offsetHeight then w.scrollTop=w.scrollTop+int(dy):dy=dy+dy/vs else dy=1 mm=mm&m:w1.innerHTML=mm&c:p=p+1:if p<=len(t)+1 then SetTimeOut "tp",16+tmp else w.scroll="yes" end sub sub window_onload() w.scroll="yes" w.bgcolor="#A8A8A8" w.style.cursor="crosshair" '------------------- t=w0.innerHTML:tp end sub
庆祝三八节 ※※※※※※ >
秋晌岸边文集！
|