Наша веб-страница обеспечивает поддержку нескольких языков. Было бы слишком сложно использовать одну веб-страницу для одного языка. К счастью, Google предоставляет функцию языкового инструмента. Вот как ее использовать для преобразования веб-страниц между несколькими языками.
lan.htm
<форма>
<выберите имя=локальная сеть>
<option value=en|de>с английского на немецкий</option>
<option value=en|es>с английского на испанский</option>
<option value=en|fr>с английского на французский</option>
<option value=en|it>с английского на итальянский</option>
<option value=en|pt>с английского на португальский</option>
<option value=en|ja>Английский перевод на японский БЕТА</option>
<option value=en|ko>Английский перевод на корейский БЕТА</option>
<option value=en|zh-CN >Английский перевод на китайский (упрощенный) БЕТА</option>
<option value=de|en>с немецкого на английский</option>
<option value=de|fr>с немецкого на французский</option>
<option value=es|en>С испанского на английский</option>
<option value=fr|en>С французского на английский</option>
<option value=fr|de>С французского на немецкий</option>
<option value=it|en>С итальянского на английский</option>
<option value=pt|en>С португальского на английский</option>
<option value=ja|en>БЕТА-версия с японского на английский</option>
<option value=ko|en>БЕТА-версия с корейского на английский</option>
<option value=zh-CN|en>Китайский (упрощенный) переведен на английский БЕТА</option>
<input style=FONT-SIZE: 12px type=button value=Go-> name=Button1 onClick=javascript:window.open('translate.asp?urls='+document.location+'&lan='+lan.value,' _self','')>
</выбрать>
</форма>
Содержимое файла lan.htm используется для выбора языка для перевода, включая исходный язык и язык для перевода. Нам нужно только скопировать содержимое lan.htm на страницу, обеспечивающую многоязычный перевод.
переводчик.asp
<html>
<голова>
<title>Онлайн-перевод</title>
<meta http-equiv=Content-Type content=text/html charset=utf-8>
</голова>
<тело>
<%
'в случае ошибки продолжить дальше
' Если скорость Интернета очень низкая, вы можете настроить следующее время. Единица секунды
Сервер.ScriptTimeout = 999999
'============================================== = =======
'Функция кодировки символов
'============================================== = =======
Функция BytesToBstr(тело,код)
тусклый объектный поток
установить objstream = Server.CreateObject(adodb.stream)
objstream.Type = 1
objstream.Mode =3
objstream.Открыть
objstream.Напишите тело
objstream.Position = 0
objstream.Type = 2
objstream.Charset = код
BytesToBstr = objstream.ReadText
objstream.Close
установить objstream = ничего
Конечная функция
'Получаем позицию вхождения строки в другую строку
Функция Newsstring(wstr,strng)
Newstring=Instr(lcase(wstr),lcase(strng))
если Newstring<=0, то Newstring=Len(wstr)
Конечная функция
'Заменить строковую функцию
функция replaceStr(ori,str1,str2)
replaceStr=заменить(ori,str1,str2)
конечная функция
'============================================== = ====
функция ReadXml(url,код,начало,окончание)
установите oSend=createobject(Microsoft.XMLHTTP)
SourceCode = oSend.open (GET,url,false)
oSend.send()
ReadXml=BytesToBstr(oSend.responseBody,code )
если(начало= или концы=) тогда
еще
start=Новостная строка(ReadXml,start)
ReadXml = середина (ReadXml, начало)
Концы = Строка новостей (ReadXml, концы)
ReadXml=left(ReadXml,ends-1)
конец, если
конечная функция
тусклый URL-адрес, локальная сеть
urlpage = запрос (URL-адреса)
локальная сеть = запрос (локальная сеть)
%>
<метод формы=post action=translate.asp>
<тип ввода=имя текста=размер URL=150 значение=<%=urlpage%>>
<тип ввода=скрытое имя=значение локальной сети=<%=lan%>>
<тип ввода=отправить значение=отправить>
</форма>
<%
тусклый трансURL
transURL=http://216.239.39.104/translate_c?hl=zh-CN&ie=UTF-8&oe=UTF-8&langpair=&server.URLEncode(lan)&&u=&urlpage&&prev=/language_tools
если(len(urlpage)>3), то
getcont = ReadXml(transURL,gb2312,,)
ответ.Запись(getcont)
конец, если
%>
</тело>
</html>