JSONのDominoでの応用
1160 ワード
以前はDomino B/Sの開発をしていたクライアントがサーバと非同期でインタラクションしていた時はAjaxでXML形式のデータを返していたのですが、JSONを使えば小さいデータ量を転送する際に個人的には便利だと思います.JSONの前後のデータ操作コードクライアント:JsHeaderを添付します.
button呼び出し:
agent:
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