<%
Response.buffer=false
%>
<Html>
<Head>
<Title>满天星</Title>
</Head>
<Body bgcolor="gray">
<%
dim star
dim k,i
dim nextsecond
for k=1 to 60
  nextsecond=dateadd("s",2,time)
  Randomize
  do while time<nextsecond      '书本上遗漏了
  loop                                         '书本上遗漏了
  star=int(50*rnd())
  for i=1 to star
   Response.Write "<font color='gray'>&nbsp;</font>"
  Next
   Response.Write "<font size=5 color='white'>*</font>"
  if k mod 3=2 then response.write "<br>"
next
%>
</body>
</html>

