asp xmlhttp post·½·¨ - Web ¿ª·¢ / ASP

Dim aa
aa=GetURL("http://localhost/test1.asp")
Function GetURL(url)
  Set Retrieval = Server.CreateObject("Microsoft.XMLHTTP")
  With Retrieval
On Error Resume Next 
  .Open "post",url, False,"", ""
  .Send
  GetURL = .ResponseText
GetURL = bytes2BSTR(.Responsebody)
  End With
if Retrieval.Status<>200 then 
Set Retrieval = Nothing 
Exit Function 
end If 
End Function 


ÎҰѶ¨ÒåÒ»¸öPOSTµÄ´«Öµ·½·¨£¬½«POST´«¸øtest1.asp£¬ÇëÎʸÃÈçºÎ×öѽ£¿

---

¼±Ñ½£¬ÓÐÄÄλ¸ßÊÖ»áµÄѽ£¬Ð»Ð»ÁË£¡

---

ºÃÏñ²»Ðа¥£¬ÔËÐÐÖ»»áÏÔʾһ¸ö£º< ²¢Ã»ÓÐÏÔʾÕæÕýµÄ½á¹û

---

ÎÒ×Ô¼ºÑо¿³öÀ´ÁË£¬²»¹ý»¹ÊÇллÄãÁË£¡