一个js实现的字体自动打印的效果

最新推荐文章于 2024-08-05 17:06:21 发布

kyrin_云中鹤

最新推荐文章于 2024-08-05 17:06:21 发布

阅读量1.6k

点赞数

分类专栏： web开发

web开发专栏收录该内容

60 篇文章 0 订阅

订阅专栏

<html>
  <head>
         <title> 诗歌</title>
   <style>
  h3{
    text-align:left;
    color:black;
    font-size:30px;
    text-indent:2em;
    line-height:2em;
    margin:0px;
   }
 .img1{
  float:left;
  width:620;
  border:1px skyblue inset; 
  margin:0px auto;
  padding:0px ;
  }
  .img2{
  float:right;
  width:620;
  border:1px skyblue inset; 
  margin:0px auto;
  padding:0px ;
  }
 
  body{ 
        
         text-align:center;
         background-color:lightblue;
         margin:0px;
          }
   h1{
     color:green;
     font-size:50px;
     font-family:方正舒体;  
   }
   </style>
  </head>
  <body>
       
<SCRIPT language=VBScript>
dim w,t,p,mm,c,mr,dy,tmp,vs:vs=5:dy=1:p=1:mr="<BR><BR><BR>":c="<font color=white><B>|"&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="no"
	w.bgcolor="#A8A8A8"
	w.style.cursor="crosshair"
	'-------------------
	t=w0.innerHTML:tp
end sub


</SCRIPT>
<DIV id=w0  style="DISPLAY: none"> 
        <h1>思秋</h1>  
      
<h3>
秋高气爽的日子
 　<pre>　
 　　一种自我放纵的心境
 　　
 　　在落叶与秋风中
 　　
 　　徘徊
 　　
 　　沉迷于落叶的伤感
 　　
 　　消醉于秋风的寒意
 　　
 　　于是我
 　　
 　　开始思念你
 　　
 　　哪怕红叶落尽
 　　
 　　哪怕秋风寒寒
 　　
 　　只要来年有春天
 　　
 　　我把相思高挂枝头
 　　
 　　等待
 　　
 　　春的萌芽
</pre>
</h3>
</div>   
   <bgsound src="19.mid ">
<DIV id=w1></DIV>

</body>
 </html>

效果如下：