これらのいずれも表示されないか、いずれかが表示されます。何も提示されていない場合、条件は決してヒットしません
Private _page As String = HttpUtility.UrlEncode(HttpContext.Current.Request.QueryString("Page"))
Private _pge As String = HttpUtility.UrlEncode(Page.RouteData.Values("page"))
Private Function getPage() As String
Dim ret As String = ""
If String.IsNullOrEmpty(_page) = True AndAlso String.IsNullOrEmpty(_pge) = True Then
ret = 1
ElseIf String.IsNullOrEmpty(_page) = False AndAlso String.IsNullOrEmpty(_pge) = True Then
ret = _page
ElseIf String.IsNullOrEmpty(_page) = True AndAlso String.IsNullOrEmpty(_pge) = False Then
ret = _pge
End If
Return ret
End Function