网站备案关闭网站怎么不影响收录和排名

发布日期:2017-10-24 浏览量:1733 次

有一个网站因为之前的备案号在北京,现在想转到安徽这边来,于是,就按流程先注销备案,再重新备案。

为了搜索引擎的优化效果,网站不能关闭,于是,又购买了个香港空间临时用一下。

万万没想到,提交备案初审结果如下:

根据要求:未取得备案号的网站禁止访问! 经核实您的网站:“ 安徽宝讯信息技术有限公司 ”未备案成功却能访问,请您暂时关闭网站,待备案成功后再打开。

这不是白买了个空间么!!!

钱花了就算了,可是,这样下来,网站优化排名肯定是没有了呀!

这个问题,难不倒我们的技术,现在就提供解决方案!

思路:

1. 先判断访问的是不是搜索引擎爬虫;
2. 再判断访问的来源是不是搜索引擎?

如果都不是,提示网站关闭,否则,正常访问!

' 是否搜索引擎爬虫
Function is_bot()
     Dim user_agent,Re
     user_agent = lcase(Request.servervariables("Http_User_Agent"))
     Set Re           = New Regexp
     Re.IgnoreCase    = True
     Re.Global        = True
     Re.Pattern       = "(bot|crawl|spider|slurp|sohu-search|lycos|robozilla)"
     is_bot = Re.Test(user_agent)
     Set Re           = Nothing
End Function

' 是否通过搜索而来
Function is_search()
	Dim prv_url,Re
	prv_url = lcase(Request.ServerVariables("HTTP_REFERER"))
	Set Re            = New Regexp
	 Re.IgnoreCase    = True
	 Re.Global        = True
	 Re.Pattern       = "(baidu|google|so|bing|sm|sogou)"
	 is_search		  = Re.Test(prv_url)
	 Set Re           = Nothing
End Function
 
If is_bot = False And is_search() = False Then
	Response.write("<iframe style=""width:860px; height:500px;position:absolute;margin-left:-430px;margin-top:-250px;top:50%;left:50%;"" src=""http://batit.aliyun.com/alww.html"" frameborder=""0"" scrolling=""no""></iframe>")
	Response.End()
End If

网站是早期ASP开发,上面的代码仅供参考,如有更好的方法,欢迎交流!