ASP實現帶進度條的測試網速的代碼程序_ASP教程

      編輯Tag賺U幣
      教程Tag:暫無Tag,歡迎添加,賺取U幣!

      推薦:如何提高自己的編程水平
      有成功的喜悅,也有失敗的痛苦,但總不敢稱自己是高手,因為和我心目中真正的高手們比起來,還差的太遠。世界上并沒有成為高手的捷徑,但一些基本原則是可以遵循的。 1. 扎實的基礎。 數據

      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>網速測試-建站學-www.jzxue.com</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//jzxue.com
      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>//jzxue.com
      </body>
      </html>

      分享:精彩:ASP遺留的二十大積習
      在技術更新的進程中, 仍然有一些人死抱著已經過了氣的東西不放. 也有一些人雖然進入到新的世界, 但仍擺脫不了陳舊的習慣. 我沒有用”陋習”這個詞, 因為我對這個詞也非常反感. 新技

      來源:模板無憂//所屬分類:ASP教程/更新時間:2008-08-22
      相關ASP教程