把下列代码存为.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>网速测试</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
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>
ASP网站漏洞解析及黑客入侵防范方法(3)
再提醒各位论坛站长一句，小心你们的文件上传：为什么论坛程序被攻破后主机也随之被攻击者占据。原因就在……对！ASP 木马！一个绝对可恶的东西。病毒么？非也.把个文件随便放到你论坛的程序中，您老找去吧。不吐血才怪哦。如何才能防止ASP木马被上传到服务器呢？方法很简单，如果你的论坛支持文件上传，请设定好你要上传的文件格式，我不赞成使用可更改的文件格式，直接从程序上锁定，只有图象文件格式，和压缩文件就完全可以，