none
Перестал работать скрипт VBscript в IE10, в остальных работает (IE6-9) RRS feed

  • Вопрос

  • Перестал работать (частично) вот такой скрипт VBscript в Internet Explorer 10, в остальных работает полностью (IE6-9). Кто подскажет в чем дело?

    Выполняется только блок проверки "Фамилия"

    <script Language="VBScript" Type="text/vbscript"><!--
    function Form1_onsubmit()
      Set theForm = document.Form1

      If (theForm.Familiya.value = "") Then
        MsgBox "Введите значение в поле ""Фамилия"".", 0, "Ошибка проверки"
        theForm.Familiya.focus()
        Form1_onsubmit = False
        Exit Function
      End If

      If (Len(theForm.Familiya.value) < 2) Then
        MsgBox "Введите не менее 2 знаков в поле ""Фамилия"".", 0, "Ошибка проверки"
        theForm.Familiya.focus()
        Form1_onsubmit = False
        Exit Function
      End If

      If (Len(theForm.Familiya.value) > 15) Then
        MsgBox "Введите не более 15 знаков в поле ""Фамилия"".", 0, "Ошибка проверки"
        theForm.Familiya.focus()
        Form1_onsubmit = False
        Exit Function
      End If

      checkOK = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyzЂЃѓЉЊЌЋЏђљњќћџЎўЈҐЁЄЇІіґёєјЅѕїАБВГДЕЖЗИЙКЛМНОПРСТУФХЦЧШЩЪЫЬЭЮЯабвгдежзийклмнопрстуфхцчшщъыьэюя"
      checkStr = theForm.Familiya.value
      allValid = True
      validGroups = True
      For i = 1 to len(checkStr)
        ch = Mid(checkStr, i, 1)
        If (InStr(checkOK, ch) = 0) Then
            allValid = False
            Exit For
        End If
      Next
      If (Not allValid) Then
        MsgBox "В поле ""Фамилия"" можно вводить только буквы.", 0, "Ошибка проверки"
        theForm.Familiya.focus()
        Form1_onsubmit = False
        Exit Function
      End If

      If (theForm.Name.value = "") Then
        MsgBox "Введите значение в поле ""Имя"".", 0, "Ошибка проверки"
        theForm.Name.focus()
        Form1_onsubmit = False
        Exit Function
      End If

      If (Len(theForm.Name.value) < 2) Then
        MsgBox "Введите не менее 2 знаков в поле ""Имя"".", 0, "Ошибка проверки"
        theForm.Name.focus()
        Form1_onsubmit = False
        Exit Function
      End If

      If (Len(theForm.Name.value) > 15) Then
        MsgBox "Введите не более 15 знаков в поле ""Имя"".", 0, "Ошибка проверки"
        theForm.Name.focus()
        Form1_onsubmit = False
        Exit Function
      End If

      checkOK = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyzЂЃѓЉЊЌЋЏђљњќћџЎўЈҐЁЄЇІіґёєјЅѕїАБВГДЕЖЗИЙКЛМНОПРСТУФХЦЧШЩЪЫЬЭЮЯабвгдежзийклмнопрстуфхцчшщъыьэюя"
      checkStr = theForm.Name.value
      allValid = True
      validGroups = True
      For i = 1 to len(checkStr)
        ch = Mid(checkStr, i, 1)
        If (InStr(checkOK, ch) = 0) Then
            allValid = False
            Exit For
        End If
      Next
      If (Not allValid) Then
        MsgBox "В поле ""Имя"" можно вводить только буквы.", 0, "Ошибка проверки"
        theForm.Name.focus()
        Form1_onsubmit = False
        Exit Function
      End If

      If (theForm.Address.value = "") Then
        MsgBox "Введите значение в поле ""Почтовый адрес"".", 0, "Ошибка проверки"
        theForm.Address.focus()
        Form1_onsubmit = False
        Exit Function
      End If

      If (Len(theForm.Address.value) < 10) Then
        MsgBox "Введите не менее 10 знаков в поле ""Почтовый адрес"".", 0, "Ошибка проверки"
        theForm.Address.focus()
        Form1_onsubmit = False
        Exit Function
      End If

      If (Len(theForm.Address.value) > 50) Then
        MsgBox "Введите не более 50 знаков в поле ""Почтовый адрес"".", 0, "Ошибка проверки"
        theForm.Address.focus()
        Form1_onsubmit = False
        Exit Function
      End If
      Form1_onsubmit = True
    End Function
    --></script>


    • Изменено Vitaliy Myt 12 июля 2013 г. 7:17
    12 июля 2013 г. 7:15

Ответы

  • Здравствуйте.

    Я попробовал поставить браузер в режим совместимости на этой страничке и скрипт стал работать. Тогда я ввел в заголовок страницы код

    meta content="IE=5" http-equiv="X-UA-Compatible" и это исправило работу скрипта в IE10.

    12 июля 2013 г. 13:02

Все ответы

  • Здравствуйте,

    А никакую ошибку под IE10 не выдает? Логи смотрели?


    Если вам помог чей-либо ответ, пожалуйста, не забывайте жать на кнопку "Предложить как ответ" или "Проголосовать за полезное сообщение"

    12 июля 2013 г. 11:46
    Модератор
  • Здравствуйте.

    Я попробовал поставить браузер в режим совместимости на этой страничке и скрипт стал работать. Тогда я ввел в заголовок страницы код

    meta content="IE=5" http-equiv="X-UA-Compatible" и это исправило работу скрипта в IE10.

    12 июля 2013 г. 13:02
  • Спасибо Виталий, что поделились решением.


    Если вам помог чей-либо ответ, пожалуйста, не забывайте жать на кнопку "Предложить как ответ" или "Проголосовать за полезное сообщение"

    12 июля 2013 г. 13:12
    Модератор