Свойство объекта VBScript / вызов метода? - PullRequest
Новая
       6

Свойство объекта VBScript / вызов метода?

0 голосов
/ 24 января 2019

Я отлаживаю старый классический asp-сайт, используя VBScript. В файле global.asa я обнаружил, что есть некоторый код, и я не мог понять, откуда берется метод / свойство. Интересно, кто-нибудь может указать мне направление, пожалуйста? 

Dim ArrayIndex, AllCityIDs, AllCityNames, EmployeeIDs, EmployeeNames, oEmp

    Set oCity = Server.CreateObject("EmployeeDB.City")
    Set colCities = oCity.List

    Set oEmp = Server.CreateObject("EmployeeDB.Employee")

    Redim CityEmployeeArray (colCities.Count - 1)

    ArrayIndex = 0
    ' for each City, let's build the Employee list for that city.
    for each oItem In colCities
        AllCityIDs = AllCityIDs & oItem.Index & " || "
        AllCityNames = AllCityNames & oItem.Value & " || "

        'response.Write("oItem.Index:")
        'response.Write(oItem.Index)

        Set colCityEmployees = oEmp.EmployeesByCity (oItem.Index)

        'response.Write("colCityEmployees:")
        'response.Write(colCityEmployees.Count)

        EmployeeIDs = vbNullString
        EmployeeNames = vbNullString

        for each oCityEmp in colCityEmployees
            EmployeeIDs = EmployeeIDs & oCityEmp.Index & " || "
            EmployeeNames = EmployeeNames & oCityEmp.Value & " || "
        next

        EmployeeIDs = RemoveEndDelimiter (EmployeeIDs, " || ")
        EmployeeNames = RemoveEndDelimiter (EmployeeNames, " || ")

        CityEmployeeArray(ArrayIndex) = Array(oItem.Index, Array(EmployeeIDs, EmployeeNames))

        ArrayIndex = ArrayIndex + 1
    next

    Set oCity = Nothing

End Sub

Мне интересно, для этой строки 

Set colCityEmployees = oEmp.EmployeesByCity (oItem.Index)

Откуда берется свойство / метод EmployeesByCity? И как он получает значение для colCityEmployees из параметра oItem.Index?

У меня также появляется ошибка для строки при запуске страницы на локальном IIS 

for each oCityEmp in colCityEmployees

Ошибка выполнения Microsoft VBScript '800a01c3'

Объект не коллекция

/ LM / W3SVC / 5 / ROOT / PHONELISTADMIN / global.asa, строка 80

Буду очень признателен за любые предложения.

Спасибо.

...