如何利用asp获取google翻译结果? 请问如何利用asp获取google翻译结果? 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 http://code.google.com/intl/zh-CN/apis/language/translate/overview.html是不是这个啊? google翻译的API 'sq 阿尔巴尼亚语 'ar 阿拉伯语 'ga 爱尔兰语 'et 爱沙尼亚语 'be 白俄罗斯语 'bg 保加利亚语 'is 冰岛语 'pl 波兰语 'fa 波斯语 'af 布尔文(南非荷兰语) 'da 丹麦语 'de 德语 'ru 俄语 'fr 法语 'tl 菲律宾语 'fi 芬兰语 'ko 韩语 'nl 荷兰语 'gl 加利西亚语 'ca 加泰罗尼亚语 'cs 捷克语 'hr 克罗地亚语 'lv 拉脱维亚语 'lt 立陶宛语 'ro 罗马尼亚语 'mt 马耳他语 'ms 马来语 'mk 马其顿语 'no 挪威语 'pt 葡萄牙语 'ja 日语 'sv 瑞典语 'sr 塞尔维亚语 'sk 斯洛伐克语 'sl 斯洛文尼亚语 'sw 斯瓦希里语 'th 泰语 'tr 土耳其语 'cy 威尔士语 'uk 乌克兰语 'es 西班牙语 'iw 希伯来语 'el 希腊语 'hu 匈牙利语 'it 意大利语 'yi 意第绪语 'hi 印地语 'id 印尼语 'en 英语 'vi 越南语 'zh 中文 'zh-TW 中文(繁体) 'zh-CN 中文(简体)Function Translate(Data,SourceLanguage,ObjectLanguage) Dim XML,URL Set xml=Server.CreateObject("WinHttp.WinHttpRequest.5.1") XML.Option(4) = 13056 XML.Option(6) = 0 XML.Option(13) = 1 URL = "http://ajax.googleapis.com/ajax/services/language/translate" '翻译语言 URL = URL & "?" & "v=1%2E0&format=text&langpair=" & SourceLanguage & "%7C" & ObjectLanguage & "&q=" & ESCape(data) XML.Open "GET", URL XML.Send Translate=XML.ResponseText Set XML=NothingEnd FunctionResponse.write Translate("你好","zh","en") 返回的数据是JSON格式的,去找个解析json的解析器就可以了 DataList问题 vb多媒体,图像保存问题. 如何改变listView控件里面items的颜色? 安装程序还未搞定!在2000下可正常安装,在98是遇到问题停止安装,请各位好心人再帮一下!100分!在线等! 哪位高手可以贴个 完整的代码啊?不甚感谢! 给大家推荐一个背单词软件,我自己用过,非常好用。http://ri-soft.vip.sina.com 如何用VB保护系统时间 MDI子窗体问题 怎样才能拒绝ctrl+alt+del的事件 怎样定义一个类,以及它的成员和方法,试举例说明? VB 这种ADODC是什么原因?
是不是这个啊? google翻译的API
'sq 阿尔巴尼亚语
'ar 阿拉伯语
'ga 爱尔兰语
'et 爱沙尼亚语
'be 白俄罗斯语
'bg 保加利亚语
'is 冰岛语
'pl 波兰语
'fa 波斯语
'af 布尔文(南非荷兰语)
'da 丹麦语
'de 德语
'ru 俄语
'fr 法语
'tl 菲律宾语
'fi 芬兰语
'ko 韩语
'nl 荷兰语
'gl 加利西亚语
'ca 加泰罗尼亚语
'cs 捷克语
'hr 克罗地亚语
'lv 拉脱维亚语
'lt 立陶宛语
'ro 罗马尼亚语
'mt 马耳他语
'ms 马来语
'mk 马其顿语
'no 挪威语
'pt 葡萄牙语
'ja 日语
'sv 瑞典语
'sr 塞尔维亚语
'sk 斯洛伐克语
'sl 斯洛文尼亚语
'sw 斯瓦希里语
'th 泰语
'tr 土耳其语
'cy 威尔士语
'uk 乌克兰语
'es 西班牙语
'iw 希伯来语
'el 希腊语
'hu 匈牙利语
'it 意大利语
'yi 意第绪语
'hi 印地语
'id 印尼语
'en 英语
'vi 越南语
'zh 中文
'zh-TW 中文(繁体)
'zh-CN 中文(简体)Function Translate(Data,SourceLanguage,ObjectLanguage)
Dim XML,URL
Set xml=Server.CreateObject("WinHttp.WinHttpRequest.5.1")
XML.Option(4) = 13056
XML.Option(6) = 0
XML.Option(13) = 1
URL = "http://ajax.googleapis.com/ajax/services/language/translate" '翻译语言
URL = URL & "?" & "v=1%2E0&format=text&langpair=" & SourceLanguage & "%7C" & ObjectLanguage & "&q=" & ESCape(data)
XML.Open "GET", URL
XML.Send
Translate=XML.ResponseText
Set XML=Nothing
End FunctionResponse.write Translate("你好","zh","en")