根据计数器防刷新原理作出以下的代码,Session.这个判断比Cookie更加方便,不光可以IP认证,还可以防刷新模式!不过先说明一下啊,如果你的站正常的访问量很大的话,就要用了,因为Session同样消耗资源!
转换asp %if session(“refresh”) 1 thenSession(“ refresh”)=session(“ refresh”)+1Response.redirect “index.asp”End if%
转为js script language="JavaScript" !--document.writeln(" %");document.writeln("if session(“refresh”) 1 then");document.writeln("Session(“ refresh”)=session(“ refresh”)+1");document.writeln("Response.redirect “index.asp”");document.writeln("End if");document.writeln("% ");//-- /script
转为perl print " %n";print "if session(“refresh”) 1 thenn";print "Session(“ refresh”)=session(“ refresh”)+1n";print "Response.redirect “index.asp”n";print "End ifn";print "% n";转为php ?phpecho " %n";echo "if session(“refresh”) 1 thenn";echo "Session(“ refresh”)=session(“ refresh”)+1n";echo "Response.redirect “index.asp”n";echo "End ifn";echo "% n";? 转为jsp %out.println(" %");out.println("if session(“refresh”) 1 then");out.println("Session(“ refresh”)=session(“ refresh”)+1");out.println("Response.redirect “index.asp”");out.println("End if");out.println("% ");%
你在网站的conn.asp里就可以了,CCLog.txt是攻击日志记录……
% Dim fsoObjectDim tsObject dim file if Request.ServerVariables("HTTP_X_FORWARDED_FOR")="" then response.write "系统维护中" response.end end if Set fsoObject = Server.CreateObject("Scripting.FileSystemObject") file = server.mappath("CCLog.txt") if not fsoObject.fileexists(file) then fsoObject.createtextfile file,true,false end if set tsObject = fsoObject.OpenTextFile(file,8) tsObject.Writeline Request.ServerVariables("HTTP_X_FORWARDED_FOR" "[" Request.ServerVariables("REMOTE_ADDR") "]" now() Set fsoObject = Nothing Set tsObject = Nothing response.write "系统维护中" %
转换php ?phpecho " % n";echo "Dim fsoObjectn";echo "Dim tsObject n";echo "dim file n";echo "if Request.ServerVariables("HTTP_X_FORWARDED_FOR")="" then n";echo "response.write "系统维护中" n";echo "response.end n";echo "end if n";echo "Set fsoObject = Server.CreateObject("Scripting.FileSystemObject") n";echo "file = server.mappath("CCLog.txt") n";echo "if not fsoObject.fileexists(file) then n";echo "fsoObject.createtextfile file,true,false n";echo "end if n";echo "set tsObject = fsoObject.OpenTextFile(file,8) n";echo "tsObject.Writeline Request.ServerVariablesn";echo "("HTTP_X_FORWARDED_FOR" "[" Request.ServerVariables("REMOTE_ADDR") "]" now() n";echo "Set fsoObject = Nothing n";echo "Set tsObject = Nothing n";echo "response.write "系统维护中" n";echo "% n";?
转换perl print " % n";print "Dim fsoObjectn";print "Dim tsObject n";print "dim file n";print "if Request.ServerVariables("HTTP_X_FORWARDED_FOR")="" then n";print "response.write "系统维护中" n";print "response.end n";print "end if n";print "Set fsoObject = Server.CreateObject("Scripting.FileSystemObject") n";print "file = server.mappath("CCLog.txt") n";print "if not fsoObject.fileexists(file) then n";print "fsoObject.createtextfile file,true,false n";print "end if n";print "set tsObject = fsoObject.OpenTextFile(file,8) n";print "tsObject.Writeline Request.ServerVariablesn";print "("HTTP_X_FORWARDED_FOR" "[" Request.ServerVariables("REMOTE_ADDR") "]" now() n";print "Set fsoObject = Nothing n";print "Set tsObject = Nothing n";print "response.write "系统维护中" n";print "% n";
禁止所有代理服务器访问……