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

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

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

万万没想到，提交备案初审结果如下：

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

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

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

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

思路：

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开发，上面的代码仅供参考，如有更好的方法，欢迎交流！