代码如下: <% Dim CC_Info(4),strInfo,strTemp If Session(“CC_Info”) = “” Then CC_Info(0) = “cclog.txt” ‘日志文件名 CC_Info(1) = Request.ServerVariables(“HTTP_X_FORWARDED_FOR”) CC_Info(2) = Request.ServerVariables(“REMOTE_ADDR”) CC_Info(3) = 10 ‘N秒内禁止刷新当前页面 CC_Info(4) = “badip.txt” ‘IP黑名单文件名 Session(“CC_Info”)