VBScript For 문이 if 문을 실행하지 않습니까?

Question

VBScript를 사용하여이 문제점을 검색하는 방법을 정확히 모르겠으므로 중복되는 경우 용서해주십시오.

2 개의 매개 변수 totalpgs 및 active을 사용하는 페이지에 페이지 매김을 인쇄하는 기능이 있습니다. 내 문제는 변수 pg이 이 아니고 일 때 active 페이지가 링크에 스타일을 적용한다는 것입니다. 나는 이것이 논리 문제라고 확신한다. 그러나 나는 이것을 7 일 동안 꼼짝 않고 바라보고 있었다.

나는 현재를 원하는 : 다음

pg = request.querystring("pg") 
if pg = "" then 
    pg = 1 
end if 

<%=print_pagination(totalpages,pg) %> 

원하는 결과입니다 : 페이지의 코드가

다음

'======= Print Pagination links 
function print_pagination (totalpgs,active) 
    p = "<div class=""row"">" 
    p = p & "<div class=""pagination pagination-right"">" 
    p = p & "<ul>" 
    for x = 1 to totalpgs 
     if x = active then 
      li = "<li class=""active"">" '<- Set class for current page 
     else 
      li = "<li>" '<- else regular link 
     end if 
     p = p & li & "<a href='?pg="& x &"'>"& x &"</a></li>" 
    next 
    p = p & "</ul></div></div>" 
    print_pagination = p 
end function 

입니다 : 여기

는 기능입니다클래스를 포함하는 .

이 일어나고있는 것입니다 :

active 클래스는 <li> 태그에 적용되지 없구요. URL에 pg이라는 get 변수가 포함되어 있으면 활성 클래스가 지정되지 않습니다. 그렇지 않으면 첫 번째 링크에 적용됩니다.

Answer 1

이에 대한 비교를 수행하여 라인 변경

: 그 것이었다

if cstr(x) = cstr(active) then