該搜尋引擎由一個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>
<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
</FONT>
</TD>
<TD width="363" nowrap> <FONT COLOR="#FFFFFF"> 必須包括:
<INPUT TYPE="checkbox" NAME="iImage">
圖檔
<INPUT TYPE="checkbox" NAME="iZips">
Zip格式
<INPUT TYPE="checkbox" NAME="iJavaS"> JavaScript
</TABLE>
</FORM>
</CENTER>
<DL>
<DD> </DD>
</DL>
</BODY>
</HTML>
------------------------------------------------------------------------
顯示結果的ASP程式
search.asp
<TITLE>‘<%=Request("SearchText")%>‘的搜尋結果</TITLE>
<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
Dim reqImage, reqJavaS, reqLength, reqNumber, reqZip
strFile = ".asp .htm .html .js .txt .css"
strRoot = "/"
strText = Request("SearchText")
strTag = Chr(37) & Chr(62)
bolFileFound = False
bolTagFound = False
If Request("Case") = "on" Then bolCase = 0 Else bolCase = 1
If Request("iImage") = "on" Then reqImage = "<IMG" Else reqImage = ""
If Request("iZips") = "on" Then reqZips = ".zip" Else reqImage = ""
If Request("iJavaS") = "on" Then reqJavaS = "JavaScript" Else reqImage = ""
If Request("rResults") = "10" Then reqNumber = 10
If Request("rResults") = "25" Then reqNumber = 25
If Request("rResults") = "50" Then reqNumber = 50
reqLength = Request("rLength")
%>