用asp實現(xiàn)在線文章翻譯的功能

2、de">英語翻譯成德語　

3、es">英語翻譯成西班牙語　

4、fr">英語翻譯成法語　

5、en

6、it">英語翻譯成意大利語　

7、pt">英語翻譯成葡萄牙語　

8、ja">英語翻譯成日語BETA　

9、ko">英語翻譯成朝鮮語BETA　

10、zh-CN">英語翻譯成中文(簡體)BETA　

11、en">德語翻譯成英語　

12、fr">德語翻譯成法語

13、option>　

14、en">西班牙語翻譯成英語　

15、en">法語翻譯成英語　

16、de">法語翻譯成德語　

17、en">意大利語翻譯成英語　

18、en">葡萄牙語翻譯成英語　

19、en">日語翻譯成英語BETA　

20、en">朝

21、鮮語翻譯成英語BETA　

22、en">中文(簡體)翻譯成英語BETA　　lan.htm中

23、的內(nèi)容用來選擇要翻譯的語言包括原來的語言和要翻譯成的語言。我們只需要將lan.htm中的內(nèi)容拷到提供多語言翻譯的頁面中就可以了?！　ranslate.asp　　以下是引用片段：<%'onerrorresumenext'如果網(wǎng)速很慢的話，可以調(diào)整以下時間。單位秒Server.ScriptTimeout=999999'=

24、======================================================='字符編碼函數(shù)'========================================================FunctionBytesToBstr(body,code)　　　　　dimobjstream　　　　　setobjstream=Server.CreateObject("adodb.stream")　　　　　objstream.Type=1　　　　　objstream.Mode=3　　　　　ob

25、jstream.Open　　　　　objstream.Writebody　　　　　objstream.Position=0　　　　　objstream.Type=2　　　　　objstream.Charset=code　　　　BytesToBstr=objstream.ReadText　　　　　objstream.Close　　　　　setobjstream=nothing　EndFunction　'取行字符串在另一字符串中的出現(xiàn)位置FunctionNewstring(wstr,strng)　　　　　Newstring=Instr

26、(lcase(wstr),lcase(strng))　　　　　ifNewstring<=0thenNewstring=Len(wstr)　EndFunction　'替換字符串函數(shù)functionReplaceStr(ori,str1,str2)Re