异步通讯（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