• 15 апреля стартует «Курс «SQL-injection Master» ©» от команды The Codeby

    За 3 месяца вы пройдете путь от начальных навыков работы с SQL-запросами к базам данных до продвинутых техник. Научитесь находить уязвимости связанные с базами данных, и внедрять произвольный SQL-код в уязвимые приложения.

    На последнюю неделю приходится экзамен, где нужно будет показать свои навыки, взломав ряд уязвимых учебных сайтов, и добыть флаги. Успешно сдавшие экзамен получат сертификат.

    Запись на курс до 25 апреля. Получить промодоступ ...

Газета под Web

  • Автор темы yerke
  • Дата начала
Y

yerke

здравствуйте всем знатокам лотуса

получил задание сделать базу газеты под веб
выполнил следующие пункты
1) создал новую форму "AllNews"
туда поместил текстовое вычисляемое поле "Body"
по двум сторонам этого поля поместил теги <html> и </html> через пас сру хтмл
2) на ВебКвериОпен этой формы поместил агент
3) агент делает вот это
Код:
Sub Initialize
Dim ses As NotesSession
Dim curdb As NotesDatabase
Dim curdoc As NotesDocument
Dim dcol As NotesDocumentCollection
Dim tdoc As NotesDocument	
Dim ss As String
'=
Set ses = New NotesSession
Set curdb=ses.CurrentDatabase
Set curdoc=ses.DocumentContext
'=
Set dcol=curdb.Search({SELECT Form="News"}, Nothing, 0)
If dcol.Count<=0 Then
Call curdoc.ReplaceItemValue("Body", "No news found")
Exit Sub
End If
'=
ss=""
Set tdoc=dcol.GetFirstDocument
While Not(tdoc Is Nothing)
ss=ss+{<b>}+tdoc.Title(0)+{</b><br>}+_
+tdoc.Texts(0)+{<br>}+_
+{<a href="Этот линк должен открыть 2-ю форму и передать ей tdoc.UniversalID">Подробнее</a>}		
Set tdoc=dcol.GetNextDocument(tdoc)
Wend
Call curdoc.ReplaceItemValue("Body", ss)	
End Sub

Вопрос:
с помошью ссылки как открыть (создать) документ на основе определенной формы
и как передать этому документу UniversalID другого дока
(причем созданный документ должен обработать полученный UniversalID с помощью WebQueryOpen)

ПС

знаю что необходимо юзать

но как передать параметры КАк PHP
 
M

medin84

Если имеешь в виду get post то используй Query_String
 
Y

yerke

Так?
</a></a></a></a></a></a></a></a></a></a>...

допустим так передали параметр
а как обработать полученный параметр MyUNID с помощью webqueryopen
если использовать Query_String то появляется надпись форма обработана
а мне надо чтоб агент под webqueryopen
достал документ с базы по MyUNID
и показал значение одного поля этого дока
 
S

Sandr

yerke
Так а что, проблема зачитать Query_String в вебквериоупен? Только не забудте на форму добавить CFD поле с именем Query_String
 
K

KLif


допустим так передали параметр
а как обработать полученный параметр MyUNID с помощью webqueryopen
если использовать Query_String то появляется надпись форма обработана
а мне надо чтоб агент под webqueryopen
достал документ с базы по MyUNID
и показал значение одного поля этого дока

1. - передаёте UNID
2. дальше добираетесь до поля Query_String_Decoded (session.DocumentContext), у него последнии 32 символа - это ваш UNID
3. отрезаете эти 32 символа и достаёте нужный док
 
S

Sandr

1. - передаёте UNID
2. дальше добираетесь до поля Query_String_Decoded (session.DocumentContext), у него последнии 32 символа - это ваш UNID
3. отрезаете эти 32 символа и достаёте нужный док

Низя так.. потому как кроме unidа люди могут захотеть еще что-то передавать.. я к тому, что тупое отрезание 32=х символов - в корне неправильное решение...

Код:
dim unid as variant
Set wdc = s.DocumentContext

Unid = Evaluate({@trim(@Right(@explode(Query_String; "&"); "unid="))}, wdc)

unid(0) - это и будет нужный Вам унид...
 
K

KLif

Низя так.. потому как кроме unidа люди могут захотеть еще что-то передавать.. я к тому, что тупое отрезание 32=х символов - в корне неправильное решение...

Код:
dim unid as variant
Set wdc = s.DocumentContext

Unid = Evaluate({@trim(@Right(@explode(Query_String; "&"); "unid="))}, wdc)

unid(0) - это и будет нужный Вам унид...

Вы правы ;)
 
Мы в соцсетях:

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