JSON在Domino中的应用

      以前在做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

转载于:https://www.cnblogs.com/sleeplessC/archive/2009/11/30/1614140.html