如何利用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的解析器就可以了 求编程实现 带来路的 刷流量的思路 如何判断一字符串在一个数组中 求教通过VB设置指定网站地址为默认首页的方法! 连接oracle数据库出错,请大家给看看。 如何在模块里存储数据 SSTAB1控件总共有3页,怎样判断当前页是第几页? 谁有条形码和VB接口原代码 如何判断哪些form是用户看得到的 再问:如何实现Datagrid的自动添加空行记录的问题 VB连接access数据库执行查询报错 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")