Вызов диалогового окна

Пример вызова окна для осуществления модального диалога

Программные коды для начальной страницы, из которой вызывают окно модального диалога

<HTML>
<HEAD>
<TITLE>Вызов диалогового окна</Title>
</HEAD>
<SCRIPT Language="VBScript">
  Sub CC1 
     Dim y
     msgbox"Внимание ! Появится окно для ведения диалога"
y=window.showModalDialog("Dop_files/Mod-Dialog.htm") ' Так организован вызов диалогового окна
     z=Len(y)    ' Объект T1 в диалоговом окне, из которого берем данные, когда пустой,
   if z=4 then   ' то имеет четыре пробельных символов, поэтому его длина равна 4
     otv="Уважаемый пользователь! Вы не вводили данные о себе"
   else
     otv="Спасибо за указанные сведения - " & y
     CD.style.visibility=visible
   end if
     tt1.size=70
     tt1.style.visibility=visible  ' Делаем видимым текстовое окно tt1
     tt1.value=otv
  End Sub
   Sub B1
    Dim y
    y="PR1-Функция при загрузке.htm"
    Set y=window.open(y,""," top=170, left=120, width=400, height=150")
   End Sub
</SCRIPT>
<BODY>
  <P Align=Center>
Пример вызова окна для осуществления модального диалога<BR>
    <INPUT TYPE=text Name="tt1" Size=50 Style="visibility:hidden"><BR>
    <BUTTON Name=CD onClick="B1()"
     Style="font-size:18pt; color:Navy; background:#EEE8AA;visibility:hidden">
      <IMG SRC="../Images/Ris7.gif">
        Можно открыть новую Web-страницу
    </BUTTON><BR>
    <INPUT TYPE=button Value=" Открытие окна для регистрации"  OnClick="CC1()">
  </P>

<div align="center"><a href="http://www.ucoz.ru/" title="Создать сайт бесплатно"><img style="margin:0;padding:0;border:0;" alt="Hosted by uCoz" src="http://s201.ucoz.net/img/cp/8.gif" width="80" height="15" title="Hosted by uCoz" /></a><br /></div>
</body>
</html>

Посмотреть программные коды для окна с диалогом