例: JavaScript in HTML

  1. 次は、フォーム上でパススルー HTML として記されたテキストです。名前を要求するダイアログボックスを表示し、LoginName フィールドに挿入します。このテキストはフォーム上の LoginName フィールドの後に入力する必要があります。
    <SCRIPT LANGUAGE="JavaScript">
        n = prompt("Domino login name?", "Anonymous")
        document.forms[0].LoginName.value = n
    </SCRIPT>
  2. 次のパススルーテキストは、「javascript:」プロトコルによって URL に JavaScript を挿入するアンカータグを使用しています。
    <A HREF="javascript:alert('You are Anonymous unless you supply a login name')">Read me</A>
  3. 次のパススルーテキストには、ユーザー名が計算結果として含まれます。計算結果を挿入するには、[作成] - [計算結果テキスト] を選択し、「@UserName」を式に指定します。
    <SCRIPT LANGUAGE=JavaScript>
        alert("Your user name is <Computed Value>")
    </SCRIPT>
  4. 次の LotusScript エージェントは JavaScript をブラウザに送信することで終了します。JavaScript はメッセージを表示し、次に「Main View」をロードします。
    Sub Initialize
        Dim s As New NotesSession
        Dim db As NotesDatabase
        Dim dc As NotesDocumentCollection
        Dim doc As NotesDocument
        Dim arg As String, p1 As Long
        arg = s.DocumentContext.Query_String(0)
        p1 = Instr(arg, "&")
        If p1 = 0 Then
            Print "Need argument 'Open' or 'Closed'"
            Exit Sub
        Else
            arg = Lcase(Mid$(arg, p1 + 1))
            If arg <> "open" And arg <> "closed" Then
                Print "Argument must be 'Open' or 'Closed'"
                Exit Sub
            End If
        End If
        arg = Ucase(Left$(arg, 1)) + Right$(arg, Len(arg) - 1)
        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 "<SCRIPT LANGUAGE=JavaScript>"
        Print "alert(""Status changed to '" & arg & _
              "' in all documents"")"
        Print "location.href = ""/Web+test.nsf/Main+View?OpenView"""
        Print "</SCRIPT>"
    End Sub
    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 "<SCRIPT LANGUAGE=JavaScript>"
        Print "alert(""Status changed to '" & arg & _
              "' in all documents"")"
        Print "location.href = ""/Web+test.nsf/Main+View?OpenView"""
        Print "</SCRIPT>"
    End Sub