成都創(chuàng)新互聯(lián)網(wǎng)站改版中如給廣大用戶帶來不便請諒解！創(chuàng)新互聯(lián)專業(yè)成都網(wǎng)站建設(shè) 企業(yè)網(wǎng)站制作精美網(wǎng)頁設(shè)計網(wǎng)站建設(shè)服務(wù)熱線:028-869 2222 0

域名注冊

虛擬主機(jī)

虛擬主機(jī)相關(guān)知識
域名解析
網(wǎng)址URL轉(zhuǎn)發(fā)
轉(zhuǎn)入轉(zhuǎn)出及過戶
域名交易

網(wǎng)站建設(shè)

網(wǎng)站建設(shè)相關(guān)知識
域名解析
網(wǎng)址URL轉(zhuǎn)發(fā)
轉(zhuǎn)入轉(zhuǎn)出及過戶
域名交易

企業(yè)郵局

域名相關(guān)知識及購買
域名解析
網(wǎng)址URL轉(zhuǎn)發(fā)
轉(zhuǎn)入轉(zhuǎn)出及過戶
域名交易

網(wǎng)絡(luò)營銷

百度竟價排名
網(wǎng)站制作知識
網(wǎng)址URL轉(zhuǎn)發(fā)
轉(zhuǎn)入轉(zhuǎn)出及過戶
域名交易

網(wǎng)站備案

域名相關(guān)知識及購買
域名解析
網(wǎng)址URL轉(zhuǎn)發(fā)
轉(zhuǎn)入轉(zhuǎn)出及過戶
域名交易

服務(wù)器租用

服務(wù)器相關(guān)知識
域名解析
網(wǎng)址URL轉(zhuǎn)發(fā)
轉(zhuǎn)入轉(zhuǎn)出及過戶
域名交易

您的位置：創(chuàng)新互聯(lián) >> 網(wǎng)站建設(shè) >> 網(wǎng)站建設(shè)知識 >> ASP利用調(diào)用Google實現(xiàn)在線翻譯功能

網(wǎng)站建設(shè)ASP利用調(diào)用Google實現(xiàn)在線翻譯功能

王虎文章來源：網(wǎng)站建設(shè) 點擊數(shù)：1210 更新時間：2011-09-28
　　不知道各位設(shè)計師們在設(shè)計網(wǎng)站的時候，是否有過為我們的網(wǎng)頁提供多語言支持的想法呢？如果一種語言用一張網(wǎng)頁來做實在太麻煩了，幸好Google提供了語言工具功能，下面小編就介紹如何利用它來實現(xiàn)網(wǎng)頁多種語言之間的轉(zhuǎn)換。
　lan.htm
　<form>
<select name="lan">
<option value="en|de">英語翻譯成德語</option>
<option value="en|es">英語翻譯成西班牙語</option>
<option value="en|fr">英語翻譯成法語</option>
<option value="en|it">英語翻譯成意大利語</option>
<option value="en|pt">英語翻譯成葡萄牙語</option>
<option value="en|ja">英語翻譯成日語 BETA</option>
<option value="en|ko">英語翻譯成朝鮮語 BETA</option>
<option value="en|zh-CN" >英語翻譯成中文(簡體) BETA</option>
<option value="de|en">德語翻譯成英語</option>
<option value="de|fr">德語翻譯成法語</option>
<option value="es|en">西班牙語翻譯成英語</option>
<option value="fr|en">法語翻譯成英語</option>
<option value="fr|de">法語翻譯成德語</option>
<option value="it|en">意大利語翻譯成英語</option>
<option value="pt|en">葡萄牙語翻譯成英語</option>
<option value="ja|en">日語翻譯成英語 BETA</option>
<option value="ko|en">朝鮮語翻譯成英語 BETA</option>
<option value="zh-CN|en">中文(簡體) 翻譯成英語 BETA</option>
<input style="FONT-SIZE: 12px" type="button" value="Go->" name="Button1" onClick="javascript:window.open('translate.asp?urls='+document.location+'&lan='+lan.value,'_self','')">
</select>
</form>
　　lan.htm中的內(nèi)容用來選擇要翻譯的語言包括原來的語言和要翻譯成的語言。我們只需要將lan.htm中的內(nèi)容拷到提供多語言翻譯的頁面中就可以了。
translate.asp
<html>
<head>
<title>在線翻譯</title>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8">
</head>
<body>
<%
'on error resume next
' 如果網(wǎng)速很慢的話，可以調(diào)整以下時間。單位秒
Server.ScriptTimeout = 999999
'========================================================
'字符編碼函數(shù)
'========================================================
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
'取行字符串在另一字符串中的出現(xiàn)位置
Function Newstring(wstr,strng)
Newstring=Instr(lcase(wstr),lcase(strng))
if Newstring<=0 then Newstring=Len(wstr)
End Function
'替換字符串函數(shù)
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")
%>
<form method="post" action="translate.asp">
<input type="text" name="urls" size="150" value="<%=urlpage%>">
<input type="hidden" name="lan" value="<%=lan%>">
<input type="submit" value="submit">
</form>
<%
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","","")
response.Write(getcont)
end if
%>
</body>
</html>
上一篇文章：網(wǎng)站制作中html css文字環(huán)繞圖片編輯
下一篇文章：網(wǎng)站建設(shè)對企業(yè)的八大功效

服務(wù)電話：028-86922220 13518219792 公司地址：成都市太升南路288號錦天國際A幢1002號
支持信箱：service@cdxwcx.com 版權(quán)所有：創(chuàng)新互聯(lián)-成都網(wǎng)站建設(shè)網(wǎng)絡(luò)公司蜀ICP備13010860號
創(chuàng)新互聯(lián)成都專業(yè)網(wǎng)站建設(shè)：asp在線翻譯成都網(wǎng)站設(shè)計,成都網(wǎng)站制作,成都網(wǎng)站建設(shè),成都網(wǎng)頁制作,成都網(wǎng)頁設(shè)計,提高網(wǎng)站可信度

国产又黄又粗又长又大的视频-色婷婷久久一区二区爽爽爽-欧美日本韩国国产在线观-尹人香蕉琪琪在现观看