VBScript и обновление IFrame с помощью файла проверки

0

Я пытаюсь обновить свой iframe каждые 30 секунд и сделать это swtich на странице с ошибкой, если страница недоступна. Я получаю сообщение "Не могу использовать круглые скобки при вызове Sub", и vbscript никогда не работает. Я рассмотрел несколько примеров того, как другие пытаются делать подобные вещи, и я не могу сказать, что я делаю неправильно.

<!DOCTYPE html>
    <html>
      <head>
        <title>Census Status</title>
      </head>  
      <body>
        <iframe class="main" id="main" src="G:\CensusAlert\Default.html" width="96%" height="95%"></iframe>    
        <script type="text/vbscript">
        Function refreshGadget
        Set objFSO = CreateObject("Scripting.FileSystemObject")
            Set iFrame = document.getElementById("main")
            If objFSO.FileExists("G:\CensusAlert\Default.html") then
                iFrame.src = "G:\CensusAlert\Default.html"
            Else
                iFrame.src = "C:\Program Files\SAMCAlert\Error.html"
            End If
        End Function
        window.setInterval(refreshGadget, 30000, VBScript)
        </script>
      </body>
    </html>
  • 1
    Взгляните на самую классную статью Эрика Липперта по этому вопросу, прежде чем убрать скобки вокруг списка аргументов window.setInterval .
  • 0
    Эта статья была именно то, что мне нужно, спасибо.
Теги:
vbscript

1 ответ

0
<!DOCTYPE html>
    <html>
      <head>
        <title>Census Status</title>
      </head>  
      <body>
        <iframe class="main" id="main" src="G:\CensusAlert\Default.html" width="96%" height="95%"></iframe>    
        <script type="text/vbscript">
        Function refreshGadget
        Set objFSO = CreateObject("Scripting.FileSystemObject")
            Set iFrame = document.getElementById("main")
            If objFSO.FileExists("G:\CensusAlert\Default.html") then
                iFrame.src = "G:\CensusAlert\Default.html"
            Else
                iFrame.src = "C:\Program Files\SAMCAlert\Error.html"
            End If
        End Function
        window.setInterval("refreshGadget", 30000, "VBScript")
        </script>
      </body>
    </html>

Исправлено это благодаря Ansgar Wiechers

  • 0
    Это действительно исправлено? Потому что мне кажется, это должно работать, только если вы используете window.setInterval "refreshGadget", 30000, "VBScript"
  • 0
    Да, я сначала попробовал, и это не удалось, но после добавления кавычек он принял команду. В статье, которую вы мне дали, это не описывалось, но это помогло мне разобраться в этом.
Показать ещё 1 комментарий

Ещё вопросы

Сообщество Overcoder
Наверх
Меню