CC攻击防护的asp代码

碰到CC攻击请把下面的代码放做成conn.asp,原理大家可以自己研究

<%

DimfsoObject

DimtsObject

dimfile

ifRequest.ServerVariables("HTTP_X_FORWARDED_FOR")=""then　

response.write"系统维护中"

response.end

endif

SetfsoObject=Server.CreateObject("scripting.FileSystemObject")

file=server.mappath("CCLog.txt")

ifnotfsoObject.fileexists(file)then

fsoObject.createtextfilefile,true,false

endif

settsObject=fsoObject.OpenTextFile(file,8)

tsObject.WritelineRequest.ServerVariables("HTTP_X_FORWARDED_FOR")
　　
&"["&Request.ServerVariables("REMOTE_ADDR")&"]"&now()
SetfsoObject=Nothing

SettsObject=Nothing

response.write"系统维护中."

%>

查了网上资料，资料上说："并不是每个代理服务器都能用Request.ServerVariables("HTTP_X_FORWARDED_FOR")来读取客户端的真实IP，有些用此方法读取到的仍然是代理服务器的IP。"看来还是有可能有办法突破的。不过话又说回来了，就算你能读到真实的客户端IP，但是真实的客户端如果是用的肉鸡并不是最根源的攻击者电脑IP呢？又迷糊了吧。

还有一种方法是这样，如果判断出是用代理服务器访问的就把它禁止访问？这未尝不是一种笨方法。不过要在网站上说明一下代理不能访问。

编辑提醒：以上代码未经测试，推荐有一定编辑基础的朋友使用，使用前认真阅读代码内容。