经典ASP中的VBScript

我正在使用一个非常奇怪的VB版本…它不想让我告诉它什么是什么，它想自己弄明白

在C#中，我可以轻松地硬编码一个数组……在这个VB中没有这么多

我想在调用函数时创建一个硬编码数组…但我不确定语法。在这个特定的VB版本上找不到太多。它不允许您声明类型。这里有人知道怎么做吗？如果是，谢谢

        FUNCTION HasInput(filters())
            HasInput = False
            FOR EACH table IN filters
                FOR EACH key IN Request.Form
                    IF LEFT(key, LEN(table)) = table AND Request.Form(key) <> "" THEN
                        HasInput = TRUE
                    END IF
                NEXT
            NEXT

        END FUNCTION

IF HasInput({"ih", "hdms"}) THEN

函数HasInput（filters（））
HasInput=False
对于筛选器中的每个表
对于Request.Form中的每个键
如果LEFT（key，LEN（table））=表和Request.Form（key）”，则
HasInput=TRUE
如果结束
下一个
下一个
端函数
如果HasInput（{“ih”，“hdms”}），则

使用

数组（）

函数：

If HasInput(Array("ih", "hdms")) Then

要接收阵列，请执行以下操作：

Function HasInput(filters)

---

（尽管你仍然可以使用

filters（）

，如果它能让你更清楚地传递数组）

谢谢你，伙计！另外，我刚刚了解到，RETURN是一个no no。HasInput=True/False是我将其更改为的。感谢您的帮助。

RETURN TRUE

表示代码不是（意思是）VBScript。如果@Bond的答案有效，请改用

HasInput=True

（函数名赋值）。