vwin德赢app下载备案关闭vwin德赢app下载怎么不影响收录和排名

发布日期:2017-10-24 浏览量:930 次
  • 有一个vwin德赢app下载因为之前的备案号在北京,现在想转到安徽这边来,于是,就按流程先注销备案,再重新备案。

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

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

    根据要求:未取得备案号的vwin德赢app下载禁止访问! 经核实您的vwin德赢app下载:“ 安徽win德赢ac米兰信息技术有限公司 ”未备案成功却能访问,请您暂时关闭vwin德赢app下载,待备案成功后再打开。

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

    钱花了就算了,可是,这样下来,vwin德赢app下载优化排名肯定是没有了呀!

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

    思路:

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

    如果都不是,提示vwin德赢app下载关闭,否则,正常访问!

    ' 是否搜索引擎爬虫
    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

    vwin德赢app下载是早期ASP开发,上面的代码仅供参考,如有更好的方法,欢迎交流!