Script ASP échantillon

<% @ Language = VBScript%>
<%
Response.Buffer = True
Dim objXMLHTTP, xml, commande, aicc_loc, la version session_id, aicc_data, postbody

»Se params selon la méthode envoyés passé '
si (Request.QueryString ("aicc_loc") <> ""), puis
  aicc_loc = Request.QueryString ("aicc_loc")
  commande = Request.QueryString ("commande")
  version = Request.QueryString ("version")
  session_id = Request.QueryString ("session_id")
  aicc_data = Request.QueryString ("aicc_data")
autre
  aicc_loc = Request.Form ("aicc_loc")
  commande = Request.Form ("commande")
  version = Request.Form ("version")
  session_id = Request.Form ("session_id")
  aicc_data = Request.Form ("aicc_data")
fin si

«Construire la chaîne de corps de poste"
postbody = "command =" + Server.URLEncode (commande) + "& version =" + Server.URLEncode (version) + "& session_id =" + 
Server.URLEncode (session_id)
si aicc_data <> "" alors
  postbody = postbody + "et aicc_data =" + Server.URLEncode (aicc_data)
fin si

«Créer un objet XMLHTTP: '
Set xml = Server.CreateObject ("Microsoft.XMLHTTP")
Or, pour la version 3.0 de XMLHTTP, utilisez: '
'Set xml = Server.CreateObject ("MSXML2.ServerXMLHTTP")'

'Ouvre la connexion au serveur distant.
xml.Open "POST", aicc_loc, Faux
xml.setRequestHeader "Content-Type", "application / x-www-form-urlencoded"

'Envoie fait la demande et renvoie les données:'
XML.send postbody

«Renvoyez la réponse '
Response.Write xml.responseText

Set xml = Nothing
%>