当前位置:天才代写 > tutorial > 其他教程 > 用ASP实现在线文章快速翻译的功能

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

2018-05-23 08:00 星期三 所属: 其他教程 浏览:594

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

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

以下为引用的内容:
 



















 

C语言教程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
%>
 

#p#分页标题#e#

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

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

    关键字:

天才代写-代写联系方式