独立服务器



虚拟主机

1. <%
   

2. dim s,t:s=Replace(Replace(request.querystring,"404;",""),":80/","/"):t=s
   

3. s=replace(s,"老域名","新域名")
   

4. 'response.write s
   

5. if t<>s then
   

6. Response.Status="301 Moved Permanently"
   

7. Response.AddHeader "Location",s
   

8. else
   

9. Response.Status="404 Not found"
   

10. end if
    

11. %>

复制代码

放在站点根目录

注意：
s=replace(s,"老域名","新域名")
老域名、新域名都不要包含http: