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

 

代码如下:
<%
'--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","http://www."&Server_Name
Else  
   Response.AddHeader "Location","http://www."&Server_Name&Path_infostr&Query_Stringstr  
End if 
  Response.End 
End if %>


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

广告推荐

ASP技术文章推荐阅读

190aa.com 踢球者比分
大上海时时彩平台 500wan重庆时时彩 吉林十一选五最新兑奖号码 曾道人潮汕赌经图纸 黑龙江时时彩财神彩票 体彩浙江6+1开奖号码 重庆百变王牌开奖走势图 买彩票中大奖全是假的 搜狐彩票推荐 qq游戏欢乐升级3.00 黑龙江福彩p62官方网站 甘肃快三今天开奖 奖号488含不含484组三 麦迪cba 福建快3第三位振幅走势图