网站间的互操作（小试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

网址：

会员列表

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

---> 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); } 非完整版应该有高手有更好的方法，但迫于项目太急，草草了事．