codice:
<%
' stringa da inviare
strPost = "saluto=ciao&nome=Daniele Bochicchio"
' la rendiamo URL-compatibile
strPost = Server.URLEncode(strPost)
' pagina da richiamare
url = "http://localhost/risposta.asp"
' usiamo l'oggetto XMLHTTP
Set XMLHTTP = Server.CreateObject("Microsoft.XMLHTTP")
XMLHTTP.open "POST", url, false
' headers da impostare
' il metodo POST ha bisogno di questo content-type
XMLHTTP.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
' se vogliamo dirgli da dove veniamo...
XMLHTTP.setRequestHeader "HTTP_REFERER", "http://localhost/"
' inviamo la richiesta
XMLHTTP.send (strPost)
' codice di risposta del server
status = CInt(XMLHTTP.status)
' Se lo stato è 200, è ok
if status = 200 then
Response.write (XMLHTTP.responseText)
else
Response.write "
Errore: " & status
end if
set XMLHTTP = Nothing
%>
il file risposta.asp contiene
codice:
<%
Response.write "
" & Request.Form("nome")
Response.write "
" & Request.Form("saluto")
%>