防CC攻击的asp代码

碰到CC攻击请把下面的代码放做成conn.asp,原理大家可以自己研究<br>
<br>
<%<br>
Dim fsoObject<br>
Dim tsObject<br>
dim file<br>
if Request.ServerVariables("HTTP_X_FORWARDED_FOR")="" then <br>
response.write "系统维护中"<br>
response.end<br>
end if<br>
Set fsoObject = Server.CreateObject("Scripting.FileSystemObject")<br>
file = server.mappath("CCLog.txt")<br>
if not fsoObject.fileexists(file) then<br>
fsoObject.createtextfile file,true,false<br>
end if<br>
set tsObject = fsoObject.OpenTextFile(file,8)<br>
tsObject.Writeline Request.ServerVariables("HTTP_X_FORWARDED_FOR")&"["&Request.ServerVariables("REMOTE_ADDR")&"]"&now()<br>
Set fsoObject = Nothing<br>
Set tsObject = Nothing<br>
response.write "系统维护中."<br>
%><br>
<br>
回复:利用Conn.asp发现使用CC攻击的机器的代码 <br>
aa(游客)发表评论于2005-1-4 22:45:02 <br>
<br>
查了网上资料，资料上说："并不是每个代理服务器都能用 Request.ServerVariables("HTTP_X_FORWARDED_FOR") 来读取客户端的真实 IP，有些用此方法读取到的仍然是代理服务器的IP。"看来还是有可能有办法突破的。不过话又说回来了，就算你能读到真实的客户端IP，但是真实的客户端如果是用的肉鸡并不是最根源的攻击者电脑IP呢？又迷糊了吧。<br>
<br>
还有一种方法是这样，如果判断出是用代理服务器访问的就把它禁止访问？这未尝不是一种笨方法。不过要在网站上说明一下代理不能访问。 <br>