-3

私はカット アンド ペーストの非プログラマーです。ASP や HTML のスペルもわかりません。そこで、Microsoft の友人に次のコードを書いてもらいましたが、今のところ問題なく動作しています。しかし、Microsoft の友人が利用できなくなったため、このコードを変更して、古いページ名を入力し、それを新しいページ名 (および必要に応じてディレクトリ) にリダイレクトできるようにする必要があります。コードで古いページ名を指定できるようにして、コードで指定した新しいページ名への 301 リダイレクトをコードから取得できるようにしたいと考えています。

だれかが私のために変更を書き込んで、それを切り取ってインクルード ファイルに貼り付けることを許可してもらえますか? 既存のインクルード ファイルのコードは次のとおりです...

<%
Dim serverName 
serverName = Request.ServerVariables("SERVER_NAME")

Dim redirectUrl
redirectUrl = "/domains4sale.asp"

Dim canRedirect 
canRedirect = "False"

Dim hostNameArray(14) 'Array of host name

hostNameArray(0) = "bananapages.net"
hostNameArray(1) = "www.bananapages.net"
hostNameArray(2) = "6379100.com"
hostNameArray(3) = "www.6379100.com"
hostNameArray(4) = "caribbeanexhibits.com"
hostNameArray(5) = "www.caribbeanexhibits.com"
hostNameArray(6) = "caribbeanspecialevents.com"
hostNameArray(7) = "www.caribbeanspecialevents.com"
hostNameArray(8) = "caribeexpo.com"
hostNameArray(9) = "www.caribeexpo.com"
hostNameArray(10) = "daleallenenterprises.com"
hostNameArray(11) = "www.daleallenenterprises.com"
hostNameArray(12) = "rrcpapsc.com"
hostNameArray(13) = "www.rrcpapsc.com"
hostNameArray(14) = "daleallen.com"


If serverName = "www.daleallen.com" Then
     redirectUrl = Request.ServerVariables("HTTP_X_REWRITE_URL")
     If Cint(InStr(redirectUrl, "/2010-website/")) >= 1 Then
        canRedirect = "True"
        redirectUrl = Replace(redirectUrl, "/2010-website/", "/")
    End If 
Else
    For Each item In hostNameArray
     If serverName = item  Then
        serverName = "www.daleallen.com"
        canRedirect = "True"
        If(item = "daleallen.com") Then
            redirectUrl = Request.ServerVariables("HTTP_X_REWRITE_URL") 
            redirectUrl = Replace(redirectUrl, "/2010-website/", "/")
        End If      
        Exit For
     End If
    Next

End If

If canRedirect = "True" Then
    Response.Status="301 Moved Permanently"
    If Request.QueryString <> "" Then
      Response.AddHeader "Location", "http://" & serverName & redirectUrl & "?"     &           Request.QueryString  
    Else
        Response.AddHeader "Location", "http://" & serverName & redirectUrl 
    End If 
End If 
%>
4

1 に答える 1

0

元のコードの次の行から始めます

If Cint(InStr(redirectUrl, "/2010-website/")) >= 1 Then
    canRedirect = "True"
    redirectUrl = Replace(redirectUrl, "/2010-website/", "/")
End If

その直後に同様のものを追加する必要があります-たとえば

If Cint(InStr(redirectUrl, "yourolddirectory/youroldfilename.html")) >= 1 Then
    canRedirect = "True"
    redirectUrl = Replace(redirectUrl, "yourolddirectory/youroldfilename.html", "yournewdirectory/yournewfilename.html")
End If
于 2013-09-17T11:45:20.540 に答える