| じ☆丶亮￡☆ |
2008-08-16 20:40 |
ASP实现带进度条的测试网速。
把下列代码存为.ASP的文件，放在你的服务器上就可以直接运行了。
以下为引用的内容：
<%RespXXe.Expires = 0RespXXe.Expiresabsolute = Now() - 1RespXXe.AddHeader "pragma","no-cache"RespXXe.AddHeader "cache-control","private"RespXXe.CacheControl = "no-cache"%>网速测试-建站学-<a href="http://www.jzxue.com" target="_blank">www.jzxue.com</a>网速测试 正在测试，请稍候... <%defaultfs = 200 '数据默认大小(K)minfs = 100 '数据最小值maxfs = 500 '数据最高值fs = Request("s")if len(fs) = 0 or isnumeric(fs) = false then fs = defaultfsif int(fs) > maxfs then fs = maxfsif int(fs) < minfs then fs = minfs//jzxue.comfor a=1 to fs%><%next%>
//jzxue.com
本篇文章来自IDC专家网 原文链接：http://www.soidc.net/articles/1183730975605/20080418/1208604860315_1.html |
|