📄 star.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> </font>"
Next
Response.Write "<font color=#00ffff>*</font>"
if k mod 3=2 then response.write "<br>"
next
%>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -