推薦:ASP基礎教程:其它的ASP常用組件當你用ASP 編寫服務器端應用程序時,必須依靠ActiveX 組件來強大Web 應用程序的功能,譬如:你需要連接數據庫,對數據庫進行在線操作等等。一、 Browser Capabilities 組件眾所周知,並不
有時候想為我們的網頁提供多語言支持,如果一種語言用一張網頁來做實在太麻煩了,幸好Google提供了語言工具功能,下面介紹如何利用它來實現網頁多種語言之間的轉換。
lan.htm
| 以下為引用的內容: <form> <select name=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>英語翻譯成日語BETA</option> <option value=en|ko>英語翻譯成朝鮮語BETA</option> <option value=en|zh-CN >英語翻譯成中文(簡體) BETA</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>日語翻譯成英語BETA</option> <option value=ko|en>朝鮮語翻譯成英語BETA</option> <option value=zh-CN|en>中文(簡體) 翻譯成英語BETA</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中的內容拷到提供多語言翻譯的頁面中就可以了。
translate.asp
| 以下為引用的內容: <html> <head> <title>在線翻譯</title> <meta http-equiv=Content-Type content=text/html; charset=utf-8> </head> <body> <% 'on error resume next ' 如果網速很慢的話,可以調整以下時間。單位秒 Server.ScriptTimeout = 999999 '======================================================== '字符編碼函數 '======================================================== Function BytesToBstr(body,code) dim 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 =code BytesToBstr = objstream.ReadText objstream.Close set objstream = nothing End Function '取行字符串在另一字符串中的出現位置 Function Newstring(wstr,strng) Newstring=Instr(lcase(wstr),lcase(strng)) if Newstring<=0 then Newstring=Len(wstr) End Function '替換字符串函數 function ReplaceStr(ori,str1,str2) ReplaceStr=replace(ori,str1,str2) end function '===================================================== function ReadXml(url,code,start,ends) set oSend=createobject(Microsoft.XMLHTTP) SourceCode = oSend.open (GET,url,false) oSend.send() ReadXml=BytesToBstr(oSend.responseBody,code ) if(start= or ends=) then else start=Newstring(ReadXml,start) ReadXml=mid(ReadXml,start) ends=Newstring(ReadXml,ends) ReadXml=left(ReadXml,ends-1) end if end function dim urlpage,lan urlpage=request(urls) lan=request(lan) %> <form method=post action=translate.asp> <input type=text name=urls size=150 value=<%=urlpage%>> <input type=hidden name=lan value=<%=lan%>> <input type=submit value=submit> </form> <% dim 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=/language_tools if(len(urlpage)>3) then getcont=ReadXml(transURL,gb2312,,) response.Write(getcont) end if %> </body> </html> |
translate.asp實現翻譯功能,這是利用google的語言工具實現的。
注意,因為提供多語言支持,所以translate.asp文件所用的編碼是支持所有字符的utf-8
分享:讓彈出窗口變得“聽話”一些在網上沖浪時進入一些網站會出現彈出窗口。它可能是站長對你的親切問候,也可能是網站的重要通告、網站廣告之類的。但用得不好會讓人產生厭煩心理。如何才能讓彈出窗口發揮作用,而又不影響瀏覽