搜索引擎由一个HTM文件和一个ASP文件组成。主要的目的是使用FileSystemObject组件实现的目的。它是强大的。修改了界面后，就可以直接使用了，当然，还要多加一些你自己的东西。


searchpage.htm

HTM文件用于传递条件。






asp搜索引擎实例
























高度敏感





















返回结果



长的信息

短消息

只返回连接





十

二十五

五十












它必须包括：



照片



zip格式

Javaｓｃｒｉｐｔ

























------------------------------------------------------------------------

显示结果的ASP程序

把search.asp






搜索结果





搜索结果

<

const fsoforreading = 1

暗淡的名字，听听听，objsubfolder，objtextstream

昏暗的bolcase，bolfilefound，boltagfound

昏暗的strcount，strdetag，strext，strfile，strcontent，strroot，strtag，strtext，strtitle，strtitlel

昏暗的reqimage，reqjavas，reqlength，reqnumber，reqzip


strfile = 。ASP。htm，html，JS，CSS文件。

strroot = /

strtext =请求（SearchText）

strtag = CHR CHR（62）（37）

bolfilefound = false

boltagfound = false

如果请求（个案）=上然后bolcase = 0否则= 1

如果请求（图像）= 然后reqimage =
如果请求（izips ），然后reqzips =.zip其他reqimage =

如果请求（ijavas ），然后reqjavas =Javaｓｃｒｉｐｔ其他reqimage =

如果请求（结果）=10，然后reqnumber = 10

如果请求（结果）=25，然后reqnumber = 25

如果请求（结果）=50，然后reqnumber = 50

reqlength =请求（RLENGTH ）


集objfso = server.createobject（脚本。FileSystemObject ）

听听听= objfso.getfolder集（server.mappath（strroot））


SchSubFol（听听听）


子schsubfol（听听听）

听听听每个名字的文件中。

如果strcount + 1或> reqnumber strtext =然后退出

如果response.isclientconnected然后

集objtextstream = objfso.opentextfile（objfile.path，fsoforreading）


strcontent = objtextstream.readall


如果仪器（1，strcontent，strtag，bolcase）然后

其他的

If Mid (objFile.Name, Len (objFile.Name) - 1, 1) = . Then strExt = Mid (objFile.Name, Len (objFile.Name) - 1, 2)

如果中期（objfile.name，Len（名字。名字）- 2, 1）= 。然后strext =中（objfile.name，Len（名字。名字）- 2, 3）

如果中期（objfile.name，Len（名字。名字）- 3, 1）= 。然后strext =中（objfile.name，Len（名字。名字）- 3, 4）

如果中期（objfile.name，Len（名字。名字）- 4, 1）= 。然后strext =中（objfile.name，Len（名字。名字）- 4, 5）

如果仪器（1，strcontent，strtext，bolcase）和_

仪器（1，strcontent，reqimage，1）和_

仪器（1，strcontent，reqzips，1）和_

仪器（1，strcontent，reqjavas，1）和_

仪器（1，strfile，strext，1）然后

如果仪器（1，strcontent，1 ）然后strtitle =中（strcontent，仪器（1，strcontent，


strcount = strcount + 1

响应。写strcount quot；strtitle

strtitlel =仪器（1，strcontent，


strdetag =

boltagfound = false


做仪器（strcontent，<）

boltagfound =真

strdetag = strdetag 左（strcontent，仪器（strcontent，<）- 1）

strcontent =中（strcontent，仪器（strcontent，>）+ 1）

环


strdetag = strdetag strcontent

如果不boltagfound然后strdetag = strcontent


如果reqlength = 0 然后响应。写名字。路径别人的反应。写中（strdetag，strtitlel，reqlength）…strtitlel最后修改时间：（ / 1024 ）。

bolfilefound =真

最后如果

objtextstream。关闭

最后如果

最后如果

下一个

端子


每个objsubfolder在objfolder.subfolders

SchSubFol（objsubfolder）

下一个


如果不bolfilefound然后响应。写没有匹配的结果

如果bolfilefound然后响应。写搜索结束


集objtextstream =没有

听听听=没有设置

集objfso =没有

%>