<% Response.buffer=false %>
<% Response.AddHeader "refresh","20;url=3-07.asp" %>
<Html>
<Head>
  <Title>满天星（每隔2秒输出一个星星）</Title>
</Head>
<Body bgcolor="blue">
<marquee behavior="slide" behavior='alternate'></marquee>
<%
dim star,k,i,nextsecond
for k=1 to 60
  nextsecond=dateadd("s",2,time()) '将2秒后的时间赋给nextsecond
  Randomize
  star=int(50*rnd())
  do while time()<nextsecond
  loop 
  for i=1 to star
    Response.Write "<font color='blue'>&nbsp;</font>"
  Next
  if k>=50 and k mod 17 =4 then
  
  Response.Write "<marquee behavior='scroll'><font size='5' color='white'>*</font></marquee>"
  else
  Response.Write "<font size='5' color='white'>*</font>"
  end if
  if k mod 3=2 then response.write "<br>"
next
%>

</body>
</html>
