如何为域或主页差异创建301重定向

Posted 2021-02-27

Learn how to create a 301 redirect for domain or home variations to improve your websites' search engine optimization.

'301 Redirect - URL Must Contain www.domain.com
CorrectDomain = "www.domain.com"
DefaultPage = "/index.asp"
QueryStrings = request.ServerVariables("QUERY_STRING")
URL = request.ServerVariables("URL")
 
if instr(request.ServerVariables("SERVER_NAME"),CorrectDomain) = 0  then
 
    if QueryStrings <> "" then
        QueryStrings = "?" &amp; QueryStrings
    end if
 
    if instr(URL,DefaultPage) then
        URL = replace(URL,DefaultPage,"/")
    end if
 
    response.Status = "301 Moved Permanently"
    response.AddHeader "Location","http://" &amp; CorrectDomain &amp; URL &amp; QueryStrings
    response.End
 
end if