0

これらのいずれも表示されないか、いずれかが表示されます。何も提示されていない場合、条件は決してヒットしません

    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
4

2 に答える 2

0

に気を取られているのかもしれません。あなたは常に_page を返します

これを試して ..

Private Function getPage() As String
        If String.IsNullOrEmpty(_page) = True AndAlso String.IsNullOrEmpty(_pge) = True Then
            _page = 1
            Return _page
        ElseIf String.IsNullOrEmpty(_page) = False AndAlso String.IsNullOrEmpty(_pge) = True Then
            Return _page
        ElseIf String.IsNullOrEmpty(_page) = True AndAlso String.IsNullOrEmpty(_pge) = False Then
            Return _pge
        Else
            Return _page
        End If

    End Function
于 2013-05-21T07:54:55.017 に答える