用asp实现在线文章翻译的功能

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、的内容用来选择要翻译的语言包括原来的语言和要翻译成的语言。我们只需要将lan.htm中的内容拷到提供多语言翻译的页面中就可以了。　　translate.asp　　以下是引用片段：<%'onerrorresumenext'如果网速很慢的话，可以调整以下时间。单位秒Server.ScriptTimeout=999999'=

24、======================================================='字符编码函数'========================================================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　'取行字符串在另一字符串中的出现位置FunctionNewstring(wstr,strng)　　　　　Newstring=Instr

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