XMLHTTP打造漂亮实用的在线桌面翻译

翻译 2005年05月12日 23:32:00

最近常看e文文档,只怪当时读书不努力,现在知道吃力了,经常打开Kingsoft的词霸搜索网站来翻译,搞的很麻烦,无聊之际想到了搞个[桌面翻译]。如果能直接在桌面上输入要翻译的词然后就可以返回结果那应该方便许多吧,嘿嘿。说干就干。

怎么弄呢?在桌面属性里有一个WEB选项,允许你的桌面用当前主页或其他的网页来显示。我们不如就做个网页好了。开始想着直接写一个提交表单的页就算了然后打开新页来看结果,后来想想这样也不是很好,还要自己翻,不能把最主要的东西一下直接的显示出来,所以就有了[偷]结果的想法。

[偷]结果我们常用的就是用XMLHTTP的方式来请求数据啦,这样的话我们基本任务就已经确定下来了:

写一个提交页面,再写一个截取结果的页面。

本来是说用javascript来完成所有操作,但目标站点的数据采用的是UTF-8编码,取回来的数据一下都成了乱码,没办法,头都大了,只好换ASP了。

提交页面iciba.htm

<html>
<head>
<script language="javascript">
function view(){
 var s = document.all.s.value;
 var l = document.all.lang.value;
 var t = document.all.t.value;
 var cs = "s=" + s + "&lang=" + l + "&t=" + t;
 var url = "http://localhost/xml/result.asp?"
 top.ShowResult.location = url + cs;
 return false;
}
</script>
</head>
<body bgcolor="#3A6EA5" leftmargin="0" topmargin="0" bottommargin="0" rightmargin="0" scroll="no" oncontextmenu="return false">
<table width="100%" height="100%" border="0" cellpadding="0" cellspacing="0">
 <tr>
  <td>&nbsp;</td>
  <td width="250" height="100%" align="center" valign="bottom">
   <table width="250" height="100%" border="0" cellpadding="0" cellspacing="0">
    <tr>
 <td>
  <iframe id="ShowResult" name="ShowResult" style="background:#3A6EA5;" width="250" height="100%" frameborder="0" src="http://localhost/xml/result.asp"></iframe>
 </td>
    </tr>
    <tr>
 <td height="50" align="center" style="FILTER:progid:DXImageTransform.Microsoft.Gradient(gradientType=0,startColorStr='#3A6EA5',endColorStr='#3A6EA5');">
  <form name="kf" id="form">
         <input name="s" id="word" size="25" style="font-size:12px" maxlength="255" type="text" onkeydown="if(event.keyCode==13){return view();}" />
         <input type="hidden" name="lang" value="utf-8" />
         <input type="hidden" name="t" value="word" id="t" />
         <input type="button" style="font-size:12px" value="翻译" onclick="return view();" />
      </form>
 </td>
    </tr>
   </table>
  </td>
 </tr>
</table>
</body>
</html>

截取数据页面result.asp

