用ASP实现在线文章快速翻译的功能_3DMAX论坛

用ASP实现在线文章快速翻译的功能

皇子发布于 2015-11-06 12:45查看:908回复:10

获得知识的途径有很多，现在由小编为大家讲解有关语言编程的文章希望对大家有所帮助

有时候想为我们的网页提供多语言支持，如果一种语言用一张网页来做实在太麻烦了，幸好Google提供了语言工具功能，下面介绍如何利用它来实现网页多种语言之间的转换。
lan.htm

以下为引用的内容：

lan.htm中的内容用来选择要翻译的语言包括原来的语言和要翻译成的语言。我们只需要将lan.htm中的内容拷到提供多语言翻译的页面中就可以了。
translate.asp

"IOBE 编程语言社区排行榜是编程语言流行趋势的一个指标，每月更新，这份排行榜排名基于互联网上有经验的程序员、课程和第三方厂商的数量。排名使用著名的搜索引擎（诸如 Google、MSN、Yahoo!、Wikipedia、YouTube 以及 Baidu 等）进行计算。请注意这个排行榜只是反映某个编程语言的热门程度，并不能说明一门编程语言好不好，或者一门语言所编写的代码数量多少。教育资源可能会影响结果。例如Python是常用的学校和学习编程途径，成千上万的学生问问题和完成项目。不过根据我的经验来说，Python的工作相比PHP和Ruby来说是罕见的。Java也有类似的情况，因为它在教育、网络、桌面和移动发展上有各种各样的用途，所以它们的排名会相对靠前。
本地开发者的需求仍然很高，尤其是在相关工作的调查中可以看出。RedMonk报告Swift在不到六个月的时间里上升了46个排名达到第22位。然而应用开发是一门年轻的学科。目前有更多的Web和桌面编程职位空缺着。 "

以下为引用的内容：

在线翻译

<%
'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")
%>

<%
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
%>

translate.asp实现翻译功能，这是利用google的语言工具实现的。
注意，因为提供多语言支持，所以translate.asp文件所用的编码是支持所有字符的"utf-8"

文章很精彩，是否还想了解更多关于的文章，课课家官网是一个知识的海洋

查看评分情况

全部评分

此主贴暂时没有点赞评分

总计：赞0次

回复分享

版主推荐

3dmax安装包（完整版） 2012工具软件下载

3DS MAX布线建模的方法

3Dmax和maya比较

3Dmax制作机器人动画

3dmax布光教程（需要的小伙伴，速速围观~~）

上一篇：PHP动态网页编程常用技巧四则总结
下一篇：你知道如何对ASP.NET进行性能优化吗

精品在线课程【一线专家讲授+24小时内答疑+永久免费观看+市场1/10价格】

[换一换]

共有10条评论

單純°
为什么会有如此好的帖子！
2015-11-06 09:45赞 (0)回复沙发
你长得真玩命
看了楼主的帖子，表示很赞同
2015-11-06 09:48赞 (0)回复板凳
心如荒岛囚我终老
很好……
2015-11-06 10:40赞 (0)回复地板
许你三生石
这么强大啊，惊呆！！！
2015-11-06 10:47赞 (0)回复第4楼
船到桥头
多多向楼主学习
2015-11-06 10:47赞 (0)回复第5楼
装疯卖傻
不知该说些什么。。。。。。就是谢谢
2015-11-06 11:03赞 (0)回复第6楼
别害怕.
赞
2015-11-06 11:06赞 (0)回复第7楼
不死之身
希望楼主多分享更多好东西
2015-11-06 12:59赞 (0)回复第8楼
虐心i
赞
2015-11-06 13:45赞 (0)回复第9楼
烦啦
路过，帮顶……
2015-11-06 14:04赞 (0)回复第10楼

本论坛发帖,请先登录

发布新贴

版主招版主啦

课课家运营团队
K哥馆
大萌
953424443
Mr ken
YUI
cappuccino
mr jack
IT宅男
Mright
人生如梦183
studing

课程推荐

[换一换]

AE视效学院-系统全能班视频教程: 5692人学习

3ds Max三维动画技术基础视频教程: 16009人学习

MAYA变形器动画完全解析视频教程: 9947人学习

MAYA 特训课程零基础起步 - 建模篇视频教程: 28364人学习

楼主关注

发布新贴

选择版块:
标题:
内容
验证码:

编辑帖子

