<%
Dim HttpObj, strResult
' Création de l'objet
Set HttpObj = Server.CreateObject("AspHTTP.Conn")
' Définition de l'url de connexion de la page qui va récupérer les données postées
HTTPObj.Url = "http://comptedetest.com/asphttp_result.asp"
' Définition des valeurs à poster
HTTPObj.PostData = "login=toto&id=23"
' Définition de la méthode de "postage"
HTTPObj.RequestMethod = "POST"
' Connexion et récupération de la réponse
strResult = HTTPObj.GetURL
Response.Write(strResult)
' Destruction de l'objet
Set HttpObj = Nothing
%>
Les données sont postées à la page "asphttp_result.asp" qui les affiche.
Page asphttp_result.asp :
<%
' Récupération des données postées
param1 = Request.Form("login")
param2 = Request.Form("id")
' Affichage des données récupérées
Response.Write("login = " & param1 & "<br>")
Response.Write("id = " & param2 & "<br>")
%>
|
| Retour |
|
|
