VBScript в классическом ASP


Я работаю с очень странной версией VB...it он не хочет, чтобы я говорил ему, что есть что, он хочет выяснить это сам.

В 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
1 3

1 ответ:

Используйте функцию Array():

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

И получить массив:

Function HasInput(filters)

(хотя вы все еще можете использовать filters(), Если это делает более ясным, что вы передаете массив)