NOtes Web编程运用ajax技术（Agent）

最新推荐文章于 2021-08-06 10:34:38 发布

xqdak

最新推荐文章于 2021-08-06 10:34:38 发布

阅读量999

点赞数

分类专栏： Lotus Notes 文章标签： ajax 编程 web integer string function

本文链接：https://blog.youkuaiyun.com/xqdak/article/details/723707

版权

Lotus Notes 专栏收录该内容

14 篇文章

订阅专栏

创建代理xmlAgent
Sub Initialize
     Dim strPost As String, strPre As String
     Dim i as Integer
     strPre = "<![CDATA["
     strPost = "]]>"
     Print |Content-Type:text/xml;charset=gb2312|
     Print "<root>"
     For i=1 To 10
          Print "<ou>" & strPre & Cstr(i) & strPost & "</ou>"
     Next
     Print "</root>"
End Sub

表单上调用js代码
function getRes()
{
     var post_xmlHttp=new ActiveXObject("Microsoft.XMLHTTP");
     post_xmlHttp.open("POST","xmlAgent?OpenAgent",false);
     post_xmlHttp.send();
     var returnXML = post_xmlHttp.responseText;
     var xmldoc = new ActiveXObject("Microsoft.XMLDOM");
     xmldoc.async = false;
     xmldoc.loadXML(returnXML);
     var root = xmldoc.documentElement;
     var xItems = root.selectNodes("ou");
     for(var i=1;i<=xItems.length;i++)
     {
          alert(xItems[i-1].firstChild.text);
     }

}