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>
<metahttp-equiv="content-type"content="text/html;charset=gb2312">
<bodystyle="cursor:wait;">
<pstyle="font-size:18pt;"><B>网速测试</B></p>
<pid="t"style="font-size:16pt;">正在测试,请稍候...</p>
<spanstyle="width:300;height:16px;background-color:gray;"><spanid="p"style="width:0;height:16px;background-color:red;"></span></span>
<scriptlanguage="javascript">st=newDate();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")
iflen(fs)=0orisnumeric(fs)=falsethenfs=defaultfs
ifint(fs)>maxfsthenfs=maxfs
ifint(fs)<minfsthenfs=minfs
fora=1tofs%><!--$%^)!@#$%^&*()!@#$%^&*()!@#$%^&*()!@#$%^&*()!@#$%^&*()!@#$%^&*()!@#$%^&*()!@#$%^&*()!@#$%^&*()!@#$%^&*()!@#$%^&*()!@#$%^&*()!@#$%^&*()!@#$%^&*()!@#$%^&*()!@#$%^&*()!@#$%^&*()!@#$%^&*()!@#$%^&*()!@#$%^&*()!@#$%^&*()!@#$%^&*()!@#$%^&*()!@#$%^&*()!@#$%^&*()!@#$%^&*()!@#$%^&*()!@#$%^&*()!@#$%^&*()!@#$%^&*()!@#$%^&*()!@#$%^&*()!@#$%^&*()!@#$%^&*()!@#$%^&*()!@#$%^&*()!@#$%^&*()!@#$%^&*()!@#$%^&*()!@#$%^&*()!@#$%^&*()!@#$%^&*()!@#$%^&*()!@#$%^&*()!@#$%^&*()!@#$%^&*()!@#$%^&*()!@#$%^&*()!@#$%^&*()!@#$%^&*()!@#$%^&*()!@#$%^&*()!@#$%^&*()!@#$%^&*()!@#$%^&*()!@#$%^&*()!@#$%^&*()!@#$%^&*()!@#$%^&*()!@#$%^&*()!@#$%^&*()!@#$%^&*()!@#$%^&*()!@#$%^&*()!@#$%^&*()!@#$%^&*()!@#$%^&*()!@#$%^&*()!@#$%^&*()!@#$%^&*()!@#$%^&*()!@#$%^&*()!@#$%^&*()!@#$%^&*()!@#$%^&*()!@#$%^&*()!@#$%^&*()!@#$%^&*()!@#$%^&*()!@#$%^&*()!@#$%^&*()!@#$%^&*()!@#$%^&*()!@#$%^&*()!@#$%^&*()!@#$%^&*()!@#$%^&*()!@#$%^&*()!@#$%^&*()!@#$%^&*()!@#$%^&*()!@#$%^&*()!@#$%^&*()!@#$%^&*()!@#$%^&*()!@#$%^&*()!@#$%^&*()--><scriptlanguage=javascript>$(<%=int(a*100/fs)%>)</script><%next%>
<scriptlanguage=javascript>
et=newDate();ds=<%=fs%>;s=Math.round(ds*1000/(et-st)*10)/10;document.body.style.cursor='default';
nextsize=<%=fs%>;if(s>100){nextsize=<%=maxfs%>;}elseif(s<20){nextsize=<%=minfs%>;}
document.getElementById("t").innerHTML="测试完毕。您的速度:<fontcolor='red'>"+s+"</font>(K/秒)[<ahref='?s="+nextsize+"&t="+Math.random()+"'>重测</a>]";</script>
</body>
</html>
分享到:
相关推荐
asp实现进度条的测试网速的代码
Aspupload 组件上传代码,带进度条显示。
asp.net上传图片带进度条
新ASP无组件上传带进度条(源码 + 实例) 里面含有示例和组合程序,还有进度条供各位网友学习增强改进。
Asp无组件上传带进度条Asp无组件上传带进度条
6种经典的asp上传文件源码+带进度条,自己测试,可以用。
asp 无刷新上传 带进度条 来自网上 亲测好使 效果不错
ASP带进度条上传文件 ASP带进度条上传文件
ASP无组件上传带进度条 可上传大文件(源码+实例)
asp.net文件上传带进度条 文件上传 ajax文件上传
无组件上传带进度条asp版
【ASP.NET编程知识】asp.net单文件带进度条上传的解决方案.docx
upload.asp为核心代码,除非特殊需要,一般不需要修改 demo.htm是演示无刷新进度条(IE5.5+支持) demo.asp为处理demo.asp上传的文件,因为演示需要,在Demo.asp中仅仅上传,不作保存,如果需要保存,只需去掉相关...
觉得不错,但是有个不足的地方,就是当我上传一个文件时把页面关闭的时候 这个文件其实还在上传着!
基于艾恩上传源码asp带进度条详细信息上传图片简单美化版
Asp无组件上传带进度条 1.0 无组件上传带真实进度条 其中 upload.asp为核心代码,除非特殊需要,一般不需要修改 demo.htm是演示无刷新进度条(IE5.5+支持) demo.asp为处理demo.asp上传的文件,因为演示需要,在...
资源名:ASP.NET MVC 实现带进度条上传功能程序源码.zip 资源类型:程序源代码 源码说明: 基于asp.net mvc实现的上传文件带进度条的程序 包含完整源码和注释 很适合借鉴学习 适合人群:新手及有一定经验的开发人员
ASP写的无组件上传带真实进度条_upload模块
asp.net单文件带进度条上传,不属于任务控件,也不是flash类型的上传,完全是asp.net、js、css实现上传。源码为开发测试版,需要使用的亲需要注意修改配置文件。详见配套博客:...