VBScript匿名關聯數組？ （如在Javascript）

Question

那些你精通JavaScript和PHP知道如何使用對象構造函數引用基本上就是相當於一個匿名關聯數組是這樣的：

myFunction({ 
    "param1" : "value1", 
    "param2" : "value2" 
}); 

的好處是不必命名每個您的目標功能的參數並且能夠設置默認值。有誰知道如何在VBScript中類似地構建語句？我正在研究Dictionary類，但我不認爲我會牢牢掌握如何在這裏使用它，直到我看到一個例子。

謝謝，

Answer 1

字典對象正是你在找什麼。我已經成功地將它用於網站的多語言蒙皮。這並不難。

看到：http://www.devguru.com/technologies/vbscript/13992.asp

Answer 2

你是正確的，它不是很難使用。這只是一個用普通數組獲得創意的問題。下面是我所做的：

<% 
    Function Img(aParamArray) 
     Dim oImageTag,aImageTagKeys, val, param, key, output 
     Set oImageTag = CreateObject("Scripting.Dictionary") 

     For Each param In aParamArray 
      val = Split(param, "::") 
      If Ubound(val) = 1 Then 
       oImageTag(val(0)) = val(1) 
      End If 
     Next 

     aImageTagKeys = oImageTag.Keys 
     Img = "<img " 
     For Each key in aImageTagKeys 
      If oImageTag(key) <> "" Then 
       Img = Img & key & "=""" & oImageTag(key) & """ " 
      End If 
     Next 

     If iDocType = 0 Or iDocType = 1 Or iDocType = 6 Then 
      Img = Img & ">" 
     Else 
      Img = Img & "/>" 
     End If 
    End Function 
%> 

--OR我可以設置支持attributes--

<% 
Function Img(aParamArray) 
    Dim oImageTag,aImageTagKeys, val, param, key, output 
    Set oImageTag = CreateObject("Scripting.Dictionary") 
    oImageTag("src") = "" 
    oImageTag("alt") = "" 
    oImageTag("class") = "" 
    oImageTag("id") = "" 
    oImageTag("width") = "" 
    oImageTag("height") = "" 
    oImageTag("usemap") = "" 
    oImageTag("title") = "" 
    oImageTag("style") = "" 
    oImageTag("dir") = "" 
    oImageTag("lang") = "" 
    oImageTag("ismap") = "" 
    oImageTag("onabort") = "" 
    oImageTag("onclick") = "" 
    oImageTag("ondblclick") = "" 
    oImageTag("onmousedown") = "" 
    oImageTag("onmouseout") = "" 
    oImageTag("onmouseover") = "" 
    oImageTag("onmouseup") = "" 
    oImageTag("onkeydown") = "" 
    oImageTag("onkeypress") = "" 
    oImageTag("onkeyup") = "" 

    For Each param In aParamArray 
     val = Split(param, "::") 
     If Ubound(val) = 1 Then 
      If oImageTag.Exists(val(0)) Then 
       oImageTag(val(0)) = val(1) 
      End If 
     End If 
    Next 

    aImageTagKeys = oImageTag.Keys 
    Img = "<img " 
    For Each key in aImageTagKeys 
     If oImageTag(key) <> "" Then 
      Img = Img & key & "=""" & oImageTag(key) & """ " 
     End If 
    Next 

    If iDocType = 0 Or iDocType = 1 Or iDocType = 6 Then 
     Img = Img & ">" 
    Else 
     Img = Img & "/>" 
    End If 
End Function 
%> 

默認值，僅輸出，並調用它是這樣的：

<% =Img(Array(_ 
       "src::http://www.domain.com/img.jpg",_ 
       "alt::Some alt text",_ 
       "width::30",_ 
       "height::30",_ 
       "class::noborder"_ 
)) %> 

現在，我可以輕鬆地控制圖像標籤的輸出，無論doctype如何，並且從SQL服務器輸出圖像將更加容易，因爲我可以將僞關聯數組從正常索引的數組中取出。

要想清楚這一點不是爲了製作圖像標籤，而是實際上是基於來自SQL服務器的多個因素和數據構建數據和表單的整個視圖，但我需要簡化它以找出它。現在它工作完美。

感謝您的建議！