异步通讯（js-asp/asp-asp）

http协议传输post/get
javascript----asp

<script>
var Http = new ActiveXObject("Microsoft.XMLHTTP") ;
Http.open ("GET","http://10.1.9.157/login.asp?username=" + username + "&passwd=" + passwd ,false);
Http.send() ;
strsource = unescape(Http.ResponseText);
delete(Http);
alert(strsource);
</script>

<%
username=request("username")
passwd=request("passwd")
if username="" or passwd="" then
response.write escape("请输入用户名和密码！")
response.end
end if
response.write escape(username&"|"&passwd&"正确")
%>

asp--asp

On Error Resume Next
Server.ScriptTimeOut=9999999
function getHTTPPage(url)
  getHTTPPage=""
  dim http
  set http=server.createobject("Microsoft.XMLHTTP")
  http.open "get",url,false
  http.send()
  if http.readystate<>4 then
  exit function
  end if
  gethttppage=bytestobstr(http.responsebody,"gb2312")
  set http=nothing
  if err.number<>0 then err.clear
end function
 
function bytestobstr(body,cset)
  bytestobstr=""
  dim objstream
  set objstream=server.createobject("adodb.stream")
  objstream.type=1
  objstream.mode=3
  objstream.open
  objstream.write body
  objstream.position=0
  objstream.type=2
  objstream.charset=cset
  bytestobstr=objstream.readtext
  objstream.close
  set objstream=nothing
end function