asp-classic - VBScript 函数可以返回字典吗？

Question

我有一个表单数据字典，我想使用函数修改它。

function queryCleanForm(myDictForm)

    dim arrayKeys
    arrayKeys = myDictForm.keys

    for i=0 to myDictForm.count-1
        myDictForm(arrayKeys(i)) = replace(myDictForm(arrayKeys(i)), "'", "''")
        response.write myDictForm(arrayKeys(i))
    next

    queryCleanForm = myDictForm
end function

问题在于 queryCleanForm = myDictForm 行错误为

Wrong number of arguments or invalid property assignment 

有没有办法在 VBScript 中做到这一点？

Answer 1

试试这个:

SET queryCleanForm = myDictForm

对于对象，您需要使用 SET 告诉 VBScript 您要分配的对象引用不是值类型。