ASP实现带进度条的测试网速的代码程序


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>网速测试-51windows.Net</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//phpstudy.net
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>//phpstudy.net
</body>
</html>



相关阅读:
WordPress实现相关文章功能代码方法
ASP.NET中防止页面多次提交的代码实现
php adodb介绍
JavaScript switch case 的用法实例[范围]
如何在DataGrid控件中隐藏列
设置Win2003的本地策略应用
jquery实现的超出屏幕时把固定层变为定位层的代码
Windows Vista系统常用补丁功能介绍
Photoshop CSS网页制作的背景图 主题的引用样式
HTML表格标记教程(19):行标记<TR>属性
让超出DIV宽度范围的文字自动显示省略号...
在.net中使用Gmail发送邮件
AJAX初级应用-RSS无刷新聚合器的代码与下载
XHTML教程,简单认识XHTML基础知识
快速导航
PHP MySQL HTML CSS JavaScript MSSQL AJAX .NET JSP Linux Mac ASP 服务器 SQL jQuery C# C++ java Android IOS oracle MongoDB SQLite wamp 交通频道 作文范文 篝火晚会作文200字 好书伴我成长作文1100字 小学五年级作文800字:冬雨,滴滴答答地下 2011年上半年工作总结会议讲话稿 君王 经典的幽默短信25 我家的“田螺姑娘” 善于变脸的同桌作文600字 给胡晗昱的一封信 爱是圈圈 树叶的旅行 田野的风(5首) 放弃执着作文1200字 争做“四有”教师演讲稿:有你,一辈子感到幸福 七夕情人节送什么礼物给女朋友好 流泪的蛋糕作文450字 我的蔡依林老爸作文 五年级暑假日记400字 最后一次魔法命运转移(4下)作文700字 戏里戏外,弄情人生 原谅这个世界并不美好 夕阳环绕月光飞舞 科室年终总结范文 高中数学教师个人总结 荷作文800字 我未来的学校——十三中400字 深圳,璀璨的明珠 简单实用的租房合同范本 小熊、小兔与大象作文300字 希望的路 享受诗词的乐趣作文900字 离婚后的心情 训练间隙(部队群口快板) 关于借书的作文 未来人们的食物 杨柳依依 友谊常依依 唱给母亲的歌 穿越百年的芬芳记忆作文800字 我到底怎么了。。。 教师综合素质自我评价 科技的利与弊议论文500字 爱——老师的爱700字 公司鼓励员工的话语 但成功必须奋斗 严以律己发言材料 可爱的旺旺 标准版销售合同范本(酒水类) 社会主义法治理念教育民警剖析材料 青青世界作文550字 第一次登上舞台作文800字 2016教师守岗保证书

Copyright © 2016 phpStudy |