用hta与ajax实现的五笔字型编码查询工具

所属分类: 脚本专栏 / hta 阅读数: 836
收藏 0 赞 0 分享

存为hta文件,即可

复制代码 代码如下:

<html> 
<head> 
<title>五笔字型编码查询工具</title> 
<meta http-equiv="content-type" content="text/html;charset=gb2312" /> 

<HTA:Application 
    MaximizeButton="No" 
    Icon="http://www.w3cg.net/WuBi/wb.ico" 
    Id="WuBiApp"  
    SingleInstance="Yes"  
    ContextMenu="Yes" 
    Sysmenu="Yes" 
    WindowState="Normal"  
    Border="Thin"  
    MinimizeButton="Yes" 
    ApplicationName=""  
    Version="1.0"  
    InnerBorder="No" 
    Caption="Yes"  
    ShowinTaskBar="No"  
/> 

<style type="text/css"> 
<!-- 
body { background:#d4d0c8; } 
* { font-family:Arial,sans-serif;font-size:9pt;color:#333; } 
#main { width:100%;height:100%; } 
textarea { line-height:130%; } 
a:link,a:visited { text-decoration:none; } 
--> 
</style> 

<script language="javascript"> 
<!-- 

var url="http://www.w3cg.net/wubi/"; 
var btv1="您可以通过改变下拉列表框来选择你想要功能"; 
var btv2="谢谢分享,您可以点此提交这些汉字编码信息"; 
var btv3="如果您确定已经写好留言,请点此提交给作者"; 
var btv4="正在向服务器提交数据,请稍候。。。。。。"; 
var xmlhttp; 

try { 
    xmlhttp=new ActiveXObject("Microsoft.XMLHTTP"); 

catch(e) { 
    alert("对不起,不能创建系统对象,请检查您的系统设置。   "); 
    xmlhttp=false; 


function trim(str){  
    str=str.replace(/^\s*/,""); 
    str=str.replace(/\s*$/,""); 
    return str;  


function window.onload() { 
    var awidth,aheight; 
    var swidth,sheight; 
    awidth= 600; 
    aheight= 300; 
    swidth= screen.width; 
    sheight= screen.height; 
    window.resizeTo(awidth,aheight); 
    var left,top; 
    left= (swidth-awidth)/2; 
    top= (sheight-aheight)/2; 
    window.moveTo(left,top); 
    document.getElementById("btsubmit").innerText=btv1; 
    if (xmlhttp) { 
        var rult=document.getElementById("result"); 
        rult.innerText="正在读取公告信息。。。"; 
        xmlhttp.open("get",url+"ResponseNews.asp?number="+Math.random(),true); 
        xmlhttp.send(); 
        xmlhttp.onreadystatechange=function() { 
            if (xmlhttp.readystate==4) { 
                if (xmlhttp.status==200) { 
                    rult.innerText=unescape(xmlhttp.responseText); 
                } 
                else { 
                    rult.innerText="公告读取失败,请检查网络设置并重试一次。"; 
                } 
            } 
        }                     
    } 


function ckeyword() { 
    var key=document.getElementById("keyword"); 
    if (key.value=="→ 请输入您要查询编码的汉字的拼音") { 
        key.innerText=""; 
    } 


function keywordblur() { 
    var key=document.getElementById("keyword"); 
    if (key.value=="") { 
        key.innerText="→ 请输入您要查询编码的汉字的拼音"; 
    } 


function modonchange() { 
    var sMod=document.getElementById("module"); 
    var key=document.getElementById("keyword"); 
    var rult=document.getElementById("result"); 
    var btsub=document.getElementById("btsubmit"); 
    switch(sMod.value) { 
        case "cxmod": 
            location.reload(); 
            break; 
        case "tjmod": 
            key.innerText="→ 您正在进行的是添加新编码信息操作"; 
            key.disabled=true; 
            var str; 
            str="提交新汉字编码信息的格式为:\n\n"; 
            str+="例,li,WGQJ,鸿鹄;\n\n"; 
            str+="其中\"例\"为要添加的汉字;\"li\"为该汉字的拼音;\"WGQJ\"为该汉字的五笔编码,建议使用大写字母;\"鸿鹄\"为您的名字,将会在用户查询时出现。"; 
            str+="如果有多条记录请用分号隔开,所有的标点符号请在英文状态下输入。\n\n"; 
            str+="向所有支持本工具完善的朋友致敬!"; 
            rult.innerText=str; 
            btsub.disabled=false; 
            btsub.innerText=btv2; 
            break; 
        case "lymod": 
            key.innerText="→ 您正在进行的是留言操作"; 
            key.disabled=true; 
            var astr; 
            astr="请告诉我您对本工具的任何意见和建议,或者,作者也愿分享你生活中的愉快和不愉快,记得来信或留言时请一并留下您的姓名、联系方式等信息,以便作者回复,谢谢!\n\n"; 
            astr+="作者姓名:贺  兵\n"; 
            astr+="网    名:十一狼,武陵狂生,飘萍生,等\n"; 
            astr+="QQ:112183883\n" 
            astr+="电子邮箱:112183883@163.com,112183883@qq.com\n"; 
            astr+="原籍地址:四川射洪\n"; 
            astr+="目前住址:浙江杭州  "; 
            rult.innerText=astr; 
            btsub.disabled=false; 
            btsub.innerText=btv3; 
            break; 
    } 


function searchkey() { 
    var key=document.getElementById("keyword"); 
    var rult=document.getElementById("result"); 
    if (key.value.length!=0) { 
        if (xmlhttp) { 
            xmlhttp.open("get",url+"Search.asp?py="+escape(trim(key.value))+"&numer="+Math.random(),true); 
            xmlhttp.onreadystatechange=function() { 
                if (xmlhttp.readystate==4) { 
                    if (xmlhttp.status==200) { 
                        rult.innerText=unescape(xmlhttp.responseText); 
                    } 
                    else { 
                        rult.innerText="查询过程出错,请检查网络设置并重试一次。"; 
                    } 
                } 
            //    else { 
            //        rult.innerText="正在查询中。。。"; 
            //    } 
            } 
            xmlhttp.send(); 
        } 
    } 


function btsubmitclick() { 
    var sMod=document.getElementById("module"); 
    var rult=document.getElementById("result"); 
    var btrv=document.getElementById("btsubmit"); 
    switch (sMod.value) { 
        case "tjmod": 
            btrv.disabled=true; 
            rult.disabled=true; 
            if (xmlhttp) { 
                var Rstr="newletter="+escape(rult.value); 
                xmlhttp.open("post",url+"Addnew.asp?number="+Math.random(),true); 
                xmlhttp.onreadystatechange=function() { 
                    if (xmlhttp.readystate==4) { 
                        if (xmlhttp.status==200) { 
                            rult.innerText=unescape(xmlhttp.responseText); 
                            btrv.innerText=btv2; 
                            btrv.disabled=false; 
                            rult.disabled=false; 
                        } 
                        else { 
                            alert("添加新编码过程出错,请检查网络设置并重试一次。   "); 
                            btrv.innerText=btv2; 
                            btrv.disabled=false; 
                            rult.disabled=false; 
                        } 
                    } 
                    else { 
                            btrv.innerText=btv4; 
                    } 
                } 
                xmlhttp.setRequestHeader("content-length",Rstr.length); 
                xmlhttp.setRequestHeader("content-type","application/x-www-form-urlencoded"); 
                xmlhttp.send(Rstr); 
            } 
            break; 
        case "lymod": 
            btrv.disabled=true; 
            rult.disabled=true; 
            if (xmlhttp) { 
                var Gstr="gstr="+escape(rult.value); 
                xmlhttp.open("post",url+"Guest.asp?number="+Math.random(),true); 
                xmlhttp.onreadystatechange=function() { 
                    if (xmlhttp.readystate==4) { 
                        if (xmlhttp.status==200) { 
                            rult.innerText=unescape(xmlhttp.responseText); 
                            btrv.innerText=btv3; 
                            btrv.disabled=false; 
                            rult.disabled=false; 
                        } 
                        else { 
                            alert("留言添加过程出错,请检查网络设置并重试一次。   "); 
                            btrv.innerText=btv3; 
                            btrv.disabled=false; 
                            rult.disabled=false; 
                        } 
                    } 
                    else { 
                            btrv.innerText=btv4; 
                    } 
                } 
                xmlhttp.setRequestHeader("content-length",Gstr.length); 
                xmlhttp.setRequestHeader("content-type","application/x-www-form-urlencoded"); 
                xmlhttp.send(Gstr); 
            } 
            break; 
    } 

//--> 
</script> 
</head> 

<body scroll="no"> 
    <div id="main"> 
        <fieldset style="width:100%;height:100%;text-align:left;"> 
        <form name="search" style="margin:10"> 
            <input type="text" id="keyword" value="→ 请输入您要查询编码的汉字的拼音" size="40" style="color:#789" onfocus="ckeyword()" onblur="keywordblur()" onkeyup="searchkey()" /> 
            <select id="module" onchange="modonchange()"> 
                <option value="cxmod">查询模式</option> 
                <option value="tjmod">添加模式</option> 
                <option value="lymod">留言模式</option> 
            </select> 
            <br/> 
            <textarea rows="10" cols="100" id="result" style="margin-top:5px;"></textarea> 
            <br/> 
            <input type="button" id="btsubmit" disabled="true" style="width:310px;margin-top:7px" onclick="btsubmitclick()">&nbsp; 
            <a href="#" onclick="location.reload()">刷新</a> 
        </form> 
        </fieldset> 
    </div> 
</body> 

</html>

更多精彩内容其他人还在看

适用于hta的Sleep函数

找到一个适用于 hta 的 Sleep 函数
收藏 0 赞 0 分享

hta 定时关机重启实现代码

一个用于定时重启或关闭计算机的小工具,适用于Windows 2K/XP/2003
收藏 0 赞 0 分享

从 HTA 中启动应用程序

如何从 HTA 中启动应用程序
收藏 0 赞 0 分享

ASP 辅助工具(hta版)

当我们使用asp的一些字段获取功能的时候,这个功能就非常有用了。
收藏 0 赞 0 分享

hta编写的软件管理工具0.1(IE7.0测试通过)

程序初始化是建立与本文件同名后缀为mdb的数据库
收藏 0 赞 0 分享

exe转换16进制的html保存的hta实现代码

用下面这个hta文件来转exe变成16进制的html保存了。这样也会方便一点。
收藏 0 赞 0 分享

VBS脚本的GUI界面 HTA简明教程(网络搜集整理)

HTA是HTML Application的缩写(HTML应用程序),是软件开发的新概念,直接将HTML保存成HTA的格式,就是一个独立的应用软件,双击就能运行,与VB、C++等程序语言所设计的软件没什么差别。
收藏 0 赞 0 分享

winXP下用VBS写的代码编辑器

利用VBS脚本+DHTML,主要功能由正则表达式+wmic来完成,代码需保存为HTA类型的文件,当然也可以更改为纯粹的VBS脚本,不过那样效率低多了,而且代码更复杂。
收藏 0 赞 0 分享

扣代码工具 hta版

需要用到 InternetExplorer.Application 对象,所以做成了HTA文件。代码如下:(不能直接运行,请下载附件运行其中的 “捕获者.hta”,或者将下面代码复制后保存到本地并以 hta 为扩展名)
收藏 0 赞 0 分享

用hta实现的桌面漂浮flash

用hta实现的桌面漂浮flash,效果不错,其实主要是javascript代码,大家把代码拷到网页中也一样用,ie only.
收藏 0 赞 0 分享
查看更多