您所在的位置:小祥子 » 编程 » ASP » 正文

ASP实现301域名重定向代码

时间:2015-01-09 编辑:佚名 来源:互联网

ASP重定向的代码为

Response.Status="301 Moved Permanently"

Response.AddHeader "Location","网址"

大家都知道重定向可以转移权重,除了可以在IIS上设置外,还可以在程序里设置,很多网站都可以利用带www和不带www的域名访问,但如何将不带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 %>

关键词:301 域名 重定向