• 🔥 Бесплатный курс от Академии Кодебай: «Анализ защищенности веб-приложений»

    🛡 Научитесь находить и использовать уязвимости веб-приложений.
    🧠 Изучите SQLi, XSS, CSRF, IDOR и другие типовые атаки на практике.
    🧪 Погрузитесь в реальные лаборатории и взломайте свой первый сайт!
    🚀 Подходит новичкам — никаких сложных предварительных знаний не требуется.

    Доступ открыт прямо сейчас Записаться бесплатно

Газета под 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
 
Если имеешь в виду get post то используй Query_String
 
Так?
</a></a></a></a></a></a></a></a></a></a>...

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

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

1. - передаёте UNID
2. дальше добираетесь до поля Query_String_Decoded (session.DocumentContext), у него последнии 32 символа - это ваш UNID
3. отрезаете эти 32 символа и достаёте нужный док
 
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) - это и будет нужный Вам унид...
 
Низя так.. потому как кроме unidа люди могут захотеть еще что-то передавать.. я к тому, что тупое отрезание 32=х символов - в корне неправильное решение...

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

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

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

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

Взломай свой первый сервер и прокачай скилл — Начни игру на HackerLab