仓酷云

 找回密码
 立即注册
搜索
热搜: 活动 交友 discuz
查看: 3491|回复: 18
打印 上一主题 下一主题

[学习教程] ASP编程:ASP法式中供应在线文章翻译功效

[复制链接]
柔情似水 该用户已被删除
跳转到指定楼层
楼主
发表于 2015-2-3 23:42:31 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式

马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。

您需要 登录 才可以下载或查看,没有帐号?立即注册

x
写软件都是想的时间比写的时间要长的.如果反过来了就得看看是什么原因了. 另外大家可以回去问问公司里的小MM.(一般企业里,跟你们交付软件接触得最多的是她们)法式|在线|在线       有时分想为咱们的网页供应多言语撑持,假如一种言语用一张网页来做其实太费事了,幸亏Google供应了言语东西功效,上面引见若何使用它来完成网页多种言语之间的转换。

  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" >
</select>
</form>
  lan.htm中的内容用来选摘要翻译的言语包含本来的言语和要翻译成的言语。咱们只需求将lan.htm中的内容拷到供应多言语翻译的页面中就能够了。

  translate.asp

<html>
<head>
<title>在线翻译</title>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8">
</head>

<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 WordStrStr(ori,str1,str2)
 WordStrStr=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完成翻译功效,这是使用谷歌的言语东西完成的。

  注重,由于供应多言语撑持,所以translate.asp文件所用的编码是撑持一切字符的"utf- </p>  缺点:安全性不是太差了,还行,只要你充分利用系统自带的工具;唯一缺点就是执行效率慢,如何进行网站优化以后,效果会比较好。
admin 该用户已被删除
沙发
发表于 2015-2-4 06:06:45 | 只看该作者
另外因为asp需要使用组件,所以了解一点组件的知识(ADODB也是组件)
海妖 该用户已被删除
板凳
发表于 2015-2-7 09:57:33 | 只看该作者
接下来就不能纸上谈兵了,最好的方法其实是实践。实践,只能算是让你掌握语言特性用的。而提倡做实际的Project也不是太好,因为你还没有熟练的能力去综合各种技术,这样只能使你自己越来越迷糊。
因胸联盟 该用户已被删除
地板
发表于 2015-2-21 14:10:55 | 只看该作者
Response:从字面上讲是“响应”,因此这个是服务端向客户端发送东西的,例如Response.Write
变相怪杰 该用户已被删除
5#
发表于 2015-3-6 20:19:36 | 只看该作者
以HTML语言整合(HTML负责界面上,ASP则负责功能上)形成一个B/S(浏览器/服务器)模式的网页程序。
透明 该用户已被删除
6#
发表于 2015-3-11 08:17:46 | 只看该作者
Response:从字面上讲是“响应”,因此这个是服务端向客户端发送东西的,例如Response.Write
简单生活 该用户已被删除
7#
发表于 2015-3-17 11:10:54 | 只看该作者
还有如何才能在最短的时间内学完?我每天可以有效学习2小时,双休日4小时。
只想知道 该用户已被删除
8#
发表于 2015-3-19 02:30:23 | 只看该作者
交流是必要的,不管是生活还是学习我们都要试着去交流,通过交流我们可以学到很多我们自己本身所没有的知识,可以分享别人的经验甚至经历。
乐观 该用户已被删除
9#
发表于 2015-4-2 08:42:09 | 只看该作者
另外因为asp需要使用组件,所以了解一点组件的知识(ADODB也是组件)
分手快乐 该用户已被删除
10#
发表于 2015-4-14 14:02:52 | 只看该作者
我就感觉到ASP和一些常用的数据库编程以及软件工程方面的思想是非常重要的。我现在也在尝试自己做网页,这其中就用到了ASP,我想它的作用是可想而知的。
谁可相欹 该用户已被删除
11#
发表于 2015-4-14 19:01:49 | 只看该作者
ASP的语言不仅仅只是命令格式差不多,而是包含在<%%>之内的命令完全就是VB语法。虽然ASP也是做为单独的一个技术来提出的,但他就是完全继承了VB所有的功能。
冷月葬花魂 该用户已被删除
12#
发表于 2015-4-26 17:10:36 | 只看该作者
封装性使得代码逻辑清晰,易于管理,并且应用到ASP.Net上就可以使业务逻辑和Html页面分离,这样无论页面原型如何改变,业务逻辑代码都不必做任何改动;继承性和多态性使得代码的可重用性大大提高。
愤怒的大鸟 该用户已被删除
13#
发表于 2015-4-27 14:55:26 | 只看该作者
多看多学多思。多看一些关于ASP的书籍,一方面可以扩展知识面一方面可以鉴借别人是如何掌握、运用ASP的;多学善于关注别人,向同学老师多多学习,不论知识的大小;多思则是要将学到的知识灵活运用。
再见西城 该用户已被删除
14#
发表于 2015-5-1 21:09:17 | 只看该作者
我认为比较好的方法是找一些比较经典的例子,每个例子比较集中一种编程思想而设计的。
柔情似水 该用户已被删除
15#
 楼主| 发表于 2015-5-4 11:40:09 | 只看该作者
运用ASP可将VBscript、javascript等脚本语言嵌入到HTML中,便可快速完成网站的应用程序,无需编译,可在服务器端直接执行。容易编写,使用普通的文本编辑器编写,如记事本就可以完成。由脚本在服务器上而不是客户端运行,ASP所使用的脚本语言都在服务端上运行。
第二个灵魂 该用户已被删除
16#
发表于 2015-7-8 21:09:30 | 只看该作者
不是很难但是英文要有一点基础网上的教程很少有系统的详细的去买书吧,另不用专门学习vb关于vbscript脚本在asp教材都有介绍
活着的死人 该用户已被删除
17#
发表于 2015-7-12 05:36:01 | 只看该作者
哪些内置对象是可以跳过的,或者哪些属性和方法是用不到的?
金色的骷髅 该用户已被删除
18#
发表于 2015-7-20 14:58:23 | 只看该作者
学习是为了用的,是为了让你的程序产生价值,把握住这个原则会比较轻松点。除此之外,课外时间一定要多参加一些社会实践活动,来锻炼自己的能力。
蒙在股里 该用户已被删除
19#
发表于 2015-9-25 04:03:10 | 只看该作者
多看多学多思。多看一些关于ASP的书籍,一方面可以扩展知识面一方面可以鉴借别人是如何掌握、运用ASP的;多学善于关注别人,向同学老师多多学习,不论知识的大小;多思则是要将学到的知识灵活运用。
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

QQ|Archiver|手机版|仓酷云 鄂ICP备14007578号-2

GMT+8, 2024-11-15 02:01

Powered by Discuz! X3.2

© 2001-2013 Comsenz Inc.

快速回复 返回顶部 返回列表