• 为救割腕女子 的哥连闯4个红灯 2019-04-10
  • 习近平参加贵州代表团审议 2019-04-06
  • 书写新时代万千气象 凝聚全民族磅礴力量 2019-04-04
  • 上半年逾2000亿债券发行取消或推迟 2019-03-31
  • 更正:将“只有存在……”改为“只要存在……”。 2019-03-31
  • 成都市武侯区:探索“三转双向两护”基层网络空间治理 2019-03-29
  • 安徽古井集团有限公司获第十二届人民企业社会责任奖年度企业奖 2019-03-28
  • 日本大阪地震已致4人死亡、370多人受伤 2019-03-28
  • 质疑的能力都没有,还有批判的余地吗》?看着就想笑 2019-03-28
  • 江西庆祝世界献血者日 2019-03-27
  • 《征途2手游》4月12日全平台上线 共赴12年征途盛宴 2019-03-27
  • 劳动创造价值,看生产队求工分值之实践。事实说劳动创造价值,能否认的了吗? 2019-03-19
  • 人民网评:别再让“600瓶白酒”恶化政治生态 2019-03-19
  • 习近平致人民日报创刊70周年的贺信 2019-03-17
  • 当蔚来照进现实 场地初试蔚来ES8 2019-03-17
  • 网站广播 本站提供的源码经过测试,有前台及后台管理界面演示图,免费下载!
    ASP实现301域名重定向代码
    2014-12-03 12:44:55    【 】   浏览:
    分享一例asp实现301域名重定向的代码,使用301域名重定向可以把不带www的顶级域名转向到带www的域名。

    湖北福彩快三走势图 www.kqbz.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技术文章推荐阅读

  • 为救割腕女子 的哥连闯4个红灯 2019-04-10
  • 习近平参加贵州代表团审议 2019-04-06
  • 书写新时代万千气象 凝聚全民族磅礴力量 2019-04-04
  • 上半年逾2000亿债券发行取消或推迟 2019-03-31
  • 更正:将“只有存在……”改为“只要存在……”。 2019-03-31
  • 成都市武侯区:探索“三转双向两护”基层网络空间治理 2019-03-29
  • 安徽古井集团有限公司获第十二届人民企业社会责任奖年度企业奖 2019-03-28
  • 日本大阪地震已致4人死亡、370多人受伤 2019-03-28
  • 质疑的能力都没有,还有批判的余地吗》?看着就想笑 2019-03-28
  • 江西庆祝世界献血者日 2019-03-27
  • 《征途2手游》4月12日全平台上线 共赴12年征途盛宴 2019-03-27
  • 劳动创造价值,看生产队求工分值之实践。事实说劳动创造价值,能否认的了吗? 2019-03-19
  • 人民网评:别再让“600瓶白酒”恶化政治生态 2019-03-19
  • 习近平致人民日报创刊70周年的贺信 2019-03-17
  • 当蔚来照进现实 场地初试蔚来ES8 2019-03-17