Script ASP Amostra

<% @ Language = VBScript%>
<%
Response.Buffer = True
Dim objXMLHTTP, xml, comando, aicc_loc, versão, session_id, aicc_data, postbody

'Se params dependendo método enviados passado'
if (Request.Querystring ("aicc_loc") <> "") então
  aicc_loc = Request.Querystring ("aicc_loc")
  command = Request.Querystring ("comando")
  version = Request.Querystring ("versão")
  session_id = Request.Querystring ("session_id")
  aicc_data = Request.Querystring ("aicc_data")
outro
  aicc_loc = Request.Form ("aicc_loc")
  command = Request.Form ("comando")
  version = Request.Form ("versão")
  session_id = Request.Form ("session_id")
  aicc_data = Request.Form ("aicc_data")
acabam se

"Construir a corda do post '
postbody = "comando =" + Server.URLEncode (comando) + "& version =" + Server.URLEncode (versão) + "& session_id =" + 
Server.URLEncode (session_id)
se aicc_data <> "", em seguida,
  postbody = postbody + "& aicc_data =" + Server.URLEncode (aicc_data)
acabam se

'Criar um objeto xmlhttp:'
Set xml = Server.CreateObject ("Microsoft.XMLHTTP")
"Ou, para a versão 3.0 do XMLHTTP, use:"
'Set xml = Server.CreateObject ("MSXML2.ServerXMLHTTP")'

'Abre a conexão com o servidor remoto. "
xml.Open "POST", aicc_loc, Falso
xml.setRequestHeader "Content-Type", "application / x-www-form-urlencoded"

'Na verdade, envia a solicitação e retorna os dados: "
XML.send postbody

'Enviar para trás a resposta'
Response.Write xml.responseText

Set xml = Nothing
%>