网站广播 本站提供的源码经过测试,配有前台及后台管理界面演示图,希望对大家有帮助!
ASP实现301域名重定向代码
2014-12-03 12:44:55    【 】   浏览:
分享一例asp实现301域名重定向的代码,使用301域名重定向可以把不带www的顶级域名转向到带www的域名。

青海快三走势图带连线 www.w4nzf.cn  

代码如下:
<%
'--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-02-17
  • 人民日报人民时评:让安全生产理念成为基本共识 2019-02-17
  • SNH48年度总决选速报结果公布 李艺彤登顶 2019-02-02
  • 好管家 香菇五花肉烧黄鱼 2019-02-02
  • 海南省人民政府关于加快发展互联网产业的若干意见政策解读 2018-07-14
  • 晋城市举办干部素质提升工程第十八期专题讲座 2018-07-13
  • 养生谣言肆虐 微信圈不可全信 2018-07-13
  • 全市产业扶贫现场工作推进会暨培训会召开 2018-07-12
  • 蕅益大师:学道要想成就 必须要学这两件事 2018-07-12
  • 深圳罗湖人才市场门口垮塌已致1死多伤 有人被困[组图] 2018-07-11
  • 贵州仁怀:端午时节制曲忙 2018-07-11
  • 庆祝中国人民解放军建军90周年大会 2018-07-10
  • 嘿嘿,高手过招一出手就知有没有。武艺来不的半点花拳绣腿的! 2018-07-10
  • 私塾女孩在家上学十四年 父亲坦言这是小众教育模式  2018-07-09
  • 张家口市把巡察监督触角延伸到基层 开展交叉巡察发现问题1246个 2018-07-08
  • 891| 180| 982| 598| 734| 780| 149| 81| 362| 504|