当前位置:编程学习 > asp >>

ASP满天星实例

答案:

<%
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>&nbsp;</font>"
    Next
    Response.Write "<font color=#00ffff>*</font>"
    if k mod 3=2 then response.write "<br>"
next
%>
</body>
</html>

 

上一个:ASP字符串加密解密代码实例
下一个:ASP查看浏览器属性代码实例

CopyRight © 2022 站长资源库 编程知识问答 zzzyk.com All Rights Reserved
部分文章来自网络,