VBScript in Classic ASP

Question

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

在c#中，我可以很容易地硬编码一个数组…

我想创建一个硬编码数组，而调用函数…但我不确定语法。在这个特定的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()，如果它使它更清楚，你正在传递一个数组)