<html>
<head>
<script language="javascript" type="text/javascript">
function str2img(str)
{
    var lenStr = str.length;
    var rsString    = "";
    for (var i=0;i<lenStr;i++ ) {
        var theChar   = str.substr(i,1);
        if (theChar == " "){
            rsString += " ";}
        else if (theChar == "-"){
            rsString += "<img src=/"ui/i/yinbiao/zhonggangxian.png/" border=/"0/" align=absmiddle>";}                       
        else if (theChar == "_"){
            rsString += "<img src=/"ui/i/yinbiao/xiahuaxian.png/" border=/"0/" align=absmiddle>";}           
        else if (theChar == "."){
            rsString += "<img src=/"ui/i/yinbiao/dian.png/" border=/"0/" align=absmiddle>";}
        else if (theChar == "//"){
            rsString += "<img src=/"ui/i/yinbiao/xiexian.png/" border=/"0/" align=absmiddle>";}
        else if (theChar == "/"){
            rsString += "<img src=/"ui/i/yinbiao/fanxiexian.png/" border=/"0/" align=absmiddle>";}
        else if (theChar == "?"){
            rsString += "<img src=/"ui/i/yinbiao/wenhao.png/" border=/"0/" align=absmiddle>";}
        else{
            rsString += "<img src=/"ui/i/yinbiao/"+theChar+".png/" border=/"0/" align=absmiddle>";}
    }
    document.write(rsString);
}
</script>
<base href="http://cb.kingsoft.com/">
<LINK href="ui/c/main.css" type="text/css" rel="stylesheet">
<style>
body{font-size:12px;background-color:#3A6EA5;}
</style>
</head>
<body topmargin="0" bottommargin="0">
<%
on error resume next

function getHTTPPage(url)
   dim Http
   set http=createobject("Microsoft.XMLHTTP")
   Http.open "GET",url,false
   Http.send()
   if Http.readystate<>4 then
   exit function
   end if
   getHTTPPage=bytesToBSTR(Http.responseBody,"UTF-8")
   set http=nothing
   if err.number<>0 then err.Clear
end function
Function BytesToBstr(body,Cset)
 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 = Cset
 BytesToBstr = objstream.ReadText
 objstream.Close
 set objstream = nothing
End Function
Function toUTF8(szInput)
    Dim wch, uch, szRet
    Dim x
    Dim nAsc, nAsc2, nAsc3
   
    If szInput = "" Then
        toUTF8 = szInput
        Exit Function
    End If
    For x = 1 To Len(szInput)
        wch = Mid(szInput, x, 1)
        nAsc = AscW(wch)
        If nAsc < 0 Then nAsc = nAsc + 65536
   
        If (nAsc And &HFF80) = 0 Then
            szRet = szRet & wch
        Else
            If (nAsc And &HF000) = 0 Then
                uch = "%" & Hex(((nAsc / 2 ^ 6)) Or &HC0) & Hex(nAsc And &H3F Or &H80)
                szRet = szRet & uch
            Else
                uch = "%" & Hex((nAsc / 2 ^ 12) Or &HE0) & "%" & _
                            Hex((nAsc / 2 ^ 6) And &H3F Or &H80) & "%" & _
                            Hex(nAsc And &H3F Or &H80)
                szRet = szRet & uch
            End If
        End If
    Next
       
    toUTF8 = szRet
End Function

for each i in request.querystring
 cs = cs & "&" & i & "="
 If instr(cs,"s")<1 then
  cs = cs & request.querystring(i)
 else
  cs = cs & toUTF8(request.querystring(i))
 end if
Next

cs = right(cs,len(cs)-1)

url = "http://cb.kingsoft.com/search?" & cs
'response.write url
'response.end

If url<>"" then
    str = getHTTPPage(url)
    ls = instr(str,"<div style=""background: #F6F6F6")-15
    rs = instr(str,"</div><p")+6
    ns = rs-ls
    resultstr = mid(str,ls,ns)
    resultstr = replace(resultstr,"./search?","http://localhost/xml/result.asp?")
    Response.write resultstr
End if

%>

</body>
</html>

因为iciba.htm要放到桌面上如果直接查找文件选择它的话就不能用HTTP访问,所以里边用了result.asp的绝对路径,当然如果大家在桌面上选择网页的时候选择地址的话即用HTTP访问的话可以把那个地址改成相对路径。

好了,看看效果吧:

PS:您的电脑要在INTERNET上哦!

是不是不错啊?赶快试试吧! ^_^

---------------------------------------------------------------------------------------------2005-05-14

现已有更新,看看吧:

增加了风格选择,放大,缩小,后退,前进,刷新等新功能,另在结果截取方面也有所修改,使之变得更方便通用!欢迎大家适用。

把你的活动桌面地址设置为:

http://www.v-ec.com/community/iciba/iciba.htm

也欢迎大家在适用后对此提出您的看法和意见。

源码下载地址:http://www.v-ec.com/community/iciba.rar

一款桌面英语翻译软件介绍

灵格斯是一款简明易用的词典和文本翻译软件,支持全球超过80多个国家语言的词典查询和全文翻译,支持屏幕取词、 划词、剪贴板取词、索引提示和真人语音朗读功能,并提供海量词库免费下载,专业词典、百科全书、例...
  • AddisonDing
  • AddisonDing
  • 2015年02月20日 15:35
  • 1087

桌面应用程序自动检测更新

简介 我们编写的桌面 APP ,只要发送给客户那么以后再想更新就需要通过 QQ 、邮箱或者其他方式传送源程序,让客户下载、替换,麻烦不说而且用户体验相当不好。 现在有一种方式,应用程序打开后,通过...
  • sinat_20006769
  • sinat_20006769
  • 2018年01月26日 15:38
  • 35

HTML5-桌面式web应用-与web服务器通信( XHR, 服务器发送事件, Web Socket:)

XHR:  XMLHttpRequest 服务器发送的实现:  server-sent event,  让服务器能够定时给网页发送消息; web socket框架:  让浏览器与服...
  • bamboolsu
  • bamboolsu
  • 2015年04月06日 11:44
  • 531

串口调试者C#源码

经常调试串口程序,使用的“串口调试助手V2.2”。这个程序简单,专业。实际使用范围比较广,我在使用过程中发现几个问题。1、只能支持4个串口。不知道我说的对不对,但是在我电脑上只能显示4个。我在本机调试...
  • zhjlz
  • zhjlz
  • 2008年07月05日 10:17
  • 1991

打造漂亮实用的Interllij Java Style

题记:本篇博客描述如何在第一次打开IDEA时,如何配置漂亮的界面。拥有一个漂亮的界面,coding 才爽 import google java code styleidea支持自定义的code sty...
  • u011563903
  • u011563903
  • 2017年01月04日 23:26
  • 2978

设计漂亮实用的菜单

谈在VC中动态改变菜单 bull77 yesky   大部分Windows应用程序都使用下拉式菜单实现自己特定的函数,它使编程更加方便,不需要在程序中增加多个按钮以完成这些操作。大多数情况下,...
  • chinawash
  • chinawash
  • 2006年06月25日 17:16
  • 753

Linux桌面鼠标取词自动翻译

鉴于linux环境下没有像有道词典一样好用的自动取词翻译的软件,所以决定自己写一个。...
  • celte
  • celte
  • 2014年06月03日 11:13
  • 1898

Angular 4.0_在线竞拍网站(4)

今天,主要开发首页,先看效果图,并分析结构。 创建组件 经过分析首页 是由6大组件组成的,分别是 导航条组件、搜索组件、轮播图组件、商品组件、星级组件、页脚组件。 使用angular-cli命令行...
  • btt2013
  • btt2013
  • 2017年08月27日 19:52
  • 565

scikit-learn机器学习库介绍(翻译tutorial)

scikit-learn机器学习库介绍(翻译tutorial)
  • jiangfullll
  • jiangfullll
  • 2014年09月09日 17:27
  • 1480

中文编程语言实现:翻译器

中文编程语言实现:翻译器 对于中文编程语言在早期就可以采用这种做法。翻译器可以将一种语言翻译为现有的语言,以快速实现新的DSL或GPPL。 而这种翻译不应该如同英语中数绵羊(sheep),以克服...
  • gmszone
  • gmszone
  • 2013年05月21日 23:27
  • 2827
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:XMLHTTP打造漂亮实用的在线桌面翻译
举报原因:
原因补充:

(最多只允许输入30个字)