Recomendado: ASP Basic Tutorial: outros componentes comumente usados de ASP Quando você usa o ASP para escrever aplicativos do lado do servidor, você deve confiar nos componentes ActiveX para as funções dos poderosos aplicativos da web, como: você precisa se conectar ao banco de dados, operar o banco de dados online etc. 1. Os componentes dos recursos do navegador são bem conhecidos e não
Às vezes, quero fornecer suporte multi-idioma para nossas páginas da web. É muito problemático usar uma página da web para um idioma. Felizmente, o Google fornece funções da ferramenta de idiomas. A seguir, descreve como usá -lo para converter páginas da Web entre vários idiomas.
Lan.htm
| A seguir, o conteúdo citado: <morm> <Selecione Nome = LAN> <opção valor = en | de> inglês para alemão </pption> <opção value = en | es> tradução em inglês para espanhol </pption> <opção valor = en | fr> tradução em inglês para francês </pption> <opção value = en | it> tradução em inglês para italiano </pption> <opção value = en | pt> tradução em inglês para português </pption> <opção valor = en | ja> tradução em inglês para beta japonês </pption> <opção valor = en | ko> tradução em inglês para beta coreana </pption> <opção valor = en | zh-cn> tradução em inglês para chinês (chinês simplificado) </pption> <opção valor = de | en> alemão para inglês </pption> <opção valor = de | fr> alemão para francês </pption> <opção value = es | en> tradução para espanhol para inglês </pption> <opção value = fr | en> tradução francesa para inglês </pption> <opção valor = fr | de> tradução em francês para alemão </pption> <opção value = it | en> italiano para inglês </pption> <opção value = pt | en> tradução portuguesa para inglês </pption> <opção valor = ja | en> japonês para inglês beta </pption> <opção valor = ko | en> tradução coreana para beta em inglês </pption> <opção value = zh-cn | en> chinês (simplificado) tradução para beta em inglês </pption> <estilo de entrada = font-size: 12px tipo = valor do botão = go- & gt; Nome = Button1 OnClick = JavaScript: Window.open ('Tradlate.asp? Urls =' Document.Location '& Lan =' Lan.value, '_ self', '')> </leclect> </morm> |
O conteúdo no LAN.HTM é usado para selecionar o idioma a ser traduzido, incluindo o idioma original e o idioma a ser traduzido. Só precisamos copiar o conteúdo no LAN.HTM para uma página que fornece tradução multilíngue.
Tradlate.asp
| A seguir, o conteúdo citado: <html> <head> <title> Tradução online </ititure> <meta http-equiv = content-type content = text/html; charset = utf-8> </head> <Body> <% 'No erro de erro 'Se a velocidade da Internet for muito lenta, você poderá ajustar o seguinte tempo. Segundos de unidade Server.scriptTimeout = 999999 '================================================================================ 'Função de codificação de caracteres '================================================================================ Função bytestobstr (corpo, código) objStream dim set objStream = server.createObject (adodb.stream) objstream.type = 1 objstream.mode = 3 objstream.open objstream.write corpo objstream.Position = 0 objstream.type = 2 objstream.charset = código Bytestobstr = objStream.readText objstream.close definir objstream = nada Função final 'Busca a posição de ocorrência da sequência de linha em outra string Função de notícias (WSTR, STRNG) Nestring de notícias = Instr (lcase (WSTR), lcase (strng)) Se a história de notícias <= 0, então as notícias = len (WSTR) Função final 'Substitua a função da string função replacest (ori, str1, str2) Replacest = reply (ori, str1, str2) Função final '=========================================================================== função readxml (url, código, start, termina) SET OSEND = CreateObject (Microsoft.xmlHttp) SourCecode = OSEND.OPEN (GET, URL, FALSE) Osend.send () Readxml = bytestobstr (Osend.Responsebody, código) if (start = ou termina =) então outro Start = Newstring (readxml, start) Readxml = mid (readxml, start) termina = newstring (readxml, termina) Readxml = esquerda (readxml, ends-1) final se Função final Dim Urlpage, LAN urlpage = solicitação (URLs) LAN = solicitação (LAN) %> <Form Method = Post Action = Tradlate.asp> <Tipo de entrada = Nome do texto = Tamanho dos URLs = 150 Valor = <%= URLPAGE%>> <Tipo de entrada = Nome oculto = Valor LAN = <%= LAN%>> <Tipo de entrada = Submite Value = Enviar> </morm> <% 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 =/linguy_tools if (len (urlpage)> 3) então getCont = readxml (transurl, gb2312 ,,) Response.write (getCont) final se %> </body> </html> |
TRANSTEM.asp implementa a função de tradução, que é implementada usando as ferramentas de idioma do Google.
Observe que, como o suporte multilíngue é fornecido, a codificação usada pelo arquivo translate.asp é UTF-8 que suporta todos os caracteres.
Compartilhar: Torne a janela pop-up "obediente" um pouco Os pop -ups aparecerão ao entrar em alguns sites enquanto navegam na Internet. Pode ser uma saudação gentil do webmaster para você, ou pode ser um anúncio importante do site, anúncios do site etc. Mas se você o usar mal, isso fará com que as pessoas se sintam entediadas. Como fazer os pop-ups funcionarem sem afetar a navegação