• [大笑]这不符合小撸的风格也!只要你有能力评论的,会说这种没营养的话? 2019-04-15
  • 离开城市告别妻儿 他陪母亲“归园田居”(图) 2019-04-02
  • 一语惊坛(5月31日):“我们不一样”,中国向世界许下一个承诺。 2019-04-02
  • 国家体育总局局长:国家队员选拔要取消领导干预、杜绝暗箱操作 2019-03-27
  • 17岁生日快乐!习近平这样讲述“上合故事” 2019-03-25
  • 直播连线 英国资深记者无意吞苍蝇 2019-03-17
  • 北欧和中国加强陆路物流交通合作 2019-03-09
  • 网站广播 本站提供的源码经过测试,有前台及后台管理界面演示图,免费下载!
    ASP实现301域名重定向代码
    2014-12-03 12:44:55    【 】   浏览:
    分享一例asp实现301域名重定向的代码,使用301域名重定向可以把不带www的顶级域名转向到带www的域名。

    黑龙江福彩p62中奖号 www.buvh.net  

    代码如下:
    <%
    '--301域名重定向
    Dim Server_Name,Path_infostr,Query_Stringstr
    Path_infostr=lcase(request.ServerVariables("PATH_INFO"))
    Server_Name=lcase(request.ServerVariables("Server_Name"))
    Query_Stringstr=request.ServerVariables("Query_String")
    If  Query_Stringstr<>"" Then 
       Query_Stringstr="?"&Query_Stringstr 
    IF  instr(Server_Name,"www.")<1 Then  
       Response.Status = "301 Moved Permanently" 
    if instr(Path_infostr,"index")>0 or  instr(Path_infostr,"default")>0  Then 
      Response.AddHeader "Location","//www."&Server_Name
    Else  
       Response.AddHeader "Location","//www."&Server_Name&Path_infostr&Query_Stringstr  
    End if 
      Response.End 
    End if %>


    Tags:ASP 实现 301 域名 重定向 代码
    】【打印繁体】【关闭】 【返回顶部
    上一篇ASP生成不重复随机数的实例代码 下一篇ADODB.Connection 错误 '800a..

    广告推荐

    ASP技术文章推荐阅读

  • [大笑]这不符合小撸的风格也!只要你有能力评论的,会说这种没营养的话? 2019-04-15
  • 离开城市告别妻儿 他陪母亲“归园田居”(图) 2019-04-02
  • 一语惊坛(5月31日):“我们不一样”,中国向世界许下一个承诺。 2019-04-02
  • 国家体育总局局长:国家队员选拔要取消领导干预、杜绝暗箱操作 2019-03-27
  • 17岁生日快乐!习近平这样讲述“上合故事” 2019-03-25
  • 直播连线 英国资深记者无意吞苍蝇 2019-03-17
  • 北欧和中国加强陆路物流交通合作 2019-03-09
  • 时时彩缩水软件下载 老时时彩360开奖数据 28彩票全程骗局 喜乐彩券行台北市 足彩混合过关怎么算中奖 河南快赢481网购 360老时时彩4星技巧 山东群英会中奖金额表 北京pk10牛牛软件 开奖现场报码 新时时彩历史开奖信息 排列5奖金分布 喜乐彩包围复选82 豪华21点 排列三 竞彩胜平负投注