Domino 9 und frühere Versionen > Entwicklung

gibts sowas wie @GETURL?

(1/1)

Matthias Suttner:
Hallo,

ich hab ein kleines webfähiges NSF (Notes/Domino 5.0.8) indem ich jetzt gerne die URL abfragen möchte, die im Browser steht.

Kann mit jemand weiterhelfen?

Vielen Dank
Matthias

Rob Green:
such mal bitte in der Designer Help nach "*Query_String*"..findest u.a. ein Doc, dass die CGI Variablen von Lotus Notes listet.

Dabei ist dieser String. Zu verwenden als Feld in einer Maske.

dazu die Hilfe:

--- Zitat ---Wenn ein Feld nach einer CGI-Variable benannt wird, kopiert Domino den Feldwert aus der CGI-Umgebung und setzt ihn in das Feld ein. Diese Funktion ist für "Berechnet zur Anzeige"-Felder und zur Bestimmung von "Verbergen wenn"-Bedingungen nützlich.
  1.   Erstellen Sie ein Feld, und geben Sie ihm den Namen einer CGI-Variablen.
Wenn Sie beispielsweise die IP-Adresse des Benutzers mit Hilfe der Maske erfassen möchten, fügen Sie ein Feld mit dem Namen Remote_Adr in die Maske ein.
  2.   Wählen Sie die Eigenschaften "Vorschau zum Bearbeiten" und "Geöffnet zum Bearbeiten" des Feldes "Verbergen wenn", damit Benutzer darin keine Informationen eingeben können.
--- Ende Zitat ---

und


--- Zitat ---In LotusScript and Java agents, you can get the arguments by parsing the Query_String item in the document returned by DocumentContext or getDocumentContext. Query_String contains the entire URL command that started the agent.
--- Ende Zitat ---

und als Bsp:

--- Code: ---This agent parses Query_String to extract one argument, which must be "open" or "closed." It must be run with an OpenAgent URL command.
Sub Initialize
    Dim s As New NotesSession
    Dim db As NotesDatabase
    Dim dc As NotesDocumentCollection
    Dim doc As NotesDocument
    Dim context As NotesDocument
    Dim arg As String
    Set context = s.DocumentContext
    arg = s.DocumentContext.Query_String(0)
    p1 = Instr(arg, "&")
    If p1 = 0 Then
        Print "Need argument 'open' or 'closed'"
    Else
        arg = Lcase(Mid$(arg, p1 + 1))
        If arg <> "open" And arg <> "closed" Then
            Print "Argument must be 'open' or 'closed'"
        End If
    End If
    Set db = s.CurrentDatabase
    Set dc = db.UnprocessedDocuments
    Set doc = dc.GetFirstDocument
    Do While Not(doc Is Nothing)
        doc.Status = arg
        Call doc.Save(False, True)
        Set doc = dc.GetNextDocument(doc)
    Loop
    Print "<B>Status changed to '" & arg & "' in all documents"
End Sub
--- Ende Code ---

Navigation

[0] Themen-Index