欢迎光临爱时尚女性网
 

ASP实现满天星效果

2013-2-28 编辑:admin 来源:爱时尚女性网 阅读次数:724
  导读: 满天星 ...
<%
Response.buffer=false
Server.ScriptTimeOut=150
%>


满天星


<%
dim startx
dim k,i
dim nextsecond
for k=1 to 60
nextsecond=dateadd("s",2,time)
do while time
loop
Randomize
star=int(50*rnd())
for i=1 to star
Response.Write " "
Next
Response.Write "*"
if k mod 3=2 then response.write "
"

next
%>




文章出自:爱时尚女性网www.aspjc.com,尊重版权是美德,转载请保留原地址,感谢合作!

 
 
链接交换请联系:QQ:790646582 首页链接要求百度快照在一周以内,不符合以上要求的各站,我们将定期把友情连接转入内页,谢谢合作。
Copyright @ 2012-2015 爱时尚女性网 保留所有权利吉ICP备14005127号-1 服务QQ:175529508 e-mail:zk8312@163.com
本站部分资源来自网友上传,如果无意之中侵犯了您的版权,请联系本站,本站将在3个工作日内删除。