때로는 웹 페이지에 다국어 지원을 제공하고 싶을 때가 있습니다. 하나의 언어에 대해 하나의 웹 페이지를 사용하는 것은 너무 번거롭습니다. 다행히 Google에서는 이를 사용하여 여러 언어 간에 웹 페이지를 변환하는 방법을 제공합니다. .
작성자: Taote.com
참고:lan.htm
<form>
을재인쇄하려면 출처를 표시해 주세요.
<이름 선택="lan">
<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','')">
</select>
</form>
lan.htm의 콘텐츠는 원래 언어와 번역할 언어를 포함하여 번역할 언어를 선택하는 데 사용됩니다. lan.htm의 내용을 다국어 번역을 제공하는 페이지로 복사하기만 하면 됩니다.
번역.asp
<html>
<머리>
<title>온라인 번역</title>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8">
</head>
<본문>
<%
'오류 발생 시 다음 재개
'인터넷 속도가 매우 느린 경우 다음 시간을 조정할 수 있습니다. 단위 초
Server.ScriptTimeout = 999999
'================================================ = =======
'문자 인코딩 기능
'================================================ = =======
함수 BytesToBstr(본문,코드)
희미한 객체 스트림
set objstream = Server.CreateObject("adodb.stream")
objstream.Type = 1
objstream.Mode =3
objstream.Open
objstream.Write 본문
objstream.위치 = 0
objstream.Type = 2
objstream.Charset =코드
BytesToBstr = objstream.ReadText
objstream.Close
objstream = 아무것도 설정하지 않음
End Function
'다른 문자열에서 행 문자열의 발생 위치를 가져옵니다.
함수 Newstring(wstr,strng)
Newstring=Instr(lcase(wstr),lcase(strng))
Newstring<=0이면 Newstring=Len(wstr)
기능 종료
'문자열 함수 바꾸기
함수 바꾸기Str(ori,str1,str2)
바꾸기Str=교체(ori,str1,str2)
함수 종료
'================================================ = ====
함수 ReadXml(url,code,start,ends)
oSend=createobject("Microsoft.XMLHTTP") 설정
SourceCode = oSend.open("GET",url,false)
oSend.send()
ReadXml=BytesToBstr(oSend.responseBody,코드)
if(start="" 또는 end="") 그러면
또 다른
start=Newstring(ReadXml,start)
ReadXml=mid(ReadXml,시작)
end=Newstring(ReadXml,ends)
ReadXml=왼쪽(ReadXml,끝-1)
종료하면
함수 종료
희미한 URL페이지,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%>">
<입력 유형="제출" 값="제출">
</form>
<%
희미한 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=/ 언어_tools "
if(len(urlpage)>3) 그러면
getcont=ReadXml(transURL,"gb2312","","")
응답.쓰기(getcont)
%>
이면 종료
</body>
</html>
translate.asp는 Google의 언어 도구를 사용하여 구현되는 번역 기능을 구현합니다.
다국어 지원이 제공되므로 번역.asp 파일에 사용되는 인코딩은 모든 문자를 지원하는 "utf-8"입니다.