asp提供在线文章翻译的功能(转)

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

作者：淘特网

出处：http://www.tot.name

注：转载请注明出处

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

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

事例：http://www.tot.name/3.htm

转载于:https://www.cnblogs.com/coolylh/archive/2005/11/14/276157.html

asp提供在线文章翻译的功能(转)相关推荐

AI在线文章翻译工具多翻译api接口对接集成工具
AI在线文章翻译具有多语言的翻译,互译和回译选项,只需要简单的操作就可以对我们的批量文章进行在线翻译处理,生成我们需要的文种,对于翻译质量的把控,AI在线文章翻译工具对接谷歌等大厂的翻译接口,也具有自 ...
开发版速达-提供在线帐套配置功能
为了让不同的用户选择不同的帐套,开发版速达提供了在线帐套配置功能:(该配置功能与速达程序无法兼容) 一.请在服务端程序中启用在线配置功能: 勾选启用在线帐套配置,至此程序已经支持在线帐套配置功能: 二 ...
在线长篇英语文章翻译工具
在线长篇英语文章翻译,整篇英语文章保留段落格式自动翻译成中文.日文.德文等多语言,并且支持多篇英语文章批量导出,批量翻译导出本地,支持txt/excel/word/html等多种格式. 在线长篇英语文 ...
整篇文章翻译软件提供多平台翻译api接口
整篇文章翻译软件提供多平台翻译api接口,可以实现整篇文章翻译成中文.英文.阿拉伯语和其他多个语种,整篇文章翻译软件不仅支持整篇文章翻译,还可以保留原文格式段落,通过对存放文件夹进行监控,可以完成文件 ...
面对面翻译小程序是微信团队针对面对面沟通的场景开发的流式语音翻译小程序，通过微信同声传译插件提供了语音识别，文本翻译等功能。
面对面翻译小程序面对面翻译小程序是微信团队针对中英文面对面沟通的场景开发的流式语音翻译小程序,基于微信同声传译插件封装实现,提供了中英文语音识别,文本翻译等功能. 预览下载与使用克隆代码 pro ...
英文文档翻译软件-汉语文章翻译成英语
免费文章翻译软件的主要优点包括: 方便快捷:在线免费文章翻译软件使得翻译变得更加方便和快速,只需要将需要翻译的文本复制粘贴到输入框中,即可获取翻译结果. 费用低廉或免费:相对于一些专业的翻译服务或软件 ...
AI在线文章智能生成工具
文章智能生成工具通过在线文章采集,只需要我们输入我们的关键词,就可以实现热门平台的文章素材收集,支持精准标题采集提高内容的相关性,也可以通过关键词衍生采集,提高我们素材的收集数量,并通过自动的伪原创. ...
AI智能多语种翻译工具批量文章翻译发布
AI智能多语种翻译工具适用于需要使用多种语言进行文章翻译和网站建设的小伙伴,多语种翻译工具对接了各大厂商的翻译接口,支持多种语种间的相互翻译和回译.多语种翻译工具特有的格式优化,让我们在翻译的同时保持 ...
ASP.NET Core 实现带认证功能的Web代理服务器
引言最近在公司开发了一个项目,项目部署架构图如下: 思路如图中文本所述,公司大数据集群不允许直接访问外网,需要一个网关服务器代理请求,本处服务器A就是边缘代理服务器的作用. 通常技术人员最快捷的思 ...

asp提供在线文章翻译的功能(转)

asp提供在线文章翻译的功能(转)相关推荐

最新文章

热门文章