Добро пожаловать, Гость
Логин: Пароль: Запомнить меня
  • Страница:
  • 1

Окно подтверждения

Окно подтверждения 22/04/2017 10:08 #1

  • rembat
  • ( Пользователь )
  • Вне сайта
  • Новый участник
  • Постов: 1
  • Баллов: 3
  • Репутация: 0
Помогите чайнику, люди !! Уровень знаний - ноль, помочь некому.
Вот программка для совершения необратимого действия,нужно чтобы при нажатии кнопки появлялось окно подтверждения или отмены.Посмотрел форум - создать окно получается вот так:

<td><input name='submit' type='submit' value='Сброс счётчика?' onclick="return confirm('Точно сбросить?')"></td>

а как присвоить нужное действие кнопкам "да" и "нет" в окне - я не знаю.Вот код:


<html>
<head>
<title>Сброс счётчика</title>
</head>

<!------------------------------------------------------------------------------------------->

<script language="vbscript">

WorkDir="C:\word_print\"

Sub Window_OnLoad
self.resizeTo 400,200
Load_SentNum
End Sub

Sub Load_SentNum
Set fso = CreateObject("Scripting.FileSystemObject")
Set f=fso.OpenTextFile (WorkDir & "word_print.num",1)
sent_num.value=f.ReadLine
f.Close
End Sub

Sub Write_SentNum
Set fso = CreateObject("Scripting.FileSystemObject")
Set f=fso.OpenTextFile (WorkDir & "word_print.num",2)
f.WriteLine (sent_num.value)
f.Close
End Sub

Sub Null_SentNum
sent_num.value=1
Write_SentNum
End Sub

</script>

<!------------------------------------------------------------------------------------------->

<body>
<table>
<tr>
<td>Номер отгрузки</td>
<td><input type="text" id="sent_num" size="5" readonly></td>
<td><input type="button" value="Сброс счётчика" onclick=Null_SentNum></td>
</tr>
</table>
<div id="Result"></div>
</body>
</html>

Окно подтверждения 05/04/2018 12:31 #2

  • boroda22
  • ( Пользователь )
  • Вне сайта
  • Новый участник
  • Постов: 3
  • Баллов: 6
  • Репутация: 0
Скриптами пробуйте вызвать диалоговое окошко
  • Страница:
  • 1
Время создания страницы: 0.22 секунд