<%  randomize
star=60
For k=1 To 100
'nextsecond的值为当前时间+5秒
nextsecond=dateadd("s",5,time)
'延时5秒
Do While time<nextsecond
Loop
star=star+3*rnd()-1
For i=1 To star
Response.write("!")
Next
Response.write("*<p>")
Next  %>
