권장 : ASP 기본 자습서 : ASP의 기타 일반적으로 사용되는 구성 요소 ASP를 사용하여 서버 측 애플리케이션을 작성할 때는 다음과 같은 강력한 웹 응용 프로그램의 기능에 ActiveX 구성 요소에 의존해야합니다. 데이터베이스에 연결하고 온라인으로 데이터베이스를 작동해야합니다. 1. 브라우저 기능 구성 요소는 잘 알려져 있지 않으며 그렇지 않습니다.
때로는 웹 페이지에 대한 다국어 지원을 제공하고 싶습니다. 하나의 언어로 하나의 웹 페이지를 사용하는 것은 너무 귀찮습니다. 다행히 Google은 언어 도구 기능을 제공합니다. 다음은 웹 페이지를 여러 언어로 변환하는 방법을 설명합니다.
lan.htm
| 다음은 인용 된 내용입니다. <양식> <이름 = lan>을 선택하십시오 <옵션 값 = en | de> 영어로 독일어 </옵션> <옵션 값 = en | es> 영어 번역으로 스페인어로 변환 </옵션> <옵션 값 = en | fr> 영어로 프랑스어로 번역 </옵션> <옵션 값 = en | it> 영어 번역으로 이탈리아어로 변환 </옵션> <옵션 값 = en | pt> 영어 번역으로 포르투갈어로 번역 </옵션> <옵션 값 = en | ja> 영어 번역 일본 베타로 번역 </옵션> <옵션 값 = en | ko> 한국 베타로의 영어 번역 </옵션> <옵션 값 = en | zh-cn> 영어 번역으로 중국어 (단순화 된 중국어) 베타 </옵션> <옵션 값 = de | en> 독일어에서 영어 </옵션> <옵션 값 = de | fr> 독일어에서 프랑스어 </옵션> <옵션 값 = es | en> 스페인어 번역 영어 </옵션> <옵션 값 = fr | en> 프랑스어 번역 영어 </옵션> <옵션 값 = fr | de> 프랑스어 번역 독일어 </옵션> <옵션 값 = it | en> 이탈리아에서 영어 </옵션> <옵션 값 = pt | en> 포르투갈어로 영어로 번역 </옵션> <옵션 값 = ja | en> 일본에서 영어 베타 </옵션> <옵션 값 = ko | en> 한국어 번역으로 영어 베타로 번역 </옵션> <옵션 값 = zh-cn | en> 중국어 (단순화) 영어 베타로 변환 </옵션> <입력 스타일 = 글꼴 크기 : 12px 유형 = 버튼 값 = go- & gt; name = button1 onclick = javaScript : wind </선택> </form> |
lan.htm의 내용은 원래 언어 및 번역 될 언어를 포함하여 번역 할 언어를 선택하는 데 사용됩니다. LAN.HTM의 내용을 다국어 번역을 제공하는 페이지로 복사하면됩니다.
번역 .asp
| 다음은 인용 된 내용입니다. <html> <헤드> <title> 온라인 번역 </title> <meta http-equiv = content-type content = text/html; charset = utf-8> </head> <body> <% '오류로 이력서에 다음에 '인터넷 속도가 매우 느리면 다음 시간을 조정할 수 있습니다. 단위 초 Server.ScriptTimeout = 999999 '======================================================================================== '문자 인코딩 기능 '======================================================================================== bytestobstr (body, code) 함수 희미한 objstream set objstream = server.createobject (adodb.stream) objstream.type = 1 objstream.mode = 3 objstream.open objstream.write body objstream.position = 0 objstream.type = 2 objstream.charset = 코드 bytestobstr = objstream.readtext objstream.close objstream = 아무것도 설정하지 않습니다 엔드 기능 '줄 문자열의 발생 위치를 다른 문자열에서 가져옵니다 기능 뉴스 스트링 (WSTR, strng) NewsString = instr (lcase (wstr), lcase (strng)) Newsstring <= 0이면 NewsString = Len (WSTR) 엔드 기능 '문자열 함수를 교체하십시오 함수 replacest (ori, str1, str2) REPLACESTR = REPLEC (ORI, STR1, STR2) 엔드 기능 '=========================================================================================== 함수 readxml (url, code, start, end) set osend = createobject (microsoft.xmlhttp) sourcecode = osend.open (get, url, false) osend.send () readxml = bytestobstr (osend.responsebody, code) if (start = 또는 end =) 그런 다음입니다 또 다른 start = newstring (readxml, start) readxml = mid (readxml, 시작) ENDS = NEWSTRING (readxml, Ends) readxml = left (readxml, ends-1) 끝 If 엔드 기능 Dim Urlpage, Lan urlpage = request (urls) lan = 요청 (lan) %> <form 메소드 = post action = translate.asp> <입력 유형 = 텍스트 이름 = URLS 크기 = 150 값 = <%= URLPAGE%>> <입력 유형 = 숨겨진 이름 = lan value = <%= lan%>> <입력 유형 = 제출 값 = 제출> </form> <% 희미한 트랜스 url transurl = http : //216.239.39.104/translate_c? hl = zh-cn & ie = utf-8 & oe = utf-8 & langpair = & server.urlencode (lan) && u = & urlpage && prev =/language_tools if (len (urlpage)> 3) getCont = readxml (transurl, gb2312 ,,) Response.Write (GetCont) 끝 If %> </body> </html> |
Translate.asp는 Google의 언어 도구를 사용하여 구현되는 번역 기능을 구현합니다.
다국어 지원이 제공되므로 Translate.asp 파일에서 사용하는 인코딩은 모든 문자를 지원하는 UTF-8입니다.
공유 : 팝업 창을 "순종적"으로 조금 만드십시오 인터넷을 서핑하는 동안 일부 웹 사이트에 입력 할 때 팝업이 나타납니다. 웹 마스터에서 귀하에게 친절한 인사를하거나 웹 사이트, 웹 사이트 광고 등의 중요한 발표 일 수도 있지만, 사용하지 않으면 사람들이 지루하게 느껴집니다. 탐색에 영향을 미치지 않고 팝업을 작동시키는 방법