우리 웹페이지는 다국어 지원을 제공합니다. 하나의 웹페이지를 하나의 언어로 사용하기에는 너무 번거로울 수 있습니다. 다행히 Google에서는 이를 사용하여 여러 언어 간에 웹페이지를 변환하는 기능을 제공합니다.
lan.htm
<양식>
<이름 선택=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>
<입력 스타일=FONT-SIZE: 12px 유형=버튼 값=이동-> 이름=Button1 onClick=javascript:window.open('translate.asp?urls='+document.location+'&lan='+lan.value,' _자신','')>
</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(본문, 코드)
희미한 객체 스트림
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 = 아무것도 설정하지 않음
기능 종료
'다른 문자열에서 행 문자열의 발생 위치를 가져옵니다.
함수 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)로 설정
소스코드 = oSend.open(GET,url,false)
oSend.send()
ReadXml=BytesToBstr(oSend.responseBody,코드)
if(시작= 또는 끝=) 그러면
또 다른
start=Newstring(ReadXml,start)
ReadXml=mid(ReadXml,시작)
end=Newstring(ReadXml,ends)
ReadXml=왼쪽(ReadXml,끝-1)
종료하면
함수 종료
희미한 URL페이지,lan
urlpage=요청(url)
lan=요청(lan)
%>
<양식 방법=포스트 작업=translate.asp>
<입력 유형=텍스트 이름=url 크기=150 값=<%=urlpage%>>
<입력 유형=숨겨진 이름=lan 값=<%=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>