目的從前端呼叫agent並傳入參數回傳一些東西-wordpress.com.docVIP

目的：從前端呼叫 Agent 並傳入參數 回傳一些東西到前端 Step1. Create agent agXML4Query create funtion getvalfromqs ( 原始碼 ) Function getvalfromqs(Byval qs As String, Byval fld As String) As String 資料來源 : /A555F9/nn.nsf/ByAlias/GetValFromQs this function gets the value of a field from a string in the string the format shoul dbe ...FIELDNAME=jssdjfhsdj the nd of the value is delimited by end of string or another On Error Goto errhdlr a=Instr( qs , fld = ) If a=0 Then getvalfromqs=not found in string Exit Function End If b = Instr(a+2+Len(fld), qs,) If b=0 Then b=900 if end of string then return rest getvalfromqs=Mid$(qs, a+2+Len(fld), b-(a+2+Len(fld)) ) Exit Function errhdlr: On Error Resume Next Print Error: getvalfrom qs: Error$ Err erl: Erl br getvalfromqs=Error: getvalfrom qs: Error$ Err erl: Erl Exit Function End Function 1.2. Implement Lotus script ( 原始碼 ) Sub Initialize Dim s As New NotesSession Dim query As String query = s.DocumentContext.QUERY_STRING_DECODED(0) 前端傳進來的參數 Print |Content-Type:text/xml;charset=UTF-8| Print |xml| Print |rtn| + getvalfromqs( query , arg1 ) + _ + getvalfromqs( query , arg2 ) + |/rtn| Print |/xml| 很奇怪，不加 xml tag，IE8 會把它當作一般的 HTML，還自動給你加上 body , ooxx 的 ... End Sub Step2. Create action 查詢 ( 原始碼 ) function createXMLHttpRequest(){ if ( window.ActiveXObject ){ try { xmlHTTP = new ActiveXObject(Msxml2.XMLHTTP); } catch (e) { try { xmlHTTP = new ActiveXObject(Microsoft.XMLHTTP); } catch (e) { xmlHTTP = false; } } } else if( window.XMLHttpRequest ){ xmlHTTP = new XMLHttpRequest() ; } return xmlHTTP ; } ; function handleStateChange( p_xmlHttp ){ if( p_xmlHttp.readyState == 4 ){ // 已加載狀態 if( p_xmlHttp.status == 200 ){ // 已成功收到回傳訊息 var rtnStr1 ; var jqobj = $( p_xmlHttp.responseXML ) ; rtnStr1 = jqobj.find(xml rtn).t