Ошибка в коде ASP

Question

Ниже кода ASP есть ошибка в 'Dim MonthNum = Month ("Ctxtdatefrom")' Может помочь решить это.

If session("cmbLeaveType")=2 then

    set rs2 = objconn.execute("select * form Particulars where empid='" & session("empid") & "'") 

    if Nationality = ABC then

        Dim MonthNum=Month("Ctxtdatefrom")
        Dim MonthNum2=Month("ctxtdateto")

        If(MonthNum=5 and monthnum2=5)
            if tdays>1 then

            else
                set rs = objconn.execute("insert into leavebank (empid, datesubmit, datefrom, dateto....
            END IF 
        END IF 
    END IF 
END IF 

Если национальность "Страна A", то количество разрешений на отпуск, разрешенное на 5-й месяц, составляет 1.

Если (MonthNum = 5 и monthnum2 = 5)

если tdays> 1, то

-> Не могли бы вы исправить

Answer 1

Я предполагаю, что вы видите ошибку вроде:

Microsoft VBScript compilation error '800a0401' 

Expected end of statement 

/test.asp, line 11 

Dim MonthNum = Month("Ctxtdatefrom") 
-------------^

Эта ошибка выдается, потому что вы не можете затемнить и назначить в одной строке в VBScript.

Если переписать это на:

Dim MonthNum
MonthNum = Month("Ctxtdatefrom") 

Вы будете ближе к своей цели - хотя тогда вы почти наверняка столкнетесь с другой ошибкой - ваш вызов функции month не будет выполнять то, что вы думаете.

Оборачивая переменную Ctxtdatefrom в двойные кавычки, вы фактически передаете литеральную строку, содержащую значение Ctxtdatefrom, в функцию месяца VBScript.

То, что вы хотите сделать, это:

Dim MonthNum
MonthNum = Month(Ctxtdatefrom) 

Это должно работать, пока эта переменная содержит допустимый формат даты VBScript.

Здесь вы можете прочитать текст .

Выше сказанное - основываясь на вашем коде, вы почти наверняка увидите больше ошибок, я бы порекомендовал вам найти кого-то, кто может наставить вас в ASP classic и VBScript, прочитать некоторые онлайн-уроки или сделать что-то одно за шагом. время и опубликуйте подробные и конкретные вопросы здесь.