标题:
内容
<table style="width: 599px;" width="827"> <tbody> <tr class="firstRow"> <td class="et2" colspan="2" width="1368" height="20"><span style="color: #ff0000;">获得知识的途径有很多，现在由小编为大家讲解有关语言编程的文章希望对大家有所帮助</span></td> </tr> </tbody> </table> <p>有时候想为我们的网页提供多语言支持，如果一种语言用一张网页来做实在太麻烦了，幸好Google提供了语言工具功能，下面介绍如何利用它来实现网页多种语言之间的转换。<br />lan.htm<br /><br /></p> <table style="width: 599px;" width="692" cellspacing="0" cellpadding="6" align="center"> <tbody> <tr class="firstRow"> <td bgcolor="#fdfddf">以下为引用的内容：<br /> <form><br /><br /><select name="lan"> <option selected="selected" value="en|de">英语翻译成德语</option> </select><br /><select name="lan">  <option selected="selected" value="en|es">英语翻译成西班牙语</option> </select><br /><select name="lan">  <option selected="selected" value="en|fr">英语翻译成法语</option> </select><br /><select name="lan">  <option selected="selected" value="en|it">英语翻译成意大利语</option> </select><br /><select name="lan">  <option selected="selected" value="en|pt">英语翻译成葡萄牙语</option> </select><br /><select name="lan">  <option selected="selected" value="en|ja">英语翻译成日语 BETA</option> </select><br /><select name="lan">  <option selected="selected" value="en|ko">英语翻译成朝鲜语 BETA</option> </select><br /><select name="lan">  <option selected="selected" value="en|zh-CN">英语翻译成中文(简体) BETA</option> </select><br /><select name="lan">  <option selected="selected" value="de|en">德语翻译成英语</option> </select><br /><select name="lan">  <option selected="selected" value="de|fr">德语翻译成法语</option> </select><br /><select name="lan">  <option selected="selected" value="es|en">西班牙语翻译成英语</option> </select><br /><select name="lan">  <option selected="selected" value="fr|en">法语翻译成英语</option> </select><br /><select name="lan">  <option selected="selected" value="fr|de">法语翻译成德语</option> </select><br /><select name="lan">  <option selected="selected" value="it|en">意大利语翻译成英语</option> </select><br /><select name="lan">  <option selected="selected" value="pt|en">葡萄牙语翻译成英语</option> </select><br /><select name="lan">  <option selected="selected" value="ja|en">日语翻译成英语 BETA</option> </select><br /><select name="lan">  <option selected="selected" value="ko|en">朝鲜语翻译成英语 BETA</option> </select><br /><select name="lan">  <option selected="selected" value="zh-CN|en">中文(简体) 翻译成英语 BETA</option> </select><br /><select name="lan"> </select><input style="font-size: 12px;" name="Button1" type="button" value=""Go-" />"/><select name="lan">Javascript:window.open('translate.</select><select name="lan">?urls='+document.location+'&lan='+lan.value,'_self','')"></select><br /><br /></form> </td> </tr> </tbody> </table> <p><br />lan.htm中的内容用来选择要翻译的语言包括原来的语言和要翻译成的语言。我们只需要将lan.htm中的内容拷到提供多语言翻译的页面中就可以了。<br />translate.asp</p> <p>"<span style="color: #ff0000;">IOBE 编程语言社区排行榜是编程语言流行趋势的一个指标，每月更新，这份排行榜排名基于互联网上有经验的程序员、课程和第三方厂商的数量。排名使用著名的搜索引擎（诸如 Google、MSN、Yahoo!、Wikipedia、YouTube 以及 Baidu 等）进行计算。请注意这个排行榜只是反映某个编程语言的热门程度，并不能说明一门编程语言好不好，或者一门语言所编写的代码数量多少。教育资源可能会影响结果。例如Python是常用的学校和学习编程途径，成千上万的学生问问题和完成项目。不过根据我的经验来说，Python的工作相比PHP和Ruby来说是罕见的。Java也有类似的情况，因为它在教育、网络、桌面和移动发展上有各种各样的用途，所以它们的排名会相对靠前。</span><br /><span style="color: #ff0000;">本地开发者的需求仍然很高，尤其是在相关工作的调查中可以看出。RedMonk报告Swift在不到六个月的时间里上升了46个排名达到第22位。然而应用开发是一门年轻的学科。目前有更多的Web和桌面编程职位空缺着。</span> "</p> <table style="width: 599px;" width="628" cellspacing="0" cellpadding="6" align="center"> <tbody> <tr class="firstRow"> <td bgcolor="#fdfddf">以下为引用的内容：<br /> <p> </p> <br />在线翻译<br /><br /> <p> </p> <br /><% <br />'on error resume next <br />' 如果网速很慢的话，可以调整以下时间。单位秒 <br />Server.ScriptTimeout = 999999 <br />'======================================================== <br />'字符编码函数 <br />'======================================================== <br />Function BytesToBstr(body,code)  <br />        dim objstream  <br />        set objstream = Server.CreateObject("adodb.stream")  <br />        objstream.Type = 1  <br />        objstream.Mode =3  <br />        objstream.Open  <br />        objstream.Write body  <br />        objstream.Position = 0  <br />        objstream.Type = 2  <br />        objstream.Charset =code <br />        BytesToBstr = objstream.ReadText   <br />        objstream.Close  <br />        set objstream = nothing  <br />End Function  <br />'取行字符串在另一字符串中的出现位置 <br />Function Newstring(wstr,strng)  <br />        Newstring=Instr(lcase(wstr),lcase(strng))  <br />        if Newstring<=0 then Newstring=Len(wstr)  <br />End Function  <br />'替换字符串函数 <br />function ReplaceStr(ori,str1,str2) <br />ReplaceStr=replace(ori,str1,str2) <br />end function <br />'===================================================== <br />function ReadXml(url,code,start,ends) <br />set oSend=createobject("Microsoft.XMLHTTP") <br />SourceCode = oSend.open ("GET",url,false)  <br />oSend.send() <br />ReadXml=BytesToBstr(oSend.responseBody,code ) <br />if(start="" or ends="") then <br />else <br />start=Newstring(ReadXml,start) <br />ReadXml=mid(ReadXml,start) <br />ends=Newstring(ReadXml,ends) <br />ReadXml=left(ReadXml,ends-1) <br />end if <br />end function <br />dim urlpage,lan <br />urlpage=request("urls") <br />lan=request("lan") <br />%> <br /><form action="translate.asp" method="post"><br /><input name="urls" size="150" type="text" value=""<%=urlpage%" />"/> <br /><input name="lan" type="hidden" value=""<%=lan%" />"/> <br /><input type="submit" value="submit" /></form><br /><% <br />dim transURL <br />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" <br />if(len(urlpage)>3) then <br />getcont=ReadXml(transURL,"gb2312","","") <br />response.Write(getcont) <br />end if <br />%> <br /> <p> </p> </td> </tr> </tbody> </table> <p><br />translate.asp实现翻译功能，这是利用google的语言工具实现的。 <br /> 注意，因为提供多语言支持，所以translate.asp文件所用的编码是支持所有字符的"utf-8"</p> <table style="width: 599px;" width="1462"><colgroup><col width="684" /><col width="143" /><col width="635" /></colgroup> <tbody> <tr class="firstRow"> <td class="et2" colspan="3" width="1511" height="19"><span style="color: #ff0000;">文章很精彩，是否还想了解更多关于的文章，课课家官网是一个知识的海洋</span></td> </tr> </tbody> </table> <p> </p>
选择版块:

关注微信公众号，可下载APP应用。

用ASP实现在线文章快速翻译的功能

版主推荐

精品在线课程【一线专家讲授+24小时内答疑+永久免费观看+市场1/10价格】

共有10条评论

明星会员

课程推荐

楼主关注

版主推荐

热门贴子

发布新贴

编辑帖子

移动帖子x

粤ICP备13047178号粤公网安备44010602001432号

广州挪贤计算机科技有限公司版权所有

Copyright @ 2013-2023 KokoJia.com Inc. All Rights Reserved.

客服热线：9:00~19:00

关注微信公众号，可下载APP应用。

用ASP实现在线文章快速翻译的功能

版主推荐

精品在线课程【一线专家讲授+24小时内答疑+永久免费观看+市场1/10价格】

共有10条评论

明星会员

课程推荐

楼主关注

版主推荐

热门贴子

发布新贴

编辑帖子

移动帖子x

粤ICP备13047178号 粤公网安备44010602001432号

广州挪贤计算机科技有限公司 版权所有

Copyright @ 2013-2023 KokoJia.com Inc. All Rights Reserved.

客服热线：9:00~19:00

粤ICP备13047178号粤公网安备44010602001432号

广州挪贤计算机科技有限公司版权所有