ASP實現帶進度條的測試網速的代碼程序_ASP教程

2024-05-04 11:03:42

字體：大中小

來源：轉載

供稿：網友

推薦：如何提高自己的編程水平
有成功的喜悅，也有失敗的痛苦，但總不敢稱自己是高手，因為和我心目中真正的高手們比起來，還差的太遠。世界上并沒有成為高手的捷徑，但一些基本原則是可以遵循的。 1. 扎實的基礎。數據

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='?s=" nextsize "&t=" Math.random() "'>重測</a>]";</script>//jzxue.com
</body>
</html>