加入收藏 | 设为首页 | 会员中心 | 我要投稿 济南站长网 (https://www.0531zz.com/)- 科技、建站、经验、云计算、5G、大数据,站长网!
当前位置: 首页 > 站长学院 > Asp教程 > 正文

ASP完成301域名重定向代码

发布时间:2022-04-12 04:36:42 所属栏目:Asp教程 来源:互联网
导读:分享一例asp实现301域名重定向的代码,使用301域名重定向可以把不带www的顶级域名转向到带www的域名。 代码如下: % --301域名重定向 Dim Server_Name,Path_infostr,Query_Stringstr Path_infostr=lcase(request.ServerVariables(PATH_INFO)) Server_Name=lc
分享一例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 %>

(编辑:济南站长网)

【声明】本站内容均来自网络,其相关言论仅代表作者个人观点,不代表本站立场。若无意侵犯到您的权利,请及时与联系站长删除相关内容!

    热点阅读