Problemas no entendimento FSO

[Luis Barbosa 0]

Bom fim de tarde a todos vocês, este é meu primeiro post aqui no imasters e ja é bucha pra vocês me ajudarem hahahaha.

 

Eu estou precisando fazer uma função asp de post, mas comecei a aprender asp ontem, então ainda nao consegui me acertar.

Eu programo um pouco melhor em php onde consegui fazer a classe sem maiores problemas, mais estou precisando dela em asp mesmo, pelo que andei pesquisando eu vou ter que usar o FSO, mais ainda não consegui entender direito como utiliza-la.

Vou postar o codigo da parte em php e o que eu consegui(ou não) fazer em asp para que possam me ajudar.

 

Primeiramente o PHP

 

$fp = fsockopen($host, $porta);
//		 echo "$host $path $query $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 o ASP:

 

arquivo= request.serverVariables("APPL_PHYSICAL_PATH") & "nomedoarquivo.txt"
Set fp = server.CreateObject("scripting.FileSystemObject")
set fp = confile.CreateTextFile(arquivo) 
If not fp then
  post = false
End If
fich.write(fp, "POST path HTTP/1.1\r\n")
fich.write(fp, "Host: host\r\n")
fich.write(fp, "Content-type: application/x-www-form-urlencoded\r\n")
fich.write(fp, "Content-length: " . strlen(query) . "\r\n")
fich.write(fp, "Connection: close\r\n\r\n")
fich.write(fp, query)

retorno  = ""
Do While not feof(fp)
retorno = retorno & fso.GetFile(fp,128)
Loop
fsoClose(fp)

fpost = retorno

:unsure: Nossa olhando de novo esse código asp nao tem quase nada a ver com o php...

Disculpa se estiver muito errado :/

Mas por favor preciso de uma ajudinha mesmo ...

[hargon 64]

Está exibindo alguma mensagem de erro?

[Luis Barbosa 0]

Microsoft VBScript compilation error '800a0414'

 

Cannot use parentheses when calling a Sub

 

/luisP/post.asp, line 57

 

fich.write(fp, "POST path HTTP/1.1\r\n")

 

consegui arrumar o erro trocando ( ) por [ ]

 

é que na verdade este é soh o começo do que eu tenho que fazer, para testar esta classe post eu teria que converter algumas outras do php para asp também, eu nao quis postar o código do programa inteiro porque ai seria até maldade com vocês hehe, tecnicamente é um post e um parse_xml

[Luis Barbosa 0]

Nossa, agora vocês devem estar se perguntando e ai ?? o que esse doido quer ja que nao esta dando erros...

 

Acho q nao deixei muito clara minha duvida, eu gostaria de saber se aquele meu código PHP é lógicamente igual ao meu ASP,

porque preciso ser bem exato principalmente nesta função.

 

Se alguem souber, ou precisar de alguma coisa para me ajudar, poste por favor, estou mesmo precisando fazer isto =)

[hargon 64]

Parece está exato... mas a forma mais correta é você testar, se está gerando o mesmo resultado, então está certo.

[Luis Barbosa 0]

Putz, eu dei uma ralada aki + nao ta funcionando... parece que ele nem chama a classe, vo postar o código da chamada da classe pra ver c alguem sabe oq estou fazendo de errado =/

 

<!--#include file="post.asp"-->
<%
Dim URL_LINK_REDIR, URL_SERVER_IMG, ID_PAGINA, URL_BASE, admovilA, bannerA

URL_LINK_REDIR = "http://www.site.com.br/admovil/servidor/link_redir.php"
URL_SERVER_IMG = "http://www.site.com.br/admovil/"
ID_PAGINA = 4
URL_BASE = "http://www.site.com.br/admovil/servidor/index.php"

set admovilA = new admovil
'Response.Write admovilA

%>

Tipo o include é para o código que tem a classe admovil, dentro da classe eu tenho funções: admovil, post e traduz_info.

 

em php a chamada fica: $admovil=new admovil();

 

bom alguem ai tem alguma idéia do que pode ser ? vlw !

[hargon 64]

Em ASP seria: Set var_admovil = New admovil

 

Dê uma olhada no Laboratório de Scripts. Lá tem alguns exemplos de Classe.

[Luis Barbosa 0]

Vlw a dica pelo uso da classe, mais nem isso consigo fazer direito... olha só...

 

<!--#include file="post.asp"-->
<%

Set var_admovil = New admovil
%>

 

<%
'post.asp
class admovil
Function admovil( tam_tela )
response.write ("admovil")
tam_tela_ini = tam_tela
texto = busca_server()
parse_xml_banner(texto)
End Function
End class
%>

ele nao deveria printar esse admovil na tela ? eu sei que daria outros erros + seriam depois desse print, mais nem issu ele faz =/