用VBScript制作个人网站搜索引擎_VB.NET程序_学习笔记★闵涛★计算机学习电脑编程软硬件技巧


	转至繁体中文版	\| 网站首页 \| 图文教程 \| 资源下载 \| 站长博客 \| 图片素材 \| 武汉seo \| 武汉网站优化 \|

用VBScript制作个人网站搜索引擎

作者：闵涛文章来源：闵涛的学习笔记点击数：1831 更新时间：2009/4/23 18:52:34

>
<font color=#ff0000>大小写敏感</font>，查询英文时若未返回结果请改换大小写再试。<br>
<p align=center>Powered by Lynne@ Cyber Class</p></body></html>"
end if
end function
function searchboth()
if keyword.Value="" then
msgbox "Input the keyword first!!!"
else
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>"
Set objNodeList = xmldoc.getElementsByTagName("title")
Set objdiscList = xmldoc.getElementsByTagName("discribe")
Set objhrefList = xmldoc.getElementsByTagName("href")
For i = 0 To (objNodeList.length - 1)
if (InStr(objNodeList.Item(i).Text,key)<>0) or (InStr(objdiscList.Item(i).Text,key)<>0) then
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>"
end if
Next
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>"
end if
end function
-->
</script>
</head>
<body>
Cyber Class网站文章检索<br>
<br>Input the keyword:
<input type="text" id="keyword"><br><br>
<input type="button" value="仅在标题中查询" onclick="search()">    
<input type="button" value="在标题和摘要中查询" onclick="searchboth()">
<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>

tech.xml

<?xml version="1.0" encoding="gb2312"?>
<tech>
<article>
<title>XML介绍（new）</title>
<discribe>?/font>笆率瞪希琗ML将为每一种流行的编程语言带来一个语言的革命。正因为如此，这是一个意义
深远的变革，其
影响力甚至超过了HTML为演示世界带来的影响。” --比尔盖茨</discribe>
<href>01060601.htm</href>
</article>
<article>
<title>中国软件业需要软件蓝领（new）</title>
<discribe>一提起中国软件业，我们总是和印度相比较，因为20年前，印度软件业和中国软件业几乎同时
起步。但在几年时间里，印度一下子就把中国远远地抛在后面。1999年到2000年印度的信息产业总产值
达到59亿美元，差不多是中国的3倍。很多专家对此进行了研究和探讨...</discribe>
<href>01052001.htm</href>
</article>
<article>
<title>COMDEX/CHINA想要“专业”的尴尬</title>
<discribe>在较少大众媒体的宣传下，以“新经济时代的信息化解决方案”为主题的第五届COMDEX
China2001，4月4日在中国国际展览中心开幕。尽管如此，许多人还是闻讯赶来，期望能在这里触摸到一
些信息。然而不管是从参观的设计路线，还是从参展商的安排上，让人在体会到主办者煞费苦心的同时，
也感受到一些想要“专业”的尴尬。</discribe>
<href>01040802.htm</href>
</article>
<article>
<title>让媒体靠边站，现在是我们技术代表发言的时候了！</title>
<discribe>作为一个技术性公司的管理者，首先要面对的是在技术的滚滚浪潮中找准自身定位的难题。而
每一个走向成功的高科技企业家，毫无意外的都是在思想上能够有所突破的先行者。如果一个拘泥于陈旧
思想或者跟随当前状况人云亦云的人，
是绝对不可能带来革命性的创造的。</discribe>
<href>01033101.htm</href>
</article>
<article>
<title>面向未来，面向.NET（1）——.NET的目标</title>
<discribe>什么是.NET呢？实质上，.NET是Microsoft贴在现有产品和未来产品上的一个新式行销标签。
在Microsoft服务器端
产品中，如基于Windows DNA 2000技术...</discribe>
<href>01032501.htm</href>
</article>
<article>
<title>面向未来，面向.NET（2）——.NET的体系结构</title>
<discribe>接下来我们将深入地分析.NET体系以及用于设计和创建企业Web应用的工具，但首先我们可以
将.NET体系描述如下：
它是一组公共的服务...</discribe>
<href>01033102.htm</href>
</article>
<article>
<title>面向未来，面向.NET（3）——CLR、ASP.NET和应对策略（new）</title>
<discribe>如前所述，CLR和Java虚拟机一样也是一个运行时环境，它负责资源管理（内存分配和垃圾收
集），并保证应用和底层操作系统之间必要的分离。</discribe>
<href>01040803.htm</href>
</article>
<article>
<title>电子商务理论研究综述</title>
<discribe>当前电子商务方面的理论研究主要可概括为三个方面：电子商务的应用模型、电子商务系统的
实现框架、电子商务中难点问题的研究。</discribe>
<href>ec.htm</href>
</article>
<article>
<title>走近ASP.NET</title>
<discribe>Asp.net又叫asp+，他不是asp的简单升级，而是Microsoft推出的新一代Active Server

上一页 [1] [2] [3] 下一页

没有相关教程

教程录入：mintao 责任编辑：mintao

上一篇教程：经典加密算法在VB中的实现（4）- DES

下一篇教程：编写映射驱动器

【字体：小大】【发表评论】【加入收藏】【告诉好友】【打印此文】【关闭窗口】

注：本站部分文章源于互联网，版权归原作者所有！如有侵权，请原作者与本站联系，本站将立即删除！本站文章除特别注明外均可转载，但需注明出处！ [MinTao学以致用网]

　网友评论：（只显示最新10条。评论内容只代表网友观点，与本站立场无关！）

同类栏目

· C语言系列 · VB.NET程序
· JAVA开发 · Delphi程序
· 脚本语言

热门推荐

没有教程

赞助链接

闵涛博文

500 - 内部服务器错误。

您查找的资源存在问题，因而无法显示。

鄂公网安备 42011102001154号

站长：MinTao ICP备案号：鄂ICP备11006601号-18

闵涛站盟:医药大全-武穴网。A打造B、C、D……