Ver Mensaje Individual
  #4 (permalink)  
Antiguo 06/05/2010, 06:00
Avatar de Adler
Adler
Colaborador
 
Fecha de Ingreso: diciembre-2006
Mensajes: 4.671
Antigüedad: 17 años, 10 meses
Puntos: 126
Respuesta: Actualizar Twitter desde ASP

Hola

Tiene muchas mas aplicaciones. Por ejemplo

Código ASP:
Ver original
  1. <html>
  2. <head>
  3. <style type="text/css">
  4. #resultado  {
  5. background: #FFFFFF;
  6. color: #000000;
  7. border: 1px solid #C9C9C9;border-width: 1px 1px 1px 1px;
  8. font: 11px tahoma, verdana, geneva, lucida, 'lucida grande', arial, helvetica, sans-serif;
  9. width: width:100%
  10. }
  11. </style>
  12. </head>
  13. <body>
  14. <%
  15. IF Request.QueryString("traducir") = "si" then
  16. set http_obj = server.createObject("Microsoft.XMLHTTP")
  17. url = "http://es.babelfish.yahoo.com/translate_txt?id=UTF-8&doit=done&fr=bf-res&intl=1&tt=urltext&trtext="&Request.QueryString(("palabra")&"&lp=es_en&btnTrTxt=Traducir"
  18. http_obj.Open "GET", url, False
  19.  
  20. ' Se envia la petición
  21. http_obj.Send()
  22.  
  23. ' Se recibe la petición
  24. codigo = Server.HTMLEncode(http_obj.responseText)
  25.  
  26. ' Se busca en la respuesta la porción de texto que nos interesa
  27. pos = instr(codigo, "0.6em;&quot;&gt;")
  28. corte = mid(codigo,pos+16,len(codigo))
  29. pos2 = instr(corte ,"&")
  30. txt_traducido =  mid(corte,1,pos2-1)
  31. END IF
  32. %>
  33. <form action="traducir_pagina.asp" method="get">
  34. <textarea name="palabra" cols="40" rows="10"><%=Request.QueryString(("palabra")%></textarea><br />
  35. <input type="hidden" name="traducir" value="si" />
  36. <input type="submit">
  37. </form>
  38. <div id="resultado"><strong>Traducci&oacute;n</strong><div style="padding:0.6em;"><%=txt_traducido%></div></div>
  39. </body>
  40. </html>
__________________
Los formularios se envían/validan con un botón Submit
<input type="submit" value="Enviar" style="background-color:#0B5795; font:bold 10px verdana; color:#FFF;" />