举例为帐号申请单，在开单的时输入一个帐号，系统判断该帐号是否存在于系统中。

1.在表单的JS Header中写判断的javascript函数：

var request;

function checkloginname(){

request = new ActiveXObject("Msxml2.XMLHTTP")

if (!request){

  request=new ActiveXObject("Microsoft.XMLHTTP");}

  request.onreadystatechange=aftercheckloginname;

  //这里假设数据库路径为mis/accounts.nsf，且表单中输入帐号的域是account，将这个域的值传递到代理中

  url="/mis/accounts.nsf/checkRepeatId?openagent&Id="+document.forms[0].account.value;

  request.open("post",url,true);

  request.send(null);

}

function aftercheckloginname(){

if (request.readystate==4){

  if (request.status==200){

   if (request.responseText.indexOf("1")>-1){

    alert (" 对不起，该帐号已经被使用！");

    document.forms[0].account.value="";

    document.forms[0].account.focus();

   }

  }

}

}

2.新建一个checkRepeatId的代理：

Sub Initialize

Dim ss As New NotesSession

Dim doc,docx As NotesDocument

Dim view As NotesView

Dim db As NotesDatabase

Set doc=ss.DocumentContext

Set db=ss.CurrentDatabase

Set view=db.GetView("checkid")     '这个试图即为帐号的试图，试图第一列为帐号

macro=|@RightBack(Query_String_Decoded;"=")|    '这句是获取从URL传过来的参数

id=Evaluate(macro,doc)

Set docx=view.GetDocumentByKey(id(0),True)

Print "Content-type: text/xml"

If Not docx Is Nothing Then

  Print "1"

Else

  Print "0"

End If

End Sub

3.在表单中输入帐号的域，这里举例为account，在域的onchange或者onblur事件中调用javascript方法checkloginname()