ASPGoogle的translateAPI代码

ClassGoogleTranslator
subClass_Initialize()
RURI="http://translate.google.com/translate_t?langpair={0}&text={1}"
EndSub
PrivateOpt_"
PropertyGetOpt
Opt=Opt_
EndProperty
PropertyLetOpt(Opt_s)
Opt_=Opt_s
EndProperty
PrivateRURI
FunctionAnalyzeChild(patrn,texts,IPos)
DimregEx,Match,Matches
SetregEx=NewRegExp
regEx.IgnoreCase=true
regEx.Global=True
regEx.Pattern=patrn
regEx.Multiline=True
DimRetStr
SetMatches=regEx.Execute(texts)
If(Matches.Count>0)ThenRetStr=Matches(0).SubMatches(IPos)
AnalyzeChild=RetStr
SetregEx=Nothing
EndFunction
FunctiongetHTTPPage(url)
dimobjXML
setobjXML=server.createobject("MSXML2.XMLHTTP")"定义
objXML.open"GET",url,false"打开
objXML.send()"发送
IfobjXML.readystate<>4then
exitfunction
EndIf
getHTTPPage=BytesToBstr(objXML.responseBody)
setobjXML=nothing"关闭
iferr.number<>0thenerr.Clear
EndFunction
FunctionBytesToBstr(body)
dimobjstream
setobjstream=Server.CreateObject("adodb.stream")
objstream.Type=1
objstream.Mode=3
objstream.Open
objstream.Writebody
objstream.Position=0
objstream.Type=2
objstream.Charset="utf-8"
"转换原来默认的UTF-8编码转换成GB2312编码，否则直接用XMLHTTP调用有中文字符的网页得到的将是乱码
BytesToBstr=objstream.ReadText
objstream.Close
setobjstream=nothing
EndFunction
PublicFunctionGetText(str)
If(isempty(str))ThenExitFunction
DimnewUrl,Rs
newUrl=Replace(Replace(RURI,"{0}",Server.URLEncode(Opt)),"{1}",Server.URLEncode(str))
Rs=getHTTPPage(newUrl)
GetText=AnalyzeChild("(<divid=result_boxdir=""ltr"">)([?:\s\S]*?)(</div>)",Rs,1)
EndFunction
Subclass_Terminate
EndSub
EndClass