Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Dim bs() As String = Me.Request.UserHostAddress.Split(".")
        System.Array.Reverse(bs)
        Try
            Call System.Net.Dns.GetHostEntry(String.Join(".", bs) & ".jp.cc.wariate.jp")
        Catch ex As System.Exception
            Me.Response.StatusCode = 403
            Me.Response.End()
        End Try
    End Sub