代码存为speedtest.asp，同目录下放一个大约100K的img.jpg图片，具体大小请改代码中的var fs = 137.57 //img.jpg文件大小(K)
查看演示
<HTML> <HEAD> <TITLE>网站速度测试-51windows.Net</TITLE> <meta http-equiv="Content-Type" content="text/html; charset=gb2312"> <META NAME="Author" CONTENT="51windows,海娃,haiwa"> <META NAME="Description" CONTENT="Power by 51windows.Net"> </HEAD> <BODY> <% Response.Expires=-1 Response.ExpiresAbsolute=Now()-1 Response.cachecontrol="no-cache" Dim Imgrandom Randomize Imgrandom = Int(799999 * Rnd + 200000) %> <SCRIPT LANGUAGE="JavaScript"> window.status = "下载数据中..." var st = new Date() </SCRIPT> <img src="img.jpg?id=<%=Imgrandom%>" width=0 height=0 onerror = showerr() onload="showspeed();"> <SCRIPT LANGUAGE="JavaScript"> //海娃(51windows.Net) function showspeed() { var fs = 137.57 //img.jpg文件大小(K) var l = 2 //小数点的位数 var et = new Date() alltime = fs*1000/(et - st) Lnum = Math.pow(10,l) calcspeed = Math.round(alltime*Lnum)/Lnum showtxt.innerHTML = ("服务器时间为：<%=now%>，您在本站的下载速度为："+calcspeed+" (K/秒)") window.status = "您在本站的下载速度为："+calcspeed+" (K/秒)" } function showerr() { showtxt.innerHTML = ("数据下载错误,请刷新重试") window.status = "数据下载错误,请刷新重试" } </SCRIPT> <button style="font-size:12px;width:80;height:19px;" onclick=location.href="speedtest.asp?<%=Imgrandom%>">重新测试</button> <span id=showtxt></span> </BODY> </HTML>