用VBScript制作网站搜索 -- 如何变为 JavaScript?

关键是：你要理解VBSCRIPT与JAVASCRIPT之间对应的关系，比如：set xxx=转为var xxx=等

解决方案 »

  1.   

    下面是大致的修改，你要是对XML，VBSCRIPT，JAVASCRIPT比较了解的话，应该好改，关键是思路。
    下面的代码我的笔记本是IE4，无法调试，肯定有错误，你你自己再改改，另外
    if ((objNodeList.Item(i).Text,key)!=0)是不对的，你自己改一下：search.htm
    <html>
    <head>
    <meta http-equiv="Content-Type" content="text/html; charset=gb2312">
    <title>搜索</title>
    <script>
    <!--
    var xmldoc
    var xmldoc = ActivXObject("Microsoft.XMLDOM")
    xmldoc.load("tech.xml")
    function search()
    if(document.form1.keyword.Value=="")
    alert("Input the keyword first!!!")
    else
    {
    key=document.form1.keyword.value
    document.writeln("<html><head><meta http-equiv=Content-Type content=text/html; charset=gb2312><title>Cyber Class 网站文章检索（从标题查询）</title></head><body>Cyber Class网站文章检索<br><br><table border=1 cellpadding=0 cellspacing=0 width=100% bordercolor=#000000 bordercolorlight=#000000bordercolordark=#FFFFFF><tr><td bgcolor=#108cd8><font color=#FFFFFF>Title</font></td><td bgcolor=#108cd8><font color=#FFFFFF>Discribe</font></td><td bgcolor=#108cd8><font color=#FFFFFF>GO!</font></td></tr>")
    var objNodeList = xmldoc.getElementsByTagName("title")
    var objdiscList = xmldoc.getElementsByTagName("discribe")
    var objhrefList = xmldoc.getElementsByTagName("href")
    for(var i = 0;i<(objNodeList.length - 1);i++){
    if ((objNodeList.Item(i).Text,key)!=0)
    {
    document.write("<tr><td>" + objNodeList.Item(i).Text + "</td>")
    document.write("<td>"+objdiscList.Item(i).Text + "</td>")
    document.write("<td><a href=" + objhrefList.Item(i).Text + " target=_blank>" + objhrefList.Item(i).Text +"</a></td></tr>")
    }
    }
    document.writeln("</table><a href=search.htm>返回</a><br><br><br>注意：该查询系统<font color=#ff0000>大小写敏感</font>，查询英文时若未返回结果请改换大小写再试。<br><p align=center>Powered by Lynne@ Cyber Class</p></body></html>")
    }
    function searchboth()
    if(document.form1.keyword.Value=="")
    alert("Input the keyword first!!!")
    else
    {
    document.form1.key=keyword.value
    document.writeln "<html><head><meta http-equiv=Content-Type content=text/html; charset=gb2312><title>Cyber Class网站文章检索（从标题和摘要查询）</title></head><body>Cyber Class网站文章检索<br><br><table border=1 cellpadding=0 cellspacing=0 width=100% bordercolor=#000000 bordercolorlight=#000000 bordercolordark=#FFFFFF><tr><td bgcolor=#108cd8><font color=#FFFFFF>Title</font></td><td bgcolor=#108cd8><font color=#FFFFFF>Discribe</font></td><td bgcolor=#108cd8><font color=#FFFFFF>GO!</font></td></tr>")
    var objNodeList = xmldoc.getElementsByTagName("title")
    var objdiscList = xmldoc.getElementsByTagName("discribe")
    var objhrefList = xmldoc.getElementsByTagName("href")
    for(var i = 0;i<(objNodeList.length - 1);i++){
    if ((objNodeList.Item(i).Text,key)!=0) || ((objdiscList.Item(i).Text,key)!=0){
    document.write("<tr><td>" + objNodeList.Item(i).Text + "</td>")
    document.write("<td>" + objdiscList.Item(i).Text + "</td>")
    document.write("<td><a href=" + objhrefList.Item(i).Text + " target=_blank>" + objhrefList.Item(i).Text +"</a></td></tr>")
    }
    }
    document.writeln("</table><a href=search.htm>返回</a><br><br><br>注意：该查询系统<font color=#ff0000>大小写敏感</font>，查询英文时若未返回结果请改换大小写再试。<br><p align=center>Powered by Lynne @ Cyber Class 2001/6</p></body></html>")
    -->
    </script>
    </head>
    <body>
    Cyber Class网站文章检索<br>
    <br>Input the keyword:
    <form name=form1>
    <input type="text" id="keyword"><br><br>
    <input type="button" value="仅在标题中查询" onclick="search()">&nbsp;&nbsp;&nbsp;&nbsp;
    <input type="button" value="在标题和摘要中查询" onclick="searchboth()">
    </form>
    <br><br><br>
    说明：该查询系统利用XML和VBScript技术制作，可以在本网站技术版块中按照标题或摘要查询文章。
    <br><br>
    注意：该查询系统<font color="#ff0000">大小写敏感</font>，查询英文时若未返回结果请改换大
    小写再试。<br><br>
    注意：若出现-2147483638运行时错误，请耐心等待网页下载完毕（IE左下角出现完成）再点击查询按钮
    <p align=center>Powered by Lynne @ Cyber Class 2001/6</p>
    </body>
    </html>
      

  2.   

    IE老说 这个语句 if(document.form1.keyword.Value=="") 前面缺 "{"
    请教斑竹 。  我什么也不知道  ：（