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>
<%
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>
扫一扫
1251
被折叠的 条评论
为什么被折叠?
到【灌水乐园】发言
