asp提供在线文章翻译的功能- ASP - 软晨网（RuanChen.com）

当前位置: 首页 > 图文教程 > 网络编程 > ASP > asp提供在线文章翻译的功能

技术文章搜索

关键字

ASP 中的 asp提供在线文章翻译的功能

出处:互联网 整理: 软晨网（RuanChen.com） 发布: 2009-11-03 浏览: 27 ::

收藏到网摘: n/a

比较ADO与ODBC的区别关于文摘插件提交表单的开发

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

  注：转载请注明出处

  lan.htm

  <form>
  <select name="lan">
  <option value="ende">英语翻译成德语</option>
  <option value="enes">英语翻译成西班牙语</option>
  <option value="enfr">英语翻译成法语</option>
  <option value="enit">英语翻译成意大利语</option>
  <option value="enpt">英语翻译成葡萄牙语</option>
  <option value="enja">英语翻译成日语 BETA</option>
  <option value="enko">英语翻译成朝鲜语 BETA</option>
  <option value="enzh-CN" >英语翻译成中文(简体) BETA</option>
  <option value="deen">德语翻译成英语</option>
  <option value="defr">德语翻译成法语</option>
  <option value="esen">西班牙语翻译成英语</option>
  <option value="fren">法语翻译成英语</option>
  <option value="frde">法语翻译成德语</option>
  <option value="iten">意大利语翻译成英语</option>
  <option value="pten">葡萄牙语翻译成英语</option>
  <option value="jaen">日语翻译成英语 BETA</option>
  <option value="koen">朝鲜语翻译成英语 BETA</option>
  <option value="zh-CNen">中文(简体) 翻译成英语 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 )
&

比较ADO与ODBC的区别关于文摘插件提交表单的开发

ASP 中的 asp提供在线文章翻译的功能

评论 (0) All