5 replies to this topic

[Raphael_net]

como converter isso para asp?

<?
        /**********************************************************/
        /* Funcao PHP para envio de torpedos para celulares CLARO */
        /* Autor: Eduardo Bacchi Kienetz                          */
        /* http://www.noticiaslinux.com.br/eduardo/               */
        /*   dddto = DDD do telefone destinatario                 */
        /*   telto = TELEFONE do destinatario                     */
        /*   txt   = TEXTO da mensagem                            */
        /*   dddde = DDD do remetente                             */
        /*   telde = TELEFONE do remetente                        */
        /*   nomde = NOME do remetente                            */
        /**********************************************************/
        function smsClaro($dddto="",$telto="",$txt="",$dddde="",$telde="",$nomde=""){
                // se remetente + texto exceder 136 a msg nao eh enviada 
                // adicionalmente poderia testar se os parametros estao em branco, etc
                // mas na verdade os unicos obrigatorios sao DDD e TEL do destinatario
                // e nome do remetente, entao o limite tende a aumentar...
                // A soma do tamanho de todos os parametros nao pode exceder 160.
                if( (strlen($nomde)+strlen($txt)) >136 ) return false;
       	 $fp  = fsockopen ("www2.claro.com.br", 80, $errno);
                $txt = urlencode(stripslashes($txt));
         if ($fp) {
          $conectar =  "GET /torpedoweb/clarotw_envia.asp?ddd_para=$dddto&telefone_para=$telto&nome_de=$nomde&ddd_de=$dddde&telefone_de=$telde&msg=$txt HTTP/1.0\r\nHost: www2.claro.com.br\r\n\r\n";
          fputs ($fp, $conectar);
          $resultado = "";
          while (!feof($fp)) $resultado .= fgets ($fp,128);
          fclose ($fp);
          //Se quiser imprimir a mensagem de retorno
          //Me parece inutil pois sempre mostra fl_enviado=true
                        //echo $resultado;
                 return true;  //SUPONHO que tenha sido enviada
                }
                else return false;
        }
        /* teste de envio */
        if(smsClaro("xx","12345678","testando texto?","yy","87654321","Kienetz"))
                echo "Mensagem possivelmente enviada";
        else    echo "Mensagem NAO enviada";
?>

[Programador]

Você tem que aprender mais ASP, para depois conseguir converter PHP para ASP.
Você quer que a gente converta esse código pra você ?

[mcoelho80]

Uma dica por onde começar:

http://www.serverobj...mp/asphttp3.htm

<%
Set HttpObj = Server.CreateObject("AspHTTP.Conn")
HTTPObj.Url = "http://www.myfinancialpage.com/scripts/update3.asp"
HTTPObj.PostData = "suid=jimb&pwd=macabre&id=32&val=1.5"
HTTPObj.RequestMethod = "POST"
strResult = HTTPObj.GetURL
%>

Agora, na moleza, assim, entregar o código pronto, de graça, ninguém aqui no Fórum faz isso.

Na realidade, este tipo de pedido causa certo repúdio, já que todo mundo aqui é ocupado o bastante para não ficar trabalhando gratuitamente. O objetivo aqui é trocar informações, e não serviço.

Então, comece a trabalhar, e poste somente as dúvidas. Quem deve começar o ato de boa vontade é quem precisa de ajuda.

Boa sorte.

[Raphael_net]

precisa de componente?
qual?

poderia mandar um site para eu baixar?


valeu!!!!!!

[Agente Linhares]

o problema de compoentes no asp, é pq nem td é free..

naos ei se é este caso, mas s existem vários q sao pagos.

[viniciusjau]

Diferenças entre PHP e ASP

1. (ASP) <% 'Comentarios %>

1. (PHP) <? //Comentarios ?>

Ou

<?
/* ...linha1
...linha2
...linha3
......... */
?>


2. (ASP) <% variavel = "variaveis com qualquer nome" %>

2. (PHP) <? $variavel = "variaveis sempre com $ antes"; ?>


3. (ASP) <% Response.Write "O request retornado de nome é " & request("nome") %>

3. (PHP) <? print "O request retornado de nome é $nome"; ?>


4. (ASP) <% Response.Write "A variável a é igual a " & variavel_a & "!!!" %>

4. (PHP) <? print "A variável a é igual a $variavel_a !!!"; ?>

Ou

<? print "A variável a é igual a ".$variavel_a." !!!"; ?>


5. (ASP) <!--#INCLUDE FILE="ficheiro.asp" -->

5. (PHP) <? include "ficheiro.php"; ?>


6. (ASP)
<%
if a = 1 then
'tá certo
else
'tá errado
end if
%>

6. (PHP)
<?
if ($a == 1)
{ //tá certo }
else
{ //tá errado }
?>


7. (ASP) <% variavelservidor = request.servervariables("HTTP_USER_AGENT") %>

7. (PHP) <? $variavelservidor = $HTTP_USER_AGENT; ?>


8. (ASP) <% Response.Cookies("numero") = "1" %>

8. (PHP) <? SetCookie("numero","1"); ?>


9. (ASP) <% Response.Write CInt(a) %>

9. (PHP) <? print intval(a); ?>


10. (ASP) <% UBOUND(vararray) %>

10. (PHP) <? count($vararray); ?>


11. (ASP) <% response.write request.querystring("variavel") %>

11. (PHP) <? print $variavel; ?>


12. (ASP)
<%
Function funcao()
funcao = resposta
End Function
%>

12. (PHP)
function funcao()
{
return $resposta;
}


13. (ASP) <% variavel = variavel + 1 %>

13. (PHP) <? $variavel++; ?>


14. (ASP)
<%
SQLStmt = "SELECT campo1, campo2 "
SQLStmt = SQLStmt & "FROM tabela "
SQLStmt = SQLStmt & "WHERE campo1=1 "
SQLStmt = SQLStmt & "ODER BY campo2 ASC"
%>

14. (PHP)
<?
$SQLStmt = "SELECT campo1, campo2 ";
$SQLStmt .= "FROM tabela ";
$SQLStmt .= "WHERE campo1=1 ";
$SQLStmt .= "ODER BY campo2 ASC";
?>

15. (ASP)
<%
if a < 0 then
b = 0
else
b = a
end if
%>

15. (PHP)
<?
b = (a < 0) ? 0 : a;
?>