0

サイトのプライマリ ナビゲーション メニューを含むインクルード ファイルがあります。現在のページに CSS クラスを設定できるようにしたいと考えています。これは私がこれまでにまとめることができたものです：

    public function GetFileName()
        Dim files, url, segments, current

        'get then current url from the server variables
        url = Request.ServerVariables("path_info")

        segments = split(url,"/")

        'read the last segment
        url = segments(ubound(segments))
        GetFileName = url
    end function

        if  GetFileName = "index.asp" then
            current = "current"
        else
            current = ""
        end if

Select Case ステートメントがこのシナリオで使用するものになると考えていますが、それを構築する方法がわかりません。前もって感謝します！

4

2 に答える 2

1

Iifの定義をコードに追加する必要があります (ここから: http://support.microsoft.com/kb/219271 )

Function IIf(i,j,k)
    If i Then IIf = j Else IIf = k
End Function

このようなものをお持ちだと思います。

<li><a href="somepage.asp">Click me to go somewhere</a></li>

あなたはこれを行うことができます：

<li><a href="somepage.asp" class="<%= Iif(current = "index.asp", "current", "") %>">Click me to go somewhere</a></li>
于 2013-06-25T20:42:33.667 に答える