剛寫了個AJAX在DOMINO中最簡單的應用

來源:互聯網
上載者:User

實現簡單的二級聯動

1、表單上建立一個組合框,ONCHANGE事件中寫入如下代碼

var se=this.selectedIndex;

var xmlhttp_request = "";
xmlhttp_request=new ActiveXObject("Microsoft.XMLHTTP");
if (!xmlhttp_request){
 xmlhttp_request=new ActiveXObject("MSXML2.XMLHTTP");
}

var url="fill?openagent&t="+this.options[se].text+"&id="+document.forms[0].CurDocId.value;

xmlhttp_request.open("GET",url,true);
xmlhttp_request.send(null);
xmlhttp_request.onreadystatechange=fill;
function fill(){
     if (xmlhttp_request.readyState==4 && xmlhttp_request.status==200){
     var xmldata=xmlhttp_request.responseXML;
     var a=xmldata.documentElement.text;
     document.forms[0].roomadmin.value=a;
     document.forms[0].SendTo.value=a;
  }
}

代理:

Sub Initialize
 Dim s As New notessession
 Dim db As notesdatabase
 Dim view As notesview
 Dim curdoc,doc As notesdocument
 Set curdoc=s.documentcontext
 Dim url,r As String
 url=curdoc.Query_string_decoded(0)
 r=Right(url,(Len(url)-Instr(url,"&"))-2)
 url=r
 r=Left(url,Instr(url,"&")-1)
 Set db=s.currentdatabase
 Set view=db.getview("V_roomlist")
 Set doc=view.getfirstdocument
 While Not doc Is Nothing
  If doc.room(0)=r Then
   Print |content-type:text/xml;charset=UTF-8;|
   Print |<admin>|
   Print doc.admin(0)
   Print |</admin>|
  End If
  Set doc=view.getnextdocument(doc)
 Wend
End Sub

相關文章

聯繫我們

該頁面正文內容均來源於網絡整理,並不代表阿里雲官方的觀點,該頁面所提到的產品和服務也與阿里云無關,如果該頁面內容對您造成了困擾,歡迎寫郵件給我們,收到郵件我們將在5個工作日內處理。

如果您發現本社區中有涉嫌抄襲的內容,歡迎發送郵件至: info-contact@alibabacloud.com 進行舉報並提供相關證據,工作人員會在 5 個工作天內聯絡您,一經查實,本站將立刻刪除涉嫌侵權內容。

A Free Trial That Lets You Build Big!

Start building with 50+ products and up to 12 months usage for Elastic Compute Service

  • Sales Support

    1 on 1 presale consultation

  • After-Sales Support

    24/7 Technical Support 6 Free Tickets per Quarter Faster Response

  • Alibaba Cloud offers highly flexible support services tailored to meet your exact needs.