該搜索引擎由一個HTM文件一個ASP文件組成，主要是運用FILESYSTEMOBJECT組件來達到目的，功能強大，修改界面以後可以直接拿來使用，當然加上一點自己的東西就更加好了。
searchpage.htm
該HTM文件用來傳入條件
<HTML>
<HEAD>
<TITLE>ASP搜索引擎範例</TITLE>
</HEAD>
<BODY>
<CENTER>
<FORM METHOD=POST ACTION=search.asp>
<TABLE BGCOLOR=#CC6633 BORDER=0>
<TR>
<TD ROWSPAN=3 BGCOLOR=#CC6633 width=21 nowrap> </TD>
<TD width=363 nowrap> <FONT COLOR=#FFFFFF>
<INPUT TYPE=text NAME=SearchText SIZE=22>
<INPUT TYPE=checkbox NAME=Case>
高度敏感</FONT> </TD>
<TD ROWSPAN=3 width=10>
<INPUT TYPE=submit VALUE=確定>
<P>
<INPUT TYPE=reset VALUE=清除>
</TD>
<TD ROWSPAN=3 BGCOLOR=#CC6633 width=28> </TD>
</TR>
<TR>
<TD width=363 nowrap> <FONT COLOR=#FFFFFF> 返回結果
<SELECT name=rLength >
<option value=200 selected>長信息</option>
<option value=100>短信息</option>
<option value=0>只返回連接</option>
</SELECT>
<SELECT NAME=rResults>
<OPTION VALUE=10 SELECTED>10
<OPTION VALUE=25>25
<OPTION VALUE=50>50
</SELECT>
</FONT>
</TD>
</TR>
<TR>
<TD width=363 nowrap> <FONT COLOR=#FFFFFF> 必須包括:
<INPUT TYPE=checkbox NAME=iImage>
圖片
<INPUT TYPE=checkbox NAME=iZips>
Zip格式
<INPUT TYPE=checkbox NAME=iJavaS> JavaScript
</FONT>
</TD>
</TR>
</TABLE>
</FORM>
</CENTER>
<DL>
<DD> </DD>
</DL>
</BODY>
</HTML>
------------------------------------------------------------------------
顯示結果的ASP程序
search.asp
<HTML>
<HEAD>
<TITLE>'<%=Request(SearchText)%>'的搜索結果</TITLE>
</HEAD>
<BODY>
<B>'<%=Request(SearchText)%>'的搜索結果</B><BR>
<%
Const fsoForReading = 1
Dim objFile, objFolder, objSubFolder, objTextStream
Dim bolCase, bolFileFound, bolTagFound
Dim strCount, strDeTag, strExt, strFile, strContent, strRoot, strTag, strText, strTitle, strTitleL