Recommandé: ASP Basic Tutorial: Autres composants couramment utilisés d'ASP Lorsque vous utilisez ASP pour écrire des applications côté serveur, vous devez compter sur les composants ActiveX vers des fonctions de puissantes applications Web, telles que: vous devez vous connecter à la base de données, faire fonctionner la base de données en ligne, etc. 1.
Parfois, je veux fournir un support multi-langues pour nos pages Web. Il est trop difficile d'utiliser une page Web pour une langue. Heureusement, Google fournit des fonctions d'outils linguistiques. Ce qui suit décrit comment l'utiliser pour convertir les pages Web entre plusieurs langues.
lan.htm
| Ce qui suit est le contenu cité: <formulaire <select name = lan> <Valeur d'option = en | de> anglais vers l'allemand </opoption> <Valeur d'option = en | es> Traduction en anglais en espagnol </opoption> <Valeur d'option = en | Fr> Traduction anglaise en français </ option> <Valeur d'option = EN | IT> Traduction en anglais en italien </opoption> <Valeur d'option = en | PT> Traduction anglaise en portugais </ Option> <Valeur d'option = en | Ja> Traduction anglaise dans la bêta japonaise </opoption> <Valeur d'option = en | KO> Traduction anglaise en bêta coréen </opoption> <Valeur d'option = en | Zh-Cn> Traduction anglaise en chinois (chinois simplifié) Beta </opoption> <Valeur d'option = de | en> allemand vers l'anglais </opoption> <Valeur d'option = de | fr> allemand à français </opoption> <Valeur d'option = ES | EN> Traduction espagnole en anglais </option> <Valeur d'option = FR | EN> Traduction française en anglais </option> <Valeur d'option = FR | DE> Traduction française en allemand </ Option> <Valeur d'option = IT | EN> Italien vers l'anglais </opoption> <Valeur d'option = Pt | en> Traduction portugaise en anglais </opoption> <Valeur d'option = JA | EN> Japonais à l'anglais Beta </ Option> <Valeur d'option = KO | EN> Traduction coréenne en anglais bêta </opoption> <Valeur d'option = ZH-CN | EN> Chinois (simplifié) Traduction en anglais bêta </opoption> <STYLE INPUT = FONT-SIZE: 12PX Type = Button Value = Go- & gt; name = Button1 onClick = javascript: window.open ('tradlate.asp? urls =' document.location '& lan =' lan.value, '_ self', '')> </lect> </ form> |
Le contenu de LAN.htm est utilisé pour sélectionner la langue à traduire, y compris la langue d'origine et la langue à traduire. Nous avons juste besoin de copier le contenu dans lan.htm sur une page qui fournit une traduction multilingue.
traduire.asp
| Ce qui suit est le contenu cité: <html> <adal> <Title> Traduction en ligne </TITME> <meta http-equiv = contenu contenu contenu = text / html; charse = utf-8> </ head> <body> <% 'On Error Repume Suivant «Si la vitesse Internet est très lente, vous pouvez ajuster le temps suivant. Unité de secondes Server.scriptTimeout = 999999 '====================================================================. 'Fonction de codage des caractères '====================================================================. Fonction bytestobstr (corps, code) objstream sombre Définir ObjStream = Server.CreateObject (Adodb.Stream) objstream.type = 1 objstream.mode = 3 objstream.open OBJSTREAM.WRITE CORPS objstream.position = 0 objstream.type = 2 objstream.charset = code ByTestObstr = objstream.readText objstream.close définir objstream = rien Fonction finale 'Reprochez la position d'occurrence de la chaîne de ligne dans une autre chaîne Fonction Newsstring (WSTR, Strng) Newsstring = instr (lcase (wstr), lcase (strng))) Si newsstring <= 0 alors newsstring = len (wstr) Fonction finale 'Remplacer la fonction de chaîne Fonction Remplacestr (Ori, Str1, Str2) Remplacestr = remplacer (ORI, STR1, STR2) fonction finale '===================================================================. fonction readxml (URL, code, démarrage, fin) set osend = createObject (Microsoft.xmlhttp) SourceCode = OSEND.Open (Get, URL, FALSE) OSEND.SEND () Readxml = byTestObstr (osend.ResponseBody, code) si (start = ou se termine =) alors autre start = newstring (readxml, start) Readxml = mid (readxml, start) se termine = newstring (readxml, se termine) Readxml = gauche (readxml, endormi) terminer si fonction finale URLPAGE DIM URLPAGE = demande (URL) LAN = demande (LAN) %> <formulaire méthode = post-action = tradlate.asp> <entrée type = nom de texte = URLS size = 150 Value = <% = urlPage% >> <Type d'entrée = nom caché = Value LAN = <% = LAN% >> <Type d'entrée = soumettre une valeur = soumettre> </ form> <% TRANSURL DIM transurl = http: //216.239.39.104/translate_c? hl = zh-cn & ie = utf-8 & oe = utf-8 & langpair = & server.urlencode (lan) && u = & urlPage && prev = / lingots_tools if (len (urlpage)> 3) alors getCont = readxml (transurl, gb2312 ,,) Response.Write (getCont) terminer si %> </docy> </html> |
tradlate.asp implémente la fonction de traduction, qui est implémentée à l'aide des outils linguistiques de Google.
Notez que parce que le support multilingue est fourni, le codage utilisé par le fichier translate.asp est UTF-8 qui prend en charge tous les caractères.
Partager: rendre la fenêtre pop-up "obéissante" un peu Les fenêtres populaires apparaîtront lors de la saisie de certains sites Web lors de la navigation sur Internet. Cela peut être une gentille salutation du webmaster pour vous, ou cela peut être une annonce importante du site Web, des publicités de site Web, etc. Mais si vous l'utilisez mal, cela fera que les gens s'ennuient. Comment faire fonctionner les pop-ups sans affecter la navigation