コメント
コメントの投稿
※名前とタイトルが入力されていないコメントでは他のコメントとの区別ができません。
入力されていないコメントには返信しませんのであらかじめご了承くださいませ。
<configuration>
<system.webServer>
<!--デフォルトぺージを設定する-->
<defaultDocument>
<files>
<clear />
<add value="index.aspx" />
</files>
</defaultDocument>
<!--スラッシュで終わるURLにリダイレクトする-->
<rewrite>
<rules>
<rule name="RedirectRootRule" stopProcessing="false">
<match url="^index\.aspx$"/>
<action type="Redirect" url="./" redirectType="Permanent"/>
</rule>
<rule name="RedirectSubFolderRule" stopProcessing="false">
<match url="^(.*\/)*index\.aspx$"/>
<action type="Redirect" url="{R:1}" redirectType="Permanent"/>
</rule>
<!--
<rule name="RedirectFolder1Rule" stopProcessing="false">
<match url="^folder1/index\.aspx$"/>
<action type="Redirect" url="./folder1/" redirectType="Permanent"/>
</rule>
<rule name="RedirectFolder2Rule" stopProcessing="false">
<match url="^folder1/folder2/index\.aspx$"/>
<action type="Redirect" url="./folder1/folder2/" redirectType="Permanent"/>
</rule>
<rule name="RedirectFolder3Rule" stopProcessing="false">
<match url="^folder1/folder2/folder3/index\.aspx$"/>
<action type="Redirect" url="./folder1/folder2/folder3/" redirectType="Permanent"/>
</rule>
<rule name="RedirectMypageRule" stopProcessing="false">
<match url="^mypage/index\.aspx$"/>
<action type="Redirect" url="./mypage/" redirectType="Permanent"/>
</rule>
<rule name="RedirectProductRule" stopProcessing="false">
<match url="^product/index\.aspx$"/>
<action type="Redirect" url="./product/" redirectType="Permanent"/>
</rule>
-->
</rules>
</rewrite>
</system.webServer>
</configuration>
Private Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
If Not IsPostBack Then
'headタグをrunat="server"に設定します。
Dim link As New HtmlLink()
link.Href = GetCanonicalUrl(Me.Page.Request.Url.ToString())
link.Attributes.Add("rel", "canonical")
Page.Header.Controls.Add(link)
End If
End Sub
''' <summary>
''' URLから正規化したURLを返す
''' </summary>
''' <param name="url">クライアントがアクセスしたURL</param>
''' <returns>正規化したURL</returns>
Public Shared Function GetCanonicalUrl(ByVal url As String) As String
If String.IsNullOrEmpty(url) Then
Return String.Empty
End If
Dim ret As String = url.ToLower()
ret = ret.Replace("/index.aspx", "/") 'index.aspxをスラッシュ終わりに正規化します。
ret = ret.Replace("http://", "https://") 'Googleにより最近は常時SSL化が必須です。
ret = ret.Replace("www.", "") 'wwwを取るか付けるかは要件次第ですね。
'If Not ret.Contains("//www.") Then
' ret = ret.Replace("https://", "https://www.")
'End If
Return ret
End Function
※名前とタイトルが入力されていないコメントでは他のコメントとの区別ができません。
入力されていないコメントには返信しませんのであらかじめご了承くださいませ。