背景代码 - 长沙南方职业学院 - 高校教学展示区 - 中国艺术设计联盟

中国艺术设计联盟 » 高校教学展示区 » 长沙南方职业学院 » 背景代码

‹‹ 上一主题 | 下一主题 ››

发表于 2007-11-11 22:03

第1楼由 zengyong86 发起

zengyong86
新生入学
Rank: 1

个人空间短消息

UID 235150
精华 0
积分 0
帖子 1
金钱 2 A币

阅读权限 10
注册 2007-11-11
状态离线

背景代码

<%
Response.buffer=false
server.ScriptTimout=150
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>满天星星</title>
</head>

<body bgcolor="#000000">
<%
dim k,i
dim nexsetcond
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 "*"
Next
Response.Write"*"
if k mod 3=2 then response.write" "
next
%>
</body>
</html>
必须要用IIS服务器才能看得到效果！！！！！！

当前时区 GMT+8, 现在时间是 2008-8-30 07:18