<%Server.ScriptTimeOut=150%>
<%
For k=1 to 10
Nextsecond=dateAdd(
"s",10,time)
Do While time<nextsecond
loop
starx=starx+10*rnd()-1
For i=1 to starx
Response.Write ("&nbsp")
Next
Response.Write ("*<p>")
Next
%>
那个那红色的s有什么作用?
[此贴子已经被作者于2005-3-5 21:51:11编辑过]