ASP实现带进度条的测试网速。
把下列代码存为.ASP的文件，放在你的服务器上就可以直接运行了。
| 以下是代码片段： <% Response.Expires = 0 Response.Expiresabsolute = Now() - 1 Response.AddHeader "pragma","no-cache" Response.AddHeader "cache-control","private" Response.CacheControl = "no-cache" %><html> <head> <title>网速测试-51windows.Net</title> <meta http-equiv="content-type" content="text/html; charset=gb2312"> <body style="cursor:wait;"> <p style="font-size:18pt;"><B>网速测试</B></p> <p id="t" style="font-size:16pt;">正在测试，请稍候...</p> <span style="width:300;height:16px;background-color:gray;"><span id="p" style="width:0;height:16px;background-color:red;"></span></span> <script language="javascript">st = new Date();function $(p){document.getElementById("t").innerHTML="正在测试，请稍候...("+p+"%)"; document.getElementById("p").style.width=p*3;}</script> <% defaultfs = 200 "数据默认大小(K) minfs = 100 "数据最小值 maxfs = 500 "数据最高值 fs = Request("s") if len(fs) = 0 or isnumeric(fs) = false then fs = defaultfs if int(fs) > maxfs then fs = maxfs if int(fs) < minfs then fs = minfs//webjx.com for a=1 to fs%><!--$%^)!@#$%^&*()!@#$%^&*()!@#$%^&*()!@#$%^&*()!@#$%^&*()!@#$%^&*()!@#$%^&*()!@#$%^&*()!@#$%^&*()!@#$%^&*()!@#$%^&*()!@#$%^&*()!@#$%^&*()!@#$%^&*()!@#$%^&*()!@#$%^&*()!@#$%^&*()!@#$%^&*()!@#$%^&*()!@#$%^&*()!@#$%^&*()!@#$%^&*()!@#$%^&*()!@#$%^&*()!@#$%^&*()!@#$%^&*()!@#$%^&*()!@#$%^&*()!@#$%^&*()!@#$%^&*()!@#$%^&*()!@#$%^&*()!@#$%^&*()!@#$%^&*()!@#$%^&*()!@#$%^&*()!@#$%^&*()!@#$%^&*()!@#$%^&*()!@#$%^&*()!@#$%^&*()!@#$%^&*()!@#$%^&*()!@#$%^&*()!@#$%^&*()!@#$%^&*()!@#$%^&*()!@#$%^&*()!@#$%^&*()!@#$%^&*()!@#$%^&*()!@#$%^&*()!@#$%^&*()!@#$%^&*()!@#$%^&*()!@#$%^&*()!@#$%^&*()!@#$%^&*()!@#$%^&*()!@#$%^&*()!@#$%^&*()!@#$%^&*()!@#$%^&*()!@#$%^&*()!@#$%^&*()!@#$%^&*()!@#$%^&*()!@#$%^&*()!@#$%^&*()!@#$%^&*()!@#$%^&*()!@#$%^&*()!@#$%^&*()!@#$%^&*()!@#$%^&*()!@#$%^&*()!@#$%^&*()!@#$%^&*()!@#$%^&*()!@#$%^&*()!@#$%^&*()!@#$%^&*()!@#$%^&*()!@#$%^&*()!@#$%^&*()!@#$%^&*()!@#$%^&*()!@#$%^&*()!@#$%^&*()!@#$%^&*()!@#$%^&*()!@#$%^&*()!@#$%^&*()!@#$%^&*()!@#$%^&*()!@#$%^&*()!@#$%^&*()--><script language=javascript>$(<%=int(a*100/fs)%>)</script><%next%> <script language=javascript> et=new Date();ds=<%=fs%>;s=Math.round(ds*1000/(et-st)*10)/10;document.body.style.cursor="default"; nextsize=<%=fs%>;if(s>100){nextsize=<%=maxfs%>;}else if(s<20){nextsize=<%=minfs%>;} document.getElementById ("t").innerHTML="测试完毕。您的速度：<font color="red">"+s+"</font>(K/秒) [<a href="?s="+nextsize+"&t="+Math.random()+"">重测</a>]";< /script>//webjx.com </body> </html> |
相关文章 最新评论共有 0 位网友发表了评论 发表评论
赛酷网·中国西部第一建站门户
阅读排行 最新下载
您现在的位置： 
