欢迎您访问我爱IT技术网，今天小编为你分享的编程技术是：【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>网速测试-建站学-www.jzxue.com</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//jzxue.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='http://www.chinaz.com/program/2008/0418/?s="+nextsize+"&t="+Math.random()+"'>重测</a>]";</script>//jzxue.com
</body>
</html>
以上所分享的是关于ASP实现带进度条的测试网速的代码程序，下面是编辑为你推荐的有价值的用户互动：
相关问题：asp.net中，如何通过进度条，来显示程序执行的进度。
答：1. 进度条模板文件 ProgressBar.htm 1 2 3 4 5 //设置进度条进度 6 function SetPorgressBar(msg, pos) 7 { 8 ProgressBar.style.width= pos + "%"; 9 WriteText("Msg1",msg + " 已完成" + pos + "%"); 10 } 11 12 //设置进度条完成信息 13 func... >>详细
相关问题：进度条里面加上剩余时间代码怎么写
答：如果是一个对话框： 那就比较简单，在资源编辑器中，加上一个进度条控件。 然后，为这个对话框类中添加控件变量（绑定到这个进度条的），假设名字 是m_pro; 那么，在实用进度条之前，先设置它的范围：m_pro.SetRang( 最小， 最大）;设置它一次步... >>详细
相关问题：测速网速的代码是什么？
答：检查网络的连接状况可以用PING使命。 1、点击开始菜单。 2、选择运行。快捷键为WIN徽标键+R。 3、输入CMD回车。 4、在弹出的DOS对话框中输入ping XXXX（IP地址或网址） －t回车。 5、如果显示timeout则网络未连接或掉包。如果显示字节、时间等信... >>详细
- 评论列表（网友评论仅供网友表达个人看法，并不表明本站同意其观点或证实其描述）
-