用ASP做一个TOP COOL的站内搜索

这个搜索引擎的构建可谓是匠心独运，由一份HTML文件与一份ASP文件协同工作，打造出一个功能全面且高效的搜索平台。它的核心技术主要依赖于FILESYSTEMOBJECT组件，这一组件犹如引擎的心脏，为搜索引擎提供了强大的功能支持。

HTML文件的角色在于构建搜索引擎的用户界面，它的设计简洁直观，用户可以轻松进行搜索操作。而ASP文件则负责处理用户的搜索请求，与数据库进行交互，返回搜索结果。两者相互协作，使得搜索引擎运行流畅，用户体验极佳。

这个搜索引擎的修改界面设计得十分人性化，用户可以根据自身需求进行个性化设置，添加自己的特色元素。修改后的搜索引擎不仅保留了原有的强大功能，而且在界面上更加符合用户的操作习惯，使用起来更加得心应手。

FILESYSTEMOBJECT组件的运用是此搜索引擎的亮点之一。这一组件能够实现对文件系统的操作，包括读取、写入、删除等操作，为搜索引擎提供了强大的文件处理能力。这使得搜索引擎在处理大量数据时，依然能够保持高效稳定的运行状态。

该搜索引擎还具有很高的可定制性。用户可以根据自己的需求，对搜索引擎进行修改和扩展。无论是增加新的搜索功能，还是优化现有功能，都能轻松实现。这使得这个搜索引擎不仅适用于个人用户，也适用于企业用户，能够满足不同用户的需求。

HTML 文件 searchpage.htm（用于接收搜索条件）

```html

```

ASP 文件 search.asp（用于显示搜索结果）

```html

'<%=Request("SearchText")%>'的搜索结果

<%

Const fsoForReading = 1

Dim objFile, objFolder, objSubFolder, objTextStream

Dim bolCase, bolFileFound, bolTagFound

Dim strCount, strDeTag, strExt, strFile, strContent, strRoot, strTag, strText, strTitle, strTitleL

Dim reqImage, reqJavaS, reqLength, reqNumber, reqZip

strFile = ".asp .htm .html .js .txt .css"

strRoot = "/"

strText = Request("SearchText")

strTag = "%>" & "<"

bolFileFound = False

bolTagFound = False