Часто веб-мастеру бывает нужно привлечь посетителей к какой-то новой услуге, недавно открывшемуся разделу, обновлению и пр. Один из вариантов — размещение информации новостного характера на стартовой странице сайта. Однако, что делать, если ничего лишнего в заглавном документе нет, а перемещать новую информацию в самый низ страницы не имеет смысла (т.к. далеко не каждый посетитель прокручивает окно до конца)? Можно прибегнуть к такому средству: параллельно с загрузкой стартовой страницы появляется диалоговое окно браузера, предлагающее ознакомиться, например, с новой услугой. При нажатии кнопки «Да» пользователь автоматически переходит в соответствующий раздел, при выборе кнопки «Нет» — остается на стартовой странице.
На этот раз попробуем реализовать этот прием с помощью языка VBScript:
<script language=»VBScript»>
Sub window_onLoad()
messagebox3
end sub
Sub messagebox3()
dim intButton
intButton = msgbox («Только до 25 марта! Вам это интересно?», 4 + 64, «Специальное предложение!!!»)
If intButton = 6 then
location.href=»http://goldhost.ru»
end if
end sub
</script>
