优化网站，首页跳转，301定向代码

1. <%
   
2. Dim thishttpUrl
   
3. thishttpUrl=Request.ServerVariables("HTTP_HOST")'网址
   
4. if thishttpUrl="ermudi.cn"  then '注意把abc123.com换为您实际的网址。
   
5. 
   
6. Response.Status="301 Moved Permanently"
   
7. Response.AddHeader "Location", "http://www.ermudi.cn/"
   
8. 
   
9. end if
   
10. %>

复制代码

1. <%
   
2. currentdomain=request.ServerVariables("SERVER_NAME")
   
3. if currentdomain="ermudi.cn" Then
   
4. Response.Status="301 Moved Permanently"
   
5. Response.AddHeader "Location" , "http://www.ermudi.cn/"
   
6. End if
   
7. %>

复制代码