发送文章__当百网

文章·资料	电脑软件	手机软件	网站源码
电脑·手机·网络学习话题娱乐故事文化·历史国学典籍法律法规	操作系统网络办公·文件音频视频图形图像硬件·驱动程序行业教学学习编程游戏	安卓苹果鸿蒙其他	ASP ASP.NET JSP PHP HTML·CSS·JavaScript

本站搜索

发送文章

利用ASP小偷和Google实现在线翻译功能的代码

〖评论()〗〖留言〗〖收藏〗

收信地址

填写收信人的电子邮箱

邮件主题

填写邮件主题

邮件内容

有时候想为我们的网页提供多语言支持，如果一种语言用一张网页来做实在太麻烦了，幸好 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  
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  
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 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-CNie=UTF-8oe=UTF-8langpair=server.URLEncode(lan)u=urlpageprev=/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<br /><br />文章网址：<a href="https://dangbai.cn/Article.asp?ID=10002780" target="_blank">https://dangbai.cn/Article.asp?ID=10002780</a>

填写邮件内容

发信地址

填写发信人的电子邮箱

邮件签名

填写邮件签名

验证码

填写验证码，单击刷新验证码

发送协议

·欢迎使用本站在线文章发送系统。
·不得使用本站在线发送邮件系统发送垃圾邮件、广告邮件。
·如果收信人地址或其服务器出现错误，可能无法成功发送。
·如果有什么问题，或者意见建议，请联系［网站管理员］。

当百网

本站使用【啊估文章软件站】网站系统〖网站管理员留言簿〗