在ASP程序中，如果需要將菜單數據轉換成JSON格式，可以使用以下代碼：

Dim arrMenu
arrMenu = Array(Array("首頁", "/index.html"), Array("分類", "/category.html"), Array("關于我們", "/about.html"))
Dim objMenu
Set objMenu = CreateObject("Scripting.Dictionary")
Dim i
For i = LBound(arrMenu) To UBound(arrMenu)
objMenu.Add arrMenu(i)(0), arrMenu(i)(1)
Next
Response.ContentType = "application/json"
Response.Write objMenu.Items()(0) & ":'" & objMenu.Items()(1) & "'," & objMenu.Items()(2) & ":'" & objMenu.Items()(3) & "'," & objMenu.Items()(4) & ":'" & objMenu.Items()(5)

這段代碼的核心部分是將菜單數據存儲在Scripting.Dictionary對象中，并遍歷這個字典，將菜單項的名稱作為鍵，鏈接地址作為值進行存儲。最后使用Response.Write方法輸出JSON格式的數據。

這種方式可以輕松地將任何數據結構轉換為JSON格式，并在客戶端進行處理和解析。