The code copy is as follows:
Sometimes I want to provide multi-language support for our web pages. It is too troublesome to use one web page for one language. Fortunately, Google provides language tool functions. The following describes how to use it to convert web pages between multiple languages.
lan.htm
<form>
<selectname="lan">
<optionvalue="en|de">English to German</option>
<optionvalue="en|es">English translation into Spanish</option>
<optionvalue="en|fr">English to French</option>
<optionvalue="en|it">English translation into Italian</option>
<optionvalue="en|pt">English translation into Portuguese</option>
<optionvalue="en|ja">English to Japanese BETA</option>
<optionvalue="en|ko">English translation into Korean BETA</option>
<optionvalue="en|zh-CN">English translation into Chinese (simplified)BETA</option>
<optionvalue="de|en">German to English</option>
<optionvalue="de|fr">German to French</option>
<optionvalue="es|en">Spanish to English</option>
<optionvalue="fr|en">French to English</option>
<optionvalue="fr|de">French translation into German</option>
<optionvalue="it|en">Italian to English</option>
<optionvalue="pt|en">Portuguese to English</option>
<optionvalue="ja|en">Japanese to English BETA</option>
<optionvalue="ko|en">Korean translation into English BETA</option>
<optionvalue="zh-CN|en">Chinese (simplified) translation into English BETA</option>
<inputstyle="FONT-SIZE:12px"type="button"value="Go->"name="Button1"onClick="javascript:window.open("translate.asp?urls="+document.location+"&lan="+lan.value,"_self","")">
</select>
</form>
The content in lan.htm is used to select the language to be translated, including the original language and the language to be translated into. We just need to copy the content in lan.htm to a page that provides multilingual translation.
translate.asp
<html>
<head>
<title>Online Translation</title>
<metahttp-equiv="Content-Type"content="text/html;charset=utf-8">
</head>
<body>
<%
"onerrorresumenext
"If the internet speed is very slow, you can adjust the following time. Units of seconds
Server.ScriptTimeout=999999
"============================================================================
"Character encoding function
"============================================================================
FunctionBytesToBstr(body,code)