ASP网页编程之用ASP完成在线文章翻译的功能
无法实现跨操作系统的应用。当然这也是微软的理由之一，只有这样才能发挥ASP最佳的能力。可是我却认为正是Windows限制了ASP，ASP的概念本就是为一个能让系统运行于一个大的多样化环境而设计的；偶然候想为我们的网页供应多言语撑持，假如一种言语用一张网页来做其实太贫苦了，幸亏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"onClick="javascript:window.open(translate.asp?urls=+document.location+&lan=+lan.value,_self,)">
</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"
大家可以自己去看一看.可以说看得想呕吐.以前有次下了个动网来看.里面连基本内置函数的保护措施(函数没防御性)都没有.难怪经常补这个补那个了.可能现在.NET版会好点吧 虽然ASP也有很多网络教程。但是这些都不系统。都是半路出家，只是从一个例子告诉你怎么用。不会深入讨论，更不会将没有出现在例子里的方法都一一列举出来。 以HTML语言整合(HTML负责界面上，ASP则负责功能上)形成一个B/S(浏览器/服务器)模式的网页程序。 代码逻辑混乱，难于管理：由于ASP是脚本语言混合html编程，所以你很难看清代码的逻辑关系，并且随着程序的复杂性增加，使得代码的管理十分困难，甚至超出一个程序员所能达到的管理能力，从而造成出错或这样那样的问题。 你可以通过继承已有的对象最大限度保护你以前的投资。并且C#和C++、Java一样提供了完善的调试/纠错体系。 在平时的学习过程中要注意现学现用，注重运用，在掌握了一定的基础知识后，我们可以尝试做一些网页，也许在开始的时候我们可能会遇到很多问题，比如说如何很好的构建基本框架。 从事这个行业，那么你可以学ASP语言，简单快速上手，熟练dreamweav排版，写asp代码，熟练photoshop处理图片，打好基础就行了 Application:这个存储服务端的数据，如果不清除，会直到web应用程序结束才清除(例如重启站点)
页:
[1]