Газета под Web

yerke

Well-Known Member
28.08.2007
392
0
33
Алматы
#1
здравствуйте всем знатокам лотуса

получил задание сделать базу газеты под веб
выполнил следующие пункты
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)

ПС

знаю что необходимо юзать
http://Host/Database/FormName?CreateDocument
но как передать параметры КАк PHP
 

yerke

Well-Known Member
28.08.2007
392
0
33
Алматы
#5
http://Host/Database/MyFormName?CreateDocu...NID=56742145464
допустим так передали параметр
а как обработать полученный параметр MyUNID с помощью webqueryopen
если использовать Query_String то появляется надпись форма обработана
а мне надо чтоб агент под webqueryopen
достал документ с базы по MyUNID
и показал значение одного поля этого дока
 
S

Sandr

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

KLif

Гость
#7
http://Host/Database/MyFormName?CreateDocu...NID=56742145464
допустим так передали параметр
а как обработать полученный параметр MyUNID с помощью webqueryopen
если использовать Query_String то появляется надпись форма обработана
а мне надо чтоб агент под webqueryopen
достал документ с базы по MyUNID
и показал значение одного поля этого дока
1. http://Host/Database/MyFormName?CreateDocu...NID=56742145464 - передаёте UNID
2. дальше добираетесь до поля Query_String_Decoded (session.DocumentContext), у него последнии 32 символа - это ваш UNID
3. отрезаете эти 32 символа и достаёте нужный док
 
S

Sandr

Гость
#8
1. http://Host/Database/MyFormName?CreateDocu...NID=56742145464 - передаёте 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

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

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

Unid = Evaluate({@trim(@Right(@explode(Query_String; "&"); "unid="))}, wdc)
unid(0) - это и будет нужный Вам унид...
Вы правы ;)