用VBScript制作网站搜索 -- 如何变为 JavaScript? 关键是:你要理解VBSCRIPT与JAVASCRIPT之间对应的关系,比如:set xxx=转为var xxx=等 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 下面是大致的修改,你要是对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 xmldocvar 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.valuedocument.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.valuedocument.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()"> <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> IE老说 这个语句 if(document.form1.keyword.Value=="") 前面缺 "{"请教斑竹 。 我什么也不知道 :( jquery控制div隐藏、跳出问题 关于用javascript设置excel文档的数据有效性问题 在html文件中插入编号 大家帮我分析一下这段js是作什么用的 高手的进来 在firefox中使用this的问题 循环生成的元素的提交问题! 怎样将移动当前窗口显示最页面最下面的内容? 如何判断用户录入的数字还是字符 一个js实现问题 如何在一个框架里取另一个框架中的一个文本框的内容?? 请问如何改变按钮上文字的属性?(比如字体和大小等)
下面的代码我的笔记本是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()">
<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>
请教斑竹 。 我什么也不知道 :(