网站间的互操作（小试Ajax XML互操作ASP）

http://localhost/response WriteXML.asp ＜％ Set rs=Server.CreateObject("ADODB.RecordSet") sql="SELECT * FROM Member where [Type]=1" rs.open sql,conn,1,1 if not rs.eof then Response.Write(escape(" " & vbcrlf)) Response.Write(escape(" " & vbcrlf)) rs.pagesize=15 if request("page")="" then page=1 if request("page")<>"" then page=Cint(request("page")) if page<1 then page=1 if page>rs.pagecount then page=rs.pagecount end if rs.AbsolutePage =page i=1 while not rs.eof and i<=rs.pagesize Response.Write(escape(" " & vbcrlf)) Response.Write(escape(" "&rs("UserSN")&"" & vbcrlf)) Response.Write(escape(" "&rs("userName")&"" & vbcrlf)) Response.Write(escape(" "&rs("Name")&""&vbcrlf)) Response.Write(escape(" "&rs("Tel")&""&vbcrlf)) Response.Write(escape(" "&rs("EMail")&""&vbcrlf)) Response.Write(escape(" "&rs("PassWord")&" "&vbcrlf)) Response.Write(escape("" & vbcrlf & vbcrlf)) rs.movenext i=i+1 wend Response.Write(escape(" ")) Response.Write(escape("" & vbcrlf & vbcrlf)) else Response.Write(escape("")) end if rs.close() Set rs=Nothing ％＞
http://loaclhost/request
Read.asp <script language="javascript" src="js/Member.js"></script><script language="javascript"> function loadMember(page) { document.getElementById('writemsg').innerHTML="    正在载入会员列表..."; document.getElementById('writetr').style.display=""; Send(document.getElementById('WebUrl').value+"/WriteXML.asp?page=" + page,upview); } function upview(){ if(HttpRequest.readyState==4) { if(HttpRequest.status==200) { //if(unescape(HttpRequest.responseText)!="") // { XMLParse(unescape(HttpRequest.responseText)); // } // else // { // alert("没有会员被载入"); // return false; // } } else { alert("您所请求的页面错误！"); } } } function XMLParse(xmltxt) { var xmlDoc=new ActiveXObject("Microsoft.XMLDOM"); xmlDoc.async=false; xmlDoc.loadXML(xmltxt); var Emen=xmlDoc.getElementsByTagName("Member"); var str=""; str+=" /n"; for(var k=0;k "; } str+="/n"; str+=" /n"; str+=" /n"; str+=" /n"; str+="

编号

/n"; str+="

用户名

/n"; str+="

姓名

/n"; str+="

电话

/n"; str+="

EMail

/n"; str+=" /n"; for(var i=0;i " } str+=" /n"; var urlEmen=xmlDoc.getElementsByTagName("Pages"); var surl=document.getElementById('WebUrl').value+"/admin/MemberXML.asp"; document.getElementById('fristPage').href="javascript:loadMember(1);"; document.getElementById('nextPage').href="javascript:loadMember(" + (parseInt(urlEmen[0].attributes[0].text)+1) + ");"; document.getElementById('upPage').href="javascript:loadMember(" + (parseInt(urlEmen[0].attributes[0].text)-1) + ");"; document.getElementById('endPage').href="javascript:loadMember(" + parseInt(urlEmen[0].attributes[1].text) + ");"; document.getElementById('pageView').innerHTML=urlEmen[0].attributes[0].text + "/" + urlEmen[0].attributes[1].text; document.getElementById('infostr').style.display=""; document.getElementById('infolist').innerHTML=str; document.getElementById('writetr').style.display="none"; return; } </script>

网址：

会员列表

[首页][下页]  [上页][上页][尾页]

---> Member.js
var HttpRequest=false; function Send(url,view) { HttpRequest=false; if(window.XMLHttpRequest) { HttpRequest=new XMLHttpRequest(); if(HttpRequest.overrideMimeType) { HttpRequest.overrideMimeType("text/xml"); } } else if(window.ActiveXObject) { try { HttpRequest=new ActiveXObject("Msxml2.XMLHTTP"); } catch(e) { try { HttpRequest=new ActiveXObject("Microsoft.XMLHTTP"); } catch(e){} } } if(!HttpRequest) { alert("您的浏览器不支持该操作！"); return false; } HttpRequest.onreadystatechange=view; HttpRequest.open("GET",url,true); HttpRequest.send(null); } 非完整版应该有高手有更好的方法，但迫于项目太急，草草了事．