经典 VBScript ASP

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() 如果它清楚地表明你正在传递一个数组）

经典 VBScript ASP

VBScript in Classic ASP

vbscript

asp-classic