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它是一个对象引用,而不是赋值类型.