您好,欢迎访问本站博客!登录后台查看权限
  • 如果您觉得本站非常有看点,那么赶紧使用Ctrl+D 收藏吧
  • 网站所有资源均来自网络,如有侵权请联系站长删除!
  • 了解seo技术,运营知识,营销策略,,MU MU ZHONG CHENG——沐目忠诚
  • 忠告:无论她(他)怎么对你,你都不能伤害她、她有她得难!

网站备案专用代码

SEO.推广 沐目忠诚 2012-06-20 777 次浏览 0个评论
网站分享代码

最近管局严查未备案的域名,主要针对已备案的域名与网站内容不符的都将取消备案号,如果你现在已经被取消备案,但网站没有备案就无法访问,只能关闭网站,重新备案。

我们都知道网站关闭肯定影响seo,那我们就能使用下面一段代码。用户访问网站空白,但百度蜘蛛访问就正常访问,那么使用下面代码就可以做到,用户打开提示网站备案中

<blockquote>
<%
function GetBot()
'查询蜘蛛
dim s_agent
GetBot=""
s_agent=Request.ServerVariables("HTTP_USER_AGENT") '关键判断语句
if instr(1,s_agent,"googlebot",1) >0 then
GetBot="google"
end if
if instr(1,s_agent,"msnbot",1) >0 then
GetBot="MSN"
end if
if instr(1,s_agent,"slurp",1) >0 then
GetBot="Yahoo"
end if
if instr(1,s_agent,"baiduspider",1) >0 then
GetBot="baidu"
end if
if instr(1,s_agent,"sohu-search",1) >0 then
GetBot="Sohu"
end if
if instr(1,s_agent,"lycos",1) >0 then
GetBot="Lycos"
end if
if instr(1,s_agent,"robozilla",1) >0 then
GetBot="Robozilla"
end if
end function
if GetBot="baidu" then
'给百度定制的内容
elseif GetBot="google" then
'给google 定制的内容

Else
Response.write "<script language=javascript>alert('网站备案中!');history.go(-1);</script>"
Response.End
end if
%>
</blockquote>

祝福大家早日下备案号,欢迎访问酒店预订28di旅行网!!本代码有大拇指站长编写!仅供大家参考!

已有 777 位网友参与,快来吐槽:

发表评论