nao aguento mais =/

[Luis Barbosa 0]

Gente, to com um problema aqui, preciso de uma função POST, eu fiz uma mais nao esta funcionando de acordo com oq eu queria... eu tenho um exemplo dessa função que eu gostaria só que em PHP... intao seria meio que uma "tradução" do php pro asp.... vo postar as 2.. a que eu fiz em asp e a php para que possam me auxiliar.

 

primeiro o php (modelo da asp)...

<?
function post($host,$porta,$path,$query) {
	   $fp = fsockopen($host, $porta);
	   if (!$fp){
		   return false;
	   }
		   fputs($fp, "POST $path HTTP/1.1\r\n");
		   fputs($fp, "Host: $host\r\n");
		   fputs($fp, "Content-type: application/x-www-form-urlencoded\r\n");
		   fputs($fp, "Content-length: " . strlen($query) . "\r\n");
		   fputs($fp, "Connection: close\r\n\r\n");
		   fputs($fp, $query);
			 $retorno = "";
	   while (!feof($fp)) {
		   $retorno.=fgets($fp,128);
	   }
	   fclose($fp);
	   return $retorno;
   }
?>

agora a asp que nao da certo por nada =/

<%
Function post(host,porta,path,query)
Set fp = server.CreateObject("scripting.FileSystemObject")
arquivo= request.serverVariables("APPL_PHYSICAL_PATH") & "arquivo.txt"
Set Out=fp.OpenTextFile(Server.MapPath("arquivo.txt"),2, True)
Out.writeline(arquivo & "POST path HTTP/1.1\r\n")
Out.writeline(arquivo & "Host: host\r\n")
Out.writeline(arquivo & "Content-type: application/x-www-form-urlencoded\r\n")
Out.writeline(arquivo & "Content-length: " & query.length & "\r\n") 
Out.writeline(arquivo & "Connection: close\r\n\r\n")
Out.writeline(arquivo & query)
retorno  = ""
Do While arquivo.eof = false
retorno = retorno & arquivo.ReadLine(128)
Loop
arquivo.close
fpost = retorno
End Function
%>

Ninguem para me dar uma mao ? =/

[hargon 64]

Alguma mensagem de erro?

[ska_ska 0]

qual o objetivo desse script... pelo q vi, tem outras formas de fazer isso que voce gostaria.. explica melhor o que quer fazer, sem codigos q a galera te ajuda.

 

abs,

ska!