• Познакомьтесь с пентестом веб-приложений на практике в нашем новом бесплатном курсе

    «Анализ защищенности веб-приложений»

    🔥 Записаться бесплатно!

  • CTF с учебными материалами Codeby Games

    Обучение кибербезопасности в игровой форме. Более 200 заданий по Active Directory, OSINT, PWN, Веб, Стеганографии, Реверс-инжинирингу, Форензике и Криптографии. Школа CTF с бесплатными курсами по всем категориям.

Msgbox в ВЕБ

  • Автор темы wowa
  • Дата начала
W

wowa

КАк сделать в ВЕБе Msgbox ???
Как я понимаю это возможно с помощью Alert
Вот только как его присобачить, например был код в Лотусе
Код:
if ( бла-бла-бла ) then
Msgbox "бла"
End if
Помогите кто знает как это лучше всего реализовать
 
D

dmytro.pastovenskyi

if ( бла-бла-бла ) then
alert("бла");
End if

или что то не так понял?
 
W

wowa

dmytro.pastovenskyi
что-то я в Лотус Скрипте не видел Alert
 
W

wowa

Morpheus , я понимаю... только что-то допетрить не могу как сделать, на подобие лотусовского MsgBox, в Веб....
т.е. У меня идет код на LS, потом если что-то нужно сообщить то выдать сообщение.. Как это сделать?
 
V

valmont

wowa тогда поподробнее что где как оно у тебя идет на LS и что ты хочешь выдать для информации?
как вариант, если хочешь типа сообщении о не заполненном поле, тогда уж JS в руки и в перед.
но как вариант, в агенте (после его работы) можешь открывать этот же документ, но через параметры передавать нужную инфу, а потом уже обрабатывать и отображать.
1. делаешь вычисляемое поле, куда попадают твои параметры
2. делаешь компутед текст где расшифровываешь эти параметры
 
W

wowa

valmont ,
Есть форма поиска...Нажимаю на кнопку "поиск" ... Идет поиск документов, если документы не найдены, то выдать сообщение
Код:
	If ( dcCollection.Count = 0 ) Then......................
 
W

wowa

Вот кусок кода на LS
Код:
......................
'осуществляется поиск 
Set dcCollection = db.FTSearch( StSearch , 0, FT_SCORES ) 
If ( dcCollection.Count = 0 ) Then
MsgBox "Поиск не дал результатов!",48,"Внимание"
Exit Function
End If
..............................................................
 
S

Sandr

wowa

Код:
'осуществляется поиск 
Set dcCollection = db.FTSearch( StSearch , 0, FT_SCORES ) 
If ( dcCollection.Count = 0 ) Then
Print {<script> alert("Поиск не дал результатов!") </script>}
Exit Function
End If
..............................................................
 
W

wowa

Sandr , спасибо, получилось... Но есть проблемка, загрузилась пустая страница,.. можно чтобы она не загружалась, а осталась предыдущая??... Можно это как-н избежать?
 
S

Sandr

wowa

Вот так тогда:
Код:
Print |<script> alert("Поиск не дал результатов!"); 
window.document.location = '/| & Replace(db.filepath, "\", "/") & |/0/| & doc.universalID & |?EditDocument';
</script>|

Предупреждаю, что если документ до этого не сохранен, то данные введенные до запуска агента не сохранятся и пропадут из документа...
 
W

wowa

Предупреждаю, что если документ до этого не сохранен, то данные введенные до запуска агента не сохранятся и пропадут из документа...
Документ не сохранен...
Неужто все выставленные Checkbox и т.д. пропадут?
 
S

Sandr

wowa
Если документ вообще не сохранен, то так вообще делать низя, так как унида еще нет у документа... А если хоть раз сохранен, то всеравно все сделанное между последним сохранением и вызовом агента пропадет.

Объясните суть задачи, возможно нужно делать по-другому...
 
W

wowa

Sandr
Ну вот представьте поисковик...
Нажимаю кнопку поиск, запускается агент... Если есть документы, то вывожу красиво в RTF табличкой документы..
Если же документов нет, то выдать сообщение
Поисковик же не надо сохранять
 
S

Sandr

wowa
а.. ну дык тут все просто тогда...
Если данные сохранять не надо, то делайте так:
Код:
Print |<script> alert("Поиск не дал результатов!"); 
window.document.location = '/| & Replace(db.filepath, "\", "/") & |/MySearchForm?ReadForm';
</script>|
где ySearchForm - форма, по которой осуществляется поиск
 
W

wowa

Sandr, сообщение выдало, потом вернулась форма, но все поля исчезли
 
W

wowa

Sandr , в смысле правильно???
Когда открываю форму, у меня видны 5-6 полей и их можно заполнять, видны рисунки и т.д.
После того как я так переоткрываю форму,... у меня все "верх ногами", полей вообще нет, некоторые рисунки исчезли и т.д.....
 
S

Sandr

wowa

а.. я понял :) В моем примере написано ReadForm, переделайте на OpenForm
:(
 
W

wowa

Sandr, получилось , но все-таки ранее заполненные поля не удастся восстановить?
 
Мы в соцсетях:

Обучение наступательной кибербезопасности в игровой форме. Начать игру!