用ASP代码方式实现ASP内页301跳转

<%
        dim aurl
        if request.ServerVariables("HTTP_HOST")="net0510.com"  then  
                if Request.ServerVariables("QUERY_STRING") ="" then
                         if  Request.ServerVariables("url")="" then  
                                  aurl="http://www.net0510.com"
                         else aurl="http://www.net0510.com"& Request.ServerVariables("url")
                         end if
                else aurl="http://www.net0510.com"& Request.ServerVariables("url")& "?" & Request.ServerVariables("QUERY_STRING")
                end if
        Response.Status = "301 Moved Permanently" 
        Response.AddHeader "Location",aurl
        Response.End 
        end if 
%>