推薦：如何提高自己的編程水平有成功的喜悅，也有失敗的痛苦，但總不敢稱自己是高手，因為和我心目中真正的高手們比起來，還差的太遠。世界上並沒有成為高手的捷徑，但一些基本原則是可以遵循的。 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遺留的二十大積習在技術更新的進程中, 仍然有一些人死抱著已經過了氣的東西不放. 也有一些人雖然進入到新的世界, 但仍擺脫不了陳舊的習慣. 我沒有用陋習這個詞, 因為我對這個詞也非常反感.新技