ASP利用Google实现在线翻译功能

英语 翻译成 德语
英语 翻译成 西班牙语
英语 翻译成 法语
英语 翻译成 意大利语
英语 翻译成 葡萄牙语
英语 翻译成 日语 BETA
英语 翻译成 朝鲜语 BETA
英语 翻译成 中文(简体) BETA
德语 翻译成 英语
德语 翻译成 法语
西班牙语 翻译成 英语
法语 翻译成 英语
法语 翻译成 德语
意大利语 翻译成 英语
葡萄牙语 翻译成 英语
日语 翻译成 英语 BETA
朝鲜语 翻译成 英语 BETA
中文(简体) 翻译成 英语 BETA
” name=”Button1″ onClick=
“javascript:window.open
(‘translate.asp?urls=’+document.location+’&lan=’+lan.value,’_self’,”)”>

<%
‘on error resume next
‘ 如果网速很慢的话，可以调整以下时间。单位秒
Server.ScriptTimeout = 999999
‘========================================================
‘字符编码函数
‘========================================================
Function BytesToBstr(body,code) 
dim objstream 
set objstream = Server.CreateObject(“adodb.stream”) 
objstream.Type = 1 
objstream.Mode =3 
objstream.Open 
objstream.Write body 
objstream.Position = 0 
objstream.Type = 2 
objstream.Charset =code
BytesToBstr = objstream.ReadText 
objstream.Close 
set objstream = nothing 
End Function 

‘取行字符串在另一字符串中的出现位置
Function Newstring(wstr,strng) 
Newstring=Instr(lcase(wstr),lcase(strng)) 
if Newstring<=0 then Newstring=Len(wstr) 
End Function 
‘替换字符串函数
function ReplaceStr(ori,str1,str2)
ReplaceStr=replace(ori,str1,str2)
end function
‘=====================================================
function ReadXml(url,code,start,ends)
set oSend=createobject(“Microsoft.XMLHTTP”)
SourceCode = oSend.open (“GET”,url,false) 
oSend.send()
ReadXml=BytesToBstr(oSend.responseBody,code )
if(start=”” or ends=””) then
else
start=Newstring(ReadXml,start)
ReadXml=mid(ReadXml,start)
ends=Newstring(ReadXml,ends)
ReadXml=left(ReadXml,ends-1)
end if
end function
dim urlpage,lan
urlpage=request(“urls”)
lan=request(“lan”)
%>

<input type="text" name="urls" size="150" value="”>
<input type="hidden" name="lan" value="”>

<%
dim transURL
transURL=”http://216.239.39.104/translate_c?hl=zh-CN&ie
=UTF-8&oe=UTF-8&langpair=”&server.URLEncode(lan)&”&u=”&urlpage&”
&prev=/language_tools”
if(len(urlpage)>3) then
getcont=ReadXml(transURL,”gb2312″,””,””) 来源gao@dai!ma.com搞$代^码网
response.Write(getcont)
end if
%>