После написания предыдущей статьи на PHP с использованием Google Translate API мне вдруг захотелось создать класс ASP, чтобы пользователи asp могли его использовать. Потом я начал писать и обнаружил, что многое забыл про asp. Например, тема, идея точно такая же, как и в статье C#, я просто преобразовал ее в метод реализации ASP. Посмотрите непосредственно на код:
Скопируйте код кода следующим образом:
Класс GoogleTranslator
подкласс_инициализировать()
RURI=http://translate.google.com/translate_t?langpair={0}&text={1}
Конец субтитра
Частный вариант_ '
Приобретение недвижимости
Опт=Опт_
Конечная собственность
Свойство Let Opt(Opt_s)
Опт_=Опт_с
Конечная собственность
Частный РУРИ
Функция AnalyseChild(patrn,texts,IPos)
Тусклое регулярное выражение, Матч, Матчи
Установить регулярное выражение = Новое регулярное выражение
regEx.IgnoreCase = правда
regEx.Global = Истина
regEx.Pattern = шаблон
regEx.Multiline = Истина
ДимРетСтр
Установить совпадения = regEx.Execute(тексты)
If(Matches.Count > 0)Then RetStr= Matches(0).SubMatches(IPos)
АнализЧилд=RetStr
Установить регулярное выражение = Ничего
Конечная функция
Функция getHTTPPage(url)
тусклый объект objXML
установите определение objXML=server.createobject(MSXML2.XMLHTTP)'
objXML.open GET,url,false'open
objXML.send()'send
Если objXML.readystate<>4, то
функция выхода
Конец, если
getHTTPPage=BytesToBstr(objXML.responseBody)
установить objXML=ничего'закрыть
если err.number<>0, то err.Clear
Конечная функция
Функция BytesToBstr(тело)
тусклый объектный поток
установить objstream = Server.CreateObject(adodb.stream)
objstream.Type = 1
objstream.Mode =3
objstream.Открыть
objstream.Напишите тело
objstream.Position = 0
objstream.Type = 2
objstream.Charset = utf-8
'Преобразуйте исходную кодировку UTF-8 по умолчанию в кодировку GB2312, иначе прямое использование XMLHTTP для вызова веб-страницы с китайскими символами приведет к искажению кода.
BytesToBstr = objstream.ReadText
objstream.Close
установить objstream = ничего
Конечная функция
Открытая функция GetText(str)
Если(isempty(str)) Тогда выход из функции
Тусклый новый URL, рупий
newUrl=Replace(Replace(RURI,{0},Server.URLEncode(Opt)),{1},Server.URLEncode(str))
Rs=getHTTPPage(newUrl)
GetText = AnalyseChild((<div id=result_box dir=ltr>)([?:/s/S]*?)(</div>),Rs,1)
Конечная функция
Подкласс_Завершить
Конец субтитра
Конечный класс
Затем при использовании:
Скопируйте код кода следующим образом:
ДимОбж
Установить Obj = новый GoogleTranslator
Obj.Opt=zh-CN|en
response.write(Obj.GetText(нас))
Тогда все. Следует отметить, что поскольку все продукты Google имеют формат UTF-8, этот файл asp сохраняется в формате UTF-8 и добавляется в начало:
<%@ LANGUAGE=Кодовая страница VBScript=65001%>
<%Option Явный
'... Скопируйте мой код выше
Вот и все.