带进度条的Asp网速测试程序

ASP汉字转换拼音类

cookies实现无重复

Oct 13

, 08/10/13 12:02 , 技术开发 » ASP , 评论(0) , 引用(0) , 阅读(3050) , Via 本站原创

大 | 中 | 小

<%
' zhoz 收集整理 2008/10/13 11:59
' www.zhoz.com
Response.Expires = 0
Response.Expiresabsolute = Now() - 1
Response.AddHeader "pragma","no-cache"
Response.AddHeader "cache-control","private"
Response.CacheControl = "no-cache"
%>

<html>
<head>
<title>zhoz网速测试Asp程序-zhoz.com</title>
<meta http-equiv="content-type" content="text/html; charset=utf8">
<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
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>
</body>
</html>

Tags: 主机配置

< 2024 > < 4 >
日	一	二	三	四	五	六
	1	2	3	4	5	6
7	8	9	10	11	12	13
14	15	16	17	18	19	20
21	22	23	24	25	26	27
28	29	30

Everyday NetLog

带进度条的Asp网速测试程序

公告

分类

日历

统计

最新日志

最新评论

链接

归档

其他