ASP达成301域名重定向代码

分享一例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 %>

（编辑：银川站长网）

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