Рекомендуется: ASP Basic Учебное пособие: другие часто используемые компоненты ASP Когда вы используете ASP для написания приложений на стороне сервера, вы должны полагаться на компоненты ActiveX для мощных функций веб-приложений, таких как: вам необходимо подключиться к базе данных, эксплуатировать базу данных онлайн и т. Д. 1. Компоненты возможностей браузера хорошо известны и не имеют
Иногда я хочу оказать многоязычную поддержку для наших веб-страниц. Слишком трудно использовать одну веб -страницу для одного языка. К счастью, Google предоставляет функции языковых инструментов. Ниже описывается, как использовать его для преобразования веб -страниц между несколькими языками.
lan.htm
| Ниже приведено цитируемое содержание: <форма> <select name = lan> <vitor value = en | de> английский на немецкий </option> <опция value = en | es> английский перевод на испанский </option> <option value = en | fr> английский перевод на французский </option> <опция value = en | it> английский перевод на итальянский </option> <опция value = en | pt> английский перевод на португальский </option> <опция value = en | ja> английский перевод в японскую бета </option> <опция value = en | ko> английский перевод в корейский бета </option> <опция значение = en | zh-cn> английский перевод на китайский (упрощенная китайская) бета </option> <vitor value = de | en> немецкий до английского </option> <значение опции = de | fr> немецкий на французский </option> <опция значение = es | en> испанский перевод на английский </option> <опция значение = fr | en> французский перевод на английский </option> <vitor value = fr | de> французский перевод на немецкий </option> <vitor value = it | en> итальянский на английский </option> <vitor value = pt | en> Португальский перевод на английский </option> <vitor value = ja | en> японское до английского бета </option> <значение опции = ko | en> корейский перевод на английский бета </option> <значение опции = zh-cn | en> китайский (упрощенный) перевод на английский бета </option> <input style = font-size: 12px type = кнопка значение = go- & gt; name = button1 onclick = javascript: window.open ('translate.asp? urls =' document.location '& lan =' lan.value, '_ self', '')> </select> </form> |
Содержание в LAN.HTM используется для выбора языка, который будет переведен, включая исходный язык и язык, который будет переведен. Нам просто нужно скопировать контент в lan.htm на страницу, которая обеспечивает многоязычный перевод.
translate.asp
| Ниже приведено цитируемое содержание: <html> <голова> <название> онлайн перевод </title> <meta http-equiv = content-type content = text/html; charset = utf-8> </head> <тело> <% 'При ошибке резюме следующим «Если скорость интернета очень медленная, вы можете настроить следующее время. ЕДИНЦИОННЫЕ СЕКОТОРЫ Server.ScriptTimeout = 999999 '=============================================================================== 'Функция кодирования персонажа '=============================================================================== Функция Bytestobstr (Body, Code) Dim objstream Установить objstream = server.createObject (adodb.stream) objstream.type = 1 objstream.mode = 3 objstream.open objstream.write Тело objstream.position = 0 objstream.type = 2 objstream.charset = code Bytestobstr = objstream.readtext objstream.close установить objstream = ничего Конечная функция 'Принесите позицию возникновения строки строки в другой строке Функция Newsstring (WSTR, STRNG) Newsstring = instr (Lcase (WSTR), Lcase (Strng)) Если Newsstring <= 0, то Newsstring = Len (WSTR) Конечная функция 'Заменить строковую функцию Функция Replacestr (Ori, Str1, Str2) Replacestr = reply (ori, str1, str2) конечная функция '============================================================================= Функция readxml (URL, код, запуск, концы) Установить osend = createObject (microsoft.xmlhttp) Sourcecode = osend.open (get, url, false) osend.send () Readxml = bytestobstr (osend.responsebody, code) if (start = или ends =), затем еще Start = Newstring (Readxml, Start) Readxml = mid (readxml, start) ENDS = NEWSTRING (ReadXML, ENDS) Readxml = слева (readxml, ends-1) конец, если конечная функция Dim urlpage, LAN urlpage = запрос (URL) LAN = запрос (LAN) %> <form method = post action = translate.asp> <input type = text name = urls size = 150 value = <%= urlpage%>> <input type = hidden name = lan value = <%= lan%>> <input type = отправить значение = отправить> </form> <% Dim Transurl transurl = http: //216.239.39.104/translate_c? hl = zh-cn & ie = utf-8 & oe = utf-8 & langpair = & server.urlencode (lan) && u = & urlpage && prev./ranguage_tools if (len (urlpage)> 3) тогда getCont = readxml (Transurl, GB2312 ,,) response.write (getCont) конец, если %> </body> </html> |
Translate.asp реализует функцию перевода, которая реализуется с использованием языковых инструментов Google.
Обратите внимание, что, поскольку предоставляется многоязычная поддержка, кодирование, используемое файлом translate.asp, является UTF-8, которая поддерживает все символы.
Поделиться: сделать всплывающее окно «послушным» немного Посчеты появятся при входе на некоторые веб -сайты во время серфинга в Интернете. Это может быть доброжелательное приветствие от веб -мастера к вам, или это может быть важным объявлением о веб -сайте, рекламе веб -сайтов и т. Д. Но если вы плохо его используете, это заставит людей чувствовать себя скучно. Как сделать всплывающие окна работать, не влияя на просмотр