USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  Dicas

  ASP - Active Server Page    (Miscelâneas)

Título da Dica:  Tradutor de idiomas
Postada em 28/9/2005 por H e n n y         
<%@ Language=VBScript %>
<HTML><HEAD>
<TITLE>Tradutor de idiomas</TITLE>
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
</HEAD>
<BODY>
<%
lang = Request("lang") & ""
i = LEFT(lang,2)
o = RIGHT(lang,2)

function getFrench(var)
on error resume next
  set xmlhttp = server.CreateObject("Msxml2.XMLHTTP")
  strURL = "http://translate.google.com/translate_t"
  xmlhttp.open "POST", strURL, false
  xmlhttp.setRequestHeader "Content-Type","application/x-www-form-urlencoded"

  xmlhttp.send "text=" + var + "&langpair=" & i & "|" & o & "&hl=" & i & "&ie=UTF-8&oe=UTF-8"
  
  if err.number = 0 then
    sText = xmlhttp.responseText
    x = 0
    alldata = sText
    Do Until x = 1
          x = x + 1
          
          findstart=instr(alldata,"<textarea")
          findend=instr(alldata,"</textarea>")
          findlength = findend - findstart
          tag = mid(alldata,findstart, findlength) & "</textarea><br>"
          ''Response.Write tag
          
          ''DELETE BEGINNING textarea tag in its entirety
          findstart = instr(tag,"<")
          findend = instr(tag, ">")
          findlength = findend - findstart
          tag = Replace(tag, mid(tag,findstart,findlength +1), "")
          
          ''DELETE ENDING textarea tag in its entirety
          findstart = instr(tag,"<")
          findend = instr(tag, ">")
          findlength = findend - findstart
          tag = Replace(tag, mid(tag,findstart,findlength +1), "")
          
          ''TRANSLATION SHOULD BE ALL THAT IS LEFT IN tag variable
          Response.Write tag
                    
          alldata = Replace(alldata,Left(alldata,findend), "")
     Loop
  end if
end function
%>
<p style="text-align: left">&nbsp;</p>
<p><u><font size="3">Tradutor de idiomas</font></u></p>
<center>
<form name="frmTradutor" method="POST" >
<table width="348">
     <tr>
          <td>
               <textarea name="french" cols="65" rows="10"><%=request("french")%></textarea>
          </td>
     </tr>
     
     <tr>
          <td align="right">
               <select name="lang">
                    <option value="pt|en" <%if lang="pt|en" then%> Traduzir <%end if%>>
                    Português/Inglês</option>
                    <option value="en|de" <%if lang="en|de" then%> Traduzir <%end if%>>
                    Inglês/Alemão</option>
                    <option value="en|es" <%if lang="en|es" then%> Traduzir <%end if%>>
                    Inglês/Espanhol</option>
                    <option value="en|fr" <%if lang="en|fr" then%> Traduzir <%end if%>>
                    Inglês/Frencês</option>
                    <option value="en|it" <%if lang="en|it" then%> Traduzir <%end if%>>
                    Inglês/Italiano</option>
                    <option value="en|pt" <%if lang="en|pt" then%> Traduzir <%end if%>>
                    Inglês/Portuguese</option>
                    <option value="en|ja" <%if lang="en|ja" then%> Traduzir <%end if%>>
                    Inglês/Japonês(beta)</option>
                    <option value="en|ko" <%if lang="en|ko" then%> Traduzir <%end if%>>
                    Inglês/Koreano(beta)</option>
                    <option value="en|zh" <%if lang="en|zh" then%> Traduzir <%end if%>>
                    Inglês/Chinês(beta)</option>
                    <option value="de|en" <%if lang="de|en" then%> Traduzir <%end if%>>
                    Alemão/Inglês</option>
                    <option value="de|fr" <%if lang="de|fr" then%> Traduzir <%end if%>>
                    Alemão/French</option>
                    <option value="es|en" <%if lang="es|en" then%> Traduzir <%end if%>>
                    Espanhol/Inglês</option>
                    <option value="fr|en" <%if lang="fr|en" then%> Traduzir <%end if%>>
                    Francês/Inglês</option>
                    <option value="fr|de" <%if lang="fr|de" then%> Traduzir <%end if%>>
                    Francês/Alemão</option>
                    <option value="it|en" <%if lang="it|en" then%> Traduzir <%end if%>>
                    Italiano/Inglês</option>
                    <option value="ja|en" <%if lang="ja|en" then%> Traduzir <%end if%>>
                    Japonês/Inglês</option>
                    <option value="ko|en" <%if lang="ko|en" then%> Traduzir <%end if%>>
                    Koreano/Inglês</option>
                    <option value="zh-CN" <%if lang="zh-CN" then%> Traduzir <%end if%>>
                    Chinês(simplificado)/Inglês</option>
               </select>
               <input type="submit" value="submeter" id=submetl name=submeter class="submit">
          </td>
     </tr>
     <tr>
          <td>
               <input type="hidden" name="action" value="translate"><br>
          </td>
     </tr>
     <tr>
          <td>
<%
if request("action") & "" = "translate" then
     Response.Write "Tradução: "
     getFrench request("french")
end if
%>          
          </td>
     </tr>
</table>
</form>
</center>

</BODY>
</HTML>

'Josefh Hennyere
 


CyberWEB Network Ltda.    © Copyright 2000-2024   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página