欢迎来到天天文库
浏览记录
ID:34598088
大小:27.66 KB
页数:3页
时间:2019-03-08
《用asp实现在线文章翻译的功能》由会员上传分享,免费在线阅读,更多相关内容在工程资料-天天文库。
1、用ASP实现在线文章翻译的功能有时候想为我们的网页提供多语言支持,如果一种语言用一张网页来做实在太麻烦了,幸好Google提供了语言工具功能,下面介绍如何利用它来实现网页多种语言之间的转换。 lan.htm 以下是引用片段:
2、de">英语翻译成德语 3、es">英语翻译成西班牙语 4、fr">英语翻译成法语 5、en6、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
3、es">英语翻译成西班牙语 4、fr">英语翻译成法语 5、en6、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
4、fr">英语翻译成法语 5、en6、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
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
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
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
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
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
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
12、fr">德语翻译成法语
13、option> 14、en">西班牙语翻译成英语 15、en">法语翻译成英语 16、de">法语翻译成德语 17、en">意大利语翻译成英语 18、en">葡萄牙语翻译成英语 19、en">日语翻译成英语BETA 20、en">朝21、鲜语翻译成英语BETA 22、en">中文(简体)翻译成英语BETA
14、en">西班牙语翻译成英语 15、en">法语翻译成英语 16、de">法语翻译成德语 17、en">意大利语翻译成英语 18、en">葡萄牙语翻译成英语 19、en">日语翻译成英语BETA 20、en">朝21、鲜语翻译成英语BETA 22、en">中文(简体)翻译成英语BETA
15、en">法语翻译成英语 16、de">法语翻译成德语 17、en">意大利语翻译成英语 18、en">葡萄牙语翻译成英语 19、en">日语翻译成英语BETA 20、en">朝21、鲜语翻译成英语BETA 22、en">中文(简体)翻译成英语BETA
16、de">法语翻译成德语 17、en">意大利语翻译成英语 18、en">葡萄牙语翻译成英语 19、en">日语翻译成英语BETA 20、en">朝21、鲜语翻译成英语BETA 22、en">中文(简体)翻译成英语BETA
17、en">意大利语翻译成英语 18、en">葡萄牙语翻译成英语 19、en">日语翻译成英语BETA 20、en">朝21、鲜语翻译成英语BETA 22、en">中文(简体)翻译成英语BETA
18、en">葡萄牙语翻译成英语 19、en">日语翻译成英语BETA 20、en">朝21、鲜语翻译成英语BETA 22、en">中文(简体)翻译成英语BETA
19、en">日语翻译成英语BETA 20、en">朝21、鲜语翻译成英语BETA 22、en">中文(简体)翻译成英语BETA
20、en">朝
21、鲜语翻译成英语BETA 22、en">中文(简体)翻译成英语BETA
22、en">中文(简体)翻译成英语BETA
23、的内容用来选择要翻译的语言包括原来的语言和要翻译成的语言。我们只需要将lan.htm中的内容拷到提供多语言翻译的页面中就可以了。 translate.asp 以下是引用片段:
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
此文档下载收益归作者所有