<? /**********************************************************/ /* 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"; ?>
Passar Para Asp
#1
Posted 17/12/2004, 01:58
#2
Posted 17/12/2004, 06:45
Você quer que a gente converta esse código pra você ?
ASP ...............llllllllllllllllllllllllllllllllll
ASP.net...........llllllllllllllllllllllllllllllllll
SQL server..... llllllllllllllllllllllllllllllllll
MySQL............llllllllllllllllllllllllllllllllll
#3
Posted 17/12/2004, 10:44
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.
marcelo@mco2.com.br
______________________________
MCO2 - Hospedagem de Sites
http://www.mco2.com.br
** Transfira seu domínio e ganhe 60 dias de hospedagem gratuita **
________________________________
#4
Posted 17/12/2004, 22:18
qual?
poderia mandar um site para eu baixar?
valeu!!!!!!
#5
Posted 18/12/2004, 02:18
naos ei se é este caso, mas s existem vários q sao pagos.
---------------------------------------------------------------------------
> BRdesign.NET - Soluções em Websites e Sistemas E-Commerce.
---------------------------------------------------------------------------
> BR-ecommerce - Sua loja virtual na internet! - Apenas R$99,90 mensais (hospedagem inclusa)!
#6
Posted 05/01/2005, 14:42
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;
?>
1 user(s) are reading this topic
0 membro(s), 1 visitante(s) e 0 membros anônimo(s)