<% Function GetLocationURL() Dim Url Dim ScriptName,QueryString ScriptName = Request.ServerVariables("SCRIPT_NAME") QueryString = Request.ServerVariables("QUERY_STRING") if ScriptName = "/index.asp" then if QueryString = "" then GetLocationURL = "/" else GetLocationURL = ScriptName&"?"&QueryString end if else if QueryString = "" then GetLocationURL = ScriptName else GetLocationURL = ScriptName&"?"&QueryString end if end if End Function If isspider() then Response.Status="301 Moved Permanently" Response.AddHeader "Location","http://www.xxx.com"& GetLocationURL() '在这里修改要跳转到的网 页 Response.End End if function isspider() dim agent,searray,i agent="agent:"&LCase(request.servervariables("http_user_agent")) searray=array("googlebot","spider","sogou","yahoo","soso","baidu","360") isspider = false for i=0 to ubound(searray) if (instr(agent,searray(i))>0) then isspider=true next end function %>
版权声明:本文为 “黑帽百科” 原创文章,转载请附上原文出处链接及本声明;
工作时间:10:00~22:00
客服电话
电子邮件
hack66666@foxamil.com
扫码二维码
获取最新动态