asp带进度条测网速代码
来源:互联网 发布:诲女知之乎的翻译 编辑:程序博客网 时间:2024/04/27 22:47
<%
Response.Expires = 0
Response.Expiresabsolute = Now() - 1
Response.AddHeader "pragma","no-cache"
Response.AddHeader "cache-control","private"
Response.CacheControl = "no-cache"
%><html>
<head>
<title>网速测试</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
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>
</body>
</html>
- asp带进度条测网速代码
- Asp测网速代码(带进度条)
- asp 测试网速代码
- 网速测函数代码
- 文件上传(无刷新,带进度条,带网速)下载完整
- 测网速-在线网速测试原理及代码
- ASP.NET带进度条多文件上传
- ASP.NET带进度条多文件上传
- asp.net单文件带进度条上传
- 带进度条的页面js跳转代码
- Flex 带进度条上传文件代码
- C# 下载带进度条代码(普通进度条)
- 【导读】本文介绍如何利用带进度条的ASP无组件实现断点续传下载,给出详细代码
- 测网速
- Asp.net中带进度条的批量静态页生成
- [原创]ASP无组件上载,带进度条,多文件上载。。
- 带进度条的多文件ASP无组件上传
- 带进度条的ASP无组件断点续传下载
- 如何定制对话框中的回车键
- petshop4.0 详解之八(PetShop表示层设计)
- SQL注入漏洞全接触——入门篇
- SQL注入漏洞全接触——进阶篇
- 2.10 Drawing Objects Using cObject(用cObject绘出对象)
- asp带进度条测网速代码
- 超级实用且不花哨的js代码大全
- SQL注入漏洞全接触——入门篇
- 2.11 Making Meshes Move With cAnimation(动画了吧)
- SQL注入漏洞全接触——高级篇
- http://www.3800hk.com/news/w32/12446.html sa帐号的改名和删除
- OGRE中example程序的启动流程
- SQL注入漏洞全接触——进阶篇
- SQL注入漏洞全接触——高级篇