在ASP Classic中爲導航菜單設置CSS類爲「當前」

Question

我有一個包含文件的包含文件，該文件包含該網站的主導航菜單。我希望能夠爲當前頁面設置一個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語句會在這種情況下使用的東西，我只是不知道如何去構建它？提前致謝！

Answer 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> 

Answer 2

你能做到這一點jQuery的

jQuery add class based on page URL

$(function() { 
    var loc = window.location.href; 
    if(/index.asp/.test(loc)) { 
    $(body).addClass('index'); 
    } 
});