|
|
|
|
|
|
|
|
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"> </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
|
|
|
|
|
