用ASP做一個TOP COOL的站內搜尋

最後更新：2018-12-08 來源：互聯網

上載者：User

創建阿里雲帳戶，並獲得超過 40 款產品的免費試用版；而企業帳戶則可以享有總值 $1200 的免費試用版。立即註冊！

該搜尋引擎由一個HTM檔案一個ASP檔案組成，主要是運用FILESYSTEMOBJECT組件來達到目的，功能強大，修改介面以後可以直接拿來使用，當然加上一點自己的東西就更加好了。

searchpage.htm

該HTM檔案用來傳入條件

<HTML>

<HEAD>

<TITLE>ASP搜尋引擎範例</TITLE>

</HEAD>

<BODY>

<CENTER>

<FORM METHOD=POST ACTION="search.asp">

<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>

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

顯示結果的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

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")

Set objFSO = Server.CreateObject("Scripting.FileSystemObject")

Set objFolder = objFSO.GetFolder(Server.MapPath(strRoot))

schSubFol(objFolder)

Sub schSubFol(objFolder)

For Each objFile in objFolder.Files

If strCount + 1 > reqNumber or strText = "" Then Exit Sub

If Response.IsClientConnected Then

Set objTextStream = objFSO.OpenTextFile(objFile.Path,fsoForReading)

strContent = objTextStream.ReadAll

If InStr(1, strContent, strTag, bolCase) Then

Else

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

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

If Mid(objFile.Name, Len(objFile.Name) - 3, 1) = "." Then strExt = Mid(objFile.Name, Len(objFile.Name) - 3, 4)

If Mid(objFile.Name, Len(objFile.Name) - 4, 1) = "." Then strExt = Mid(objFile.Name, Len(objFile.Name) - 4, 5)

If InStr(1, strContent, strText, bolCase) And _

InStr(1, strContent, reqImage, 1) And _

InStr(1, strContent, reqZips, 1) And _

InStr(1, strContent, reqJavaS, 1) And _

Instr(1, strFile, strExt, 1) Then

If InStr(1, strContent, "<TITLE>", 1) Then strTitle = Mid(strContent, InStr(1, strContent, "<TITLE>", 1) + 7, InStr(1, strContent, "</TITLE>", 1)) Else strTitle = "未命名"

strCount = strCount + 1

Response.Write "<DL><DT><B><I>"& strCount &"</I></B> - <A HREF=" & objFile.Path & ">" & strTitle & "</A></A></DT><BR><DD>"

strTitleL = InStr(1, strContent, "</TITLE>", 1) - InStr(1, strContent, "<TITLE>", 1) + 7

strDeTag = ""

bolTagFound = False

Do While InStr(strContent, "<")

bolTagFound = True

strDeTag = strDeTag & " " & Left(strContent, InStr(strContent, "<") - 1)

strContent = MID(strContent, InStr(strContent, ">") + 1)

Loop

strDeTag = strDeTag & strContent

If Not bolTagFound Then strDeTag = strContent

If reqLength = "0" Then Response.Write objFile.Path & "</DD></DL>" Else Response.Write Mid(strDeTag, strTitleL, reqLength) & "...<BR><b><FONT SIZE='2'>URL: " & objFile.Path & " - 上次修改時間: " & objFile.DateLastModified & " - " & FormatNumber(objFile.Size / 1024) & "Kbytes</FONT></b></DD></DL>"

bolFileFound = True

End If

objTextStream.Close

End If

End If

Next

End Sub

For Each objSubFolder in objFolder.SubFolders

schSubFol(objSubFolder)

Next

If Not bolFileFound then Response.Write "沒有匹配結果"

If bolFileFound then Response.Write "<B>搜尋結束</B>"

Set objTextStream = Nothing

Set objFolder = Nothing

Set objFSO = Nothing

%>

</BODY></HTML>

本文章原先以中文撰寫並發佈於 aliyun.com，亦設英文版本，僅作資訊用途。本網站不對文章的準確性，完整性或可靠性或其任何翻譯作出任何明示或暗示的陳述或保證。如對該文章有任何疑慮或投訴，請傳送電郵至 info-contact@alibabacloud.com 並提供相關疑慮或投訴的詳細說明。職員會於 5 個工作天內與您聯絡，一經驗證之後，即會刪除該侵權內容。

A Free Trial That Lets You Build Big!

Start building with 50+ products and up to 12 months usage for Elastic Compute Service

Get Started for Free

Sales Support

1 on 1 presale consultation

Chat Contact Sales
After-Sales Support

24/7 Technical Support 6 Free Tickets per Quarter Faster Response

Open a Ticket
Alibaba Cloud offers highly flexible support services tailored to meet your exact needs.

Learn More