答案:<%
Response.buffer=false
Server.ScriptTimeOut=150
%>
<Html>
<Head>
<Title>满天星</Title>
</Head>
<Body bgcolor=#000000>
<%
dim startx
dim k,i
dim nextsecond
for k=1 to 60
nextsecond=dateadd("s",2,time)
do while time<nextsecond
loop
Randomize
star=int(50*rnd())
for i=1 to star
Response.Write "<font color=000000> </font>"
Next
Response.Write "<font color=#00ffff>*</font>"
if k mod 3=2 then response.write "<br>"
next
%>
</body>
</html>
上一个:ASP字符串加密解密代码实例
下一个:ASP查看浏览器属性代码实例