经典 ASP 中的 VBScript

Question

我正在使用一个非常奇怪的 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

Answer 1

使用Array()函数:

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

并接收数组:

Function HasInput(filters)

(尽管您仍然可以使用 filters() 如果它可以更清楚地表明您正在传递数组)