主頁 > 知識庫 > ASP Google的translate API代碼

ASP Google的translate API代碼

熱門標(biāo)簽:地圖標(biāo)注宅基地 長沙防封電銷卡品牌 騰訊地圖標(biāo)注商戶關(guān)閉 武漢營銷電話機(jī)器人軟件 西寧公司外呼系統(tǒng)平臺 外呼系統(tǒng)還用卡么 地圖標(biāo)注服務(wù)哪家好 徐州人工智能電銷機(jī)器人好用嗎 智能電銷機(jī)器人適用于哪些行業(yè)
直接看代碼:
復(fù)制代碼 代碼如下:

Class GoogleTranslator
sub Class_Initialize()
RURI="http://translate.google.com/translate_t?langpair={0}text={1}"
End Sub
Private Opt_ '
Property Get Opt
Opt=Opt_
End Property
Property Let Opt(Opt_s)
Opt_=Opt_s
End Property
Private RURI
Function AnalyzeChild(patrn,texts,IPos)
Dim regEx, Match, Matches
Set regEx = New RegExp
regEx.IgnoreCase = true
regEx.Global = True
regEx.Pattern = patrn
regEx.Multiline = True
Dim RetStr
Set Matches = regEx.Execute(texts)
If(Matches.Count > 0)Then RetStr= Matches(0).SubMatches(IPos)
AnalyzeChild=RetStr
Set regEx =Nothing
End Function
Function getHTTPPage(url)
dim objXML
set objXML=server.createobject("MSXML2.XMLHTTP")'定義
objXML.open "GET",url,false'打開
objXML.send()'發(fā)送
If objXML.readystate>4 then
exit function
End If
getHTTPPage=BytesToBstr(objXML.responseBody)
set objXML=nothing'關(guān)閉
if err.number>0 then err.Clear
End Function
Function BytesToBstr(body)
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 = "utf-8"
'轉(zhuǎn)換原來默認(rèn)的UTF-8編碼轉(zhuǎn)換成GB2312編碼,否則直接用XMLHTTP調(diào)用有中文字符的網(wǎng)頁得到的將是亂碼
BytesToBstr = objstream.ReadText
objstream.Close
set objstream = nothing
End Function
Public Function GetText(str)
If(isempty(str)) Then Exit Function
Dim newUrl,Rs
newUrl=Replace(Replace(RURI,"{0}",Server.URLEncode(Opt)),"{1}",Server.URLEncode(str))
Rs=getHTTPPage(newUrl)
GetText = AnalyzeChild("(div id=result_box dir=""ltr"">)([?:\s\S]*?)(/div>)",Rs,1)
End Function
Sub class_Terminate
End Sub
End Class


然后使用的時候:
復(fù)制代碼 代碼如下:

Dim Obj
Set Obj = new GoogleTranslator
Obj.Opt="zh-CN|en"
response.write(Obj.GetText("我們"))

然后就可以了,需要注意的是因為Google的任何產(chǎn)品都是UTF-8格式的,這個asp文件保存為UTF-8格式,并在開頭加上:
%@ LANGUAGE=VBScript CodePage=65001%>
%Option Explicit
'... 開抄我上面的代碼
就可以了。
您可能感興趣的文章:
  • php調(diào)用Google translate_tts api實現(xiàn)代碼
  • asp.net Google的translate工具翻譯 API
  • PHP Google的translate API代碼
  • JAVA (Jsp)利用Google的Translate開發(fā)API的代碼
  • 利用谷歌 Translate API制作自己的翻譯腳本

標(biāo)簽:鷹潭 普洱 運城 巴彥淖爾 通化 荊門 通遼 雅安

巨人網(wǎng)絡(luò)通訊聲明:本文標(biāo)題《ASP Google的translate API代碼》,本文關(guān)鍵詞  ASP,Google,的,translate,API,代碼,;如發(fā)現(xiàn)本文內(nèi)容存在版權(quán)問題,煩請?zhí)峁┫嚓P(guān)信息告之我們,我們將及時溝通與處理。本站內(nèi)容系統(tǒng)采集于網(wǎng)絡(luò),涉及言論、版權(quán)與本站無關(guān)。
  • 相關(guān)文章
  • 下面列出與本文章《ASP Google的translate API代碼》相關(guān)的同類信息!
  • 本頁收集關(guān)于ASP Google的translate API代碼的相關(guān)信息資訊供網(wǎng)民參考!
  • 推薦文章