国产探花免费观看_亚洲丰满少妇自慰呻吟_97日韩有码在线_资源在线日韩欧美_一区二区精品毛片,辰东完美世界有声小说,欢乐颂第一季,yy玄幻小说排行榜完本

首頁 > 編程 > ASP > 正文

ASP利用Google實現在線翻譯功能

2024-05-04 11:05:23
字體：大 中 小
來源：轉載
供稿：網友

有時我們希望為我們的網頁提供多語言支持，對于一種語言來說，使用網頁來制作真的太困難了，但是幸運的是，谷歌提供了語言工具。下面錯新技術頻道小編為你介紹如何使用它來實現網頁的不同語言之間的轉換。

復制代碼 代碼如下:

<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中的內容用來選擇要翻譯的語言包括原來的語言和要翻譯成的語言。我們只需要將lan.htm中的內容拷到提供多語言翻譯的頁面中就可以了。

?

?


<html>
<head>
<title>在線翻譯</title>
<meta?http-equiv="Content-Type"?content="text/html;?charset=utf-8">
</head>

<body>
<%
'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")
%>
<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>


上文是關于ASP利用Google實現在線翻譯功能的介紹，相信大家都了解了，更多的技術知識，請繼續關注錯新技術頻道！

發表評論 共有條評論
用戶名: 密碼:
驗證碼: 匿名發表
主站蜘蛛池模板： 深州市| 鄢陵县| 灯塔市| 馆陶县| 富锦市| 虹口区| 商南县| 易门县| 宜兴市| 和龙市| 饶河县| 凉山| 武安市| 洮南市| 武夷山市| 铜梁县| 枣强县| 泰来县| 五莲县| 于田县| 延安市| 清丰县| 聂拉木县| 驻马店市| 秦皇岛市| 麻江县| 新龙县| 大洼县| 乐陵市| 鄱阳县| 安化县| 五大连池市| 无极县| 额济纳旗| 泰兴市| 武乡县| 桑日县| 天祝| 牡丹江市| 靖远县| 丹寨县|