仓酷云

 找回密码
 立即注册
搜索
热搜: 活动 交友 discuz
查看: 507|回复: 8
打印 上一主题 下一主题

[学习教程] ASP教程之ASP完成带进度条测试网速的代码程序

[复制链接]
蒙在股里 该用户已被删除
跳转到指定楼层
楼主
发表于 2015-1-16 22:05:43 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式

马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。

您需要 登录 才可以下载或查看,没有帐号?立即注册

x
我想详细了解ASP整站代码与PSP整站代码有什么优缺点,那个更好,更安全,更用容易维护,和管理。。。ASP完成带进度条的测试网速。把以下代码存为xxx.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//asp98,cn
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>//asp98,cn
</body>
</html>
写软件都是想的时间比写的时间要长的.如果反过来了就得看看是什么原因了.另外大家可以回去问问公司里的小MM.(一般企业里,跟你们交付软件接触得最多的是她们)
山那边是海 该用户已被删除
沙发
发表于 2015-1-18 20:19:11 | 只看该作者
Server:这个表示的服务器,操作服务器的一些东西使用这个,如Server.Mappath转换服务器路径,Server.CreateObject实例化一个组件
金色的骷髅 该用户已被删除
板凳
发表于 2015-1-24 23:55:32 | 只看该作者
ASP也是这几种脚本语言中最简单易学的开发语言。但ASP也是这几种语言中唯一的一个不能很好支持跨平台的语言。  因为ASP脚本语言非常简单,因此其代码也简单易懂,结合HTML代码,可快速地完成网站的应用程序。
灵魂腐蚀 该用户已被删除
地板
发表于 2015-2-2 16:35:07 | 只看该作者
Server:这个表示的服务器,操作服务器的一些东西使用这个,如Server.Mappath转换服务器路径,Server.CreateObject实例化一个组件
因胸联盟 该用户已被删除
5#
发表于 2015-2-8 02:17:13 | 只看该作者
ASP的语言不仅仅只是命令格式差不多,而是包含在<%%>之内的命令完全就是VB语法。虽然ASP也是做为单独的一个技术来提出的,但他就是完全继承了VB所有的功能。
6#
发表于 2015-2-24 02:06:43 | 只看该作者
虽然ASP也有很多网络教程。但是这些都不系统。都是半路出家,只是从一个例子告诉你怎么用。不会深入讨论,更不会将没有出现在例子里的方法都一一列举出来。
冷月葬花魂 该用户已被删除
7#
发表于 2015-3-7 10:28:41 | 只看该作者
我们必须明确一个大方向,不要只是停留在因为学而去学,我们应有方向应有目标.
透明 该用户已被删除
8#
发表于 2015-3-15 00:40:34 | 只看该作者
最近在学asp,不要问我为什么不直接学.net,因为公司网站是asp做的所以有这个需要,卖了本书asp入门到精通,对里面的六大内置对象老是记不住,还有很多属性和方法看的头晕。
精灵巫婆 该用户已被删除
9#
发表于 2015-3-21 17:43:56 | 只看该作者
虽然ASP也有很多网络教程。但是这些都不系统。都是半路出家,只是从一个例子告诉你怎么用。不会深入讨论,更不会将没有出现在例子里的方法都一一列举出来。
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

QQ|Archiver|手机版|仓酷云 鄂ICP备14007578号-2

GMT+8, 2024-12-24 10:11

Powered by Discuz! X3.2

© 2001-2013 Comsenz Inc.

快速回复 返回顶部 返回列表