JSONのDominoでの応用

1160 ワード

以前はDomino B/Sの開発をしていたクライアントがサーバと非同期でインタラクションしていた時はAjaxでXML形式のデータを返していたのですが、JSONを使えば小さいデータ量を転送する際に個人的には便利だと思います.JSONの前後のデータ操作コードクライアント:JsHeaderを添付します.
var oXHR;
function mycallback() {      //    
  if (oXHR.readyState == 4) {
     if (oXHR.status == 200) {
       var data = eval('('+oXHR.responseText+')');
       data.name; //Json   name  
     } else {
       alert('error');
     }
  }
} 

button呼び出し:
 oXHR = new ActiveXObject("Microsoft.XMLHTTP");
 oXHR.open('POST',  '/'+document.all.db_Path.value(     )+'/Agent?openAgent&p='+document.all.rnds.value(   ,      ),  false);
 oXHR.onreadystatechange = mycallback;
 oXHR.send(encodeURIComponent(  ));

agent:
Sub Initialize
  Dim session As New NotesSession
  Dim contextDoc As NotesDocument
  Set contextDoc = session.DocumentContext
  '  POST     ,       ,        
  sParam = Evaluate( | @URLDecode("Domino";Request_Content) |,contextDoc )
  Print |content-type:text/xml|      '  XML   
  Print |{'name':'|+sParam(0)+|'}|
End Sub