在 VBScript 中设置多维数组

Question

我正在将一个 php 程序转换为 VBScript for ASP。我一直在努力寻找一种构建多维数组的方法，并且可以使用一些帮助。

这是它在 php 版本中的设置方式：

// $_SESSION[model name][level name][menu name] => [state]
$_SESSION[$model] = array('level_name' => array('menu_name' => array()));

然后这是我稍后设置值的方式

$_SESSION[$model][$level_name][$menu_name] = array('menu_state' => 'UNCHECKED');

这是我在 VBScript 中尝试的但不起作用的方法

Session(model).Add "level_name", Array()
Session(model)("level_name").Add "menu_name", Array()
Session(model)("level_name")("menu_name").Add "menu_state", Array()

然后尝试设置值

Session(model)(level_name)(menu_name)("menu_state") = "UNCHECKED"

但我最终得到了非常有用的 500 服务器错误。

有什么想法吗？

Answer 1

你需要一本字典：

  Dim dicX : Set dicX = CreateObject("Scripting.Dictionary")
  Set dicX("A") = CreateObject("Scripting.Dictionary")
  Set dicX("A")("B") = CreateObject("Scripting.Dictionary")
  Set dicX("A")("B")("C") = CreateObject("Scripting.Dictionary")
  dicX("A")("B")("C")("D") = "WhatEver"
  WScript.Echo dicX("A")("B")("C")("D")