VBScript For Loop不執行if語句？

Question

不完全確定如何搜索這個問題，我已經與VBScript，所以請原諒，如果這是重複的。

我有一個功能，可以在需要2個參數的頁面上打印分頁，totalpgs和active。我的問題是，當變量pg是不是集時，active頁面僅適用鏈接上的樣式。我很確定這是一個邏輯問題，但我一直盯着這個已經7天了。

下面是函數：

'======= 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 

這裏是網頁上的代碼：

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

<%=print_pagination(totalpages,pg) %> 

這裏是理想的結果：

我想目前的<li>包含一個名爲的類。

這是發生了什麼：

的active類從未被應用到<li>標籤。當url包含pg的get變量時，不會分配任何活動的類。如果沒有，則應用到第一個鏈接。

Answer 1

改變你的線條，但在與此相比：

if cstr(x) = cstr(active) then