如何利用asp获取google翻译结果?
请问如何利用asp获取google翻译结果?

[解决办法]

VBScript code

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