ASP网站制作之ASP使用Google完成在线翻译功能
asp对于服务器的要求较高，一般的服务器如果访问量一大就垮了，不得不重启。google|在线 偶然候想为我们的网页供应多言语撑持，假如一种言语用一张网页来做其实太贫苦了，幸亏Google供应了言语工具功效，上面先容怎样使用它来完成网页多种言语之间的转换。lan.htm
<form>
<selectname="lan">
<optionvalue="en|de">英语翻译成德语</option>
<optionvalue="en|es">英语翻译成西班牙语</option>
<optionvalue="en|fr">英语翻译成法语</option>
<optionvalue="en|it">英语翻译成意年夜利语</option>
<optionvalue="en|pt">英语翻译成葡萄牙语</option>
<optionvalue="en|ja">英语翻译成日语BETA</option>
<optionvalue="en|ko">英语翻译成朝鲜语BETA</option>
<optionvalue="en|zh-CN">英语翻译成中文(简体)BETA</option>
<optionvalue="de|en">德语翻译成英语</option>
<optionvalue="de|fr">德语翻译成法语</option>
<optionvalue="es|en">西班牙语翻译成英语</option>
<optionvalue="fr|en">法语翻译成英语</option>
<optionvalue="fr|de">法语翻译成德语</option>
<optionvalue="it|en">意年夜利语翻译成英语</option>
<optionvalue="pt|en">葡萄牙语翻译成英语</option>
<optionvalue="ja|en">日语翻译成英语BETA</option>
<optionvalue="ko|en">朝鲜语翻译成英语BETA</option>
<optionvalue="zh-CN|en">中文(简体)翻译成英语BETA</option>
<inputstyle="FONT-SIZE:12px"type="button"value="Go->"name="Button1">
</select>
</form>
lan.htm中的内容用来选择要翻译的言语包含本来的言语和要翻译成的言语。我们只必要将lan.htm中的内容拷到供应多言语翻译的页面中就能够了。
translate.asp
<html>
<head>
<title>在线翻译</title>
<metahttp-equiv="Content-Type"content="text/html;charset=utf-8">
</head>
<body>
<%
onerrorresumenext
假如网速很慢的话，能够调剂以下工夫。单元秒
Server.ScriptTimeout=999999
========================================================
字符编码函数
========================================================
FunctionBytesToBstr(body,code)
dimobjstream
setobjstream=Server.CreateObject("adodb.stream")
objstream.Type=1
objstream.Mode=3
objstream.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(lcase(wstr),lcase(strng))
ifNewstring<=0thenNewstring=Len(wstr)
EndFunction
交换字符串函数
functionReplaceStr(ori,str1,str2)
ReplaceStr=replace(ori,str1,str2)
endfunction
=====================================================
functionReadXml(url,code,start,ends)
setoSend=createobject("Microsoft.XMLHTTP")
SourceCode=oSend.open("GET",url,false)
oSend.send()
ReadXml=BytesToBstr(oSend.responseBody,code)
if(start=""orends="")then
else
start=Newstring(ReadXml,start)
ReadXml=mid(ReadXml,start)
ends=Newstring(ReadXml,ends)
ReadXml=left(ReadXml,ends-1)
endif
endfunction
dimurlpage,lan
urlpage=request("urls")
lan=request("lan")
%>
<formmethod="post"action="translate.asp">
<inputtype="text"name="urls"size="150"value="<%=urlpage%>">
<inputtype="hidden"name="lan"value="<%=lan%>">
<inputtype="submit"value="submit">
</form>
<%
dimtransURL
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)
endif
%>
</body>
</html>
translate.asp完成翻译功效，这是使用google的言语工具完成的。
注重，由于供应多言语撑持，以是translate.asp文件所用的编码是撑持一切字符的"utf-8"
asp是基于web的一种编程技术，可以说是cgi的一种。它可以完成以往cgi程序的所有功能，如计数器、留言簿、公告板、聊天室等等。 如何更好的使自己的东西看上去很不错等等。其实这些都不是问题的实质，我们可以在实践中不断提升自己，不断充实自己。 接下来就不能纸上谈兵了，最好的方法其实是实践。实践，只能算是让你掌握语言特性用的。而提倡做实际的Project也不是太好，因为你还没有熟练的能力去综合各种技术，这样只能使你自己越来越迷糊。 我可以结合自己的经验大致给你说一说，希望对你有所帮助，少走些弯路。 作为IE上广为流传的动态网页开发技术,ASP以它简单易学博得了广大WEB程序爱好这的青睐,而且它对运行环境和开发品台的不挑剔,以及有大量有效的参考手册,极大的推广了它的发展。 虽然ASP也有很多网络教程。但是这些都不系统。都是半路出家，只是从一个例子告诉你怎么用。不会深入讨论，更不会将没有出现在例子里的方法都一一列举出来。 交流是必要的，不管是生活还是学习我们都要试着去交流，通过交流我们可以学到很多我们自己本身所没有的知识，可以分享别人的经验甚至经历。 兴趣爱好，那么你无须学编程，申请一个域名和空间，在网上下载一些免费开源的CMS系统，你不用改代码，只须熟悉它们的后台操作，像office一样简单方便，很快就能建一个站点，很多站长都是这样做的 最近在学asp，不要问我为什么不直接学.net，因为公司网站是asp做的所以有这个需要，卖了本书asp入门到精通，对里面的六大内置对象老是记不住，还有很多属性和方法看的头晕。
页:
[1]