主頁 > 知識庫 > 如何用FileSystemObject組件來做一個站內(nèi)搜索?

如何用FileSystemObject組件來做一個站內(nèi)搜索?

熱門標簽:自適應(yīng)地圖標注 教育機構(gòu)地圖標注 重慶400電話哪里辦理 語音電銷機器人視頻 遼寧營銷智能外呼系統(tǒng)價格多少 常州智能外呼電銷機器人如何 400電話是怎么申請 武漢如何辦理400電話 推銷電話機器人怎么打電話的

searchpage.htm
' 搜索頁面.

html>

head>
        title>
千花飛舞之站內(nèi)搜索引擎/title>
    /head>
    body>
        CENTER>
            FORM METHOD=POST ACTION="searchresult.asp">

    TABLE BGCOLOR="#BLUE" BORDER="0">
      tr>                       
        td ROWSPAN="3" BGCOLOR="#BLUE" 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="#BLUE" width="28">/td>
                    /tr>
                    tr>

        td width="363" nowrap> FONT COLOR="#FFFFFF">
搜索返回結(jié)果
          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>
/DL>
/body>/html>

searchresult.asp
' 搜索結(jié)果.
html>
head>
title>
千花飛舞站內(nèi)'%=Request("SearchText")%>'之搜索結(jié)果/title>
/head>
body>
B>'%=Request("SearchText")%>'
的搜索結(jié)果/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 "
抱歉,沒有找到您要搜索的結(jié)果!"
If bolFileFound then Response.Write "B>
搜索結(jié)束/B>"

Set objTextStream = Nothing
Set objFolder = Nothing
Set objFSO = Nothing
%>
/body>/html>

 

 

[1]

您可能感興趣的文章:
  • 做個自己站內(nèi)搜索引擎
  • 用ASP做一個TOP COOL的站內(nèi)搜索
  • Google和百度、雅虎的站內(nèi)搜索代碼
  • php站內(nèi)搜索并高亮顯示關(guān)鍵字的實現(xiàn)代碼
  • 基于ASP.NET的lucene.net全文搜索實現(xiàn)步驟
  • php站內(nèi)搜索關(guān)鍵詞變亮的實現(xiàn)方法
  • 使用Lucene.NET實現(xiàn)站內(nèi)搜索

標簽:朔州 威海 邯鄲 中山 遵義 柳州 襄陽 雞西

巨人網(wǎng)絡(luò)通訊聲明:本文標題《如何用FileSystemObject組件來做一個站內(nèi)搜索?》,本文關(guān)鍵詞  如,何用,FileSystemObject,組件,;如發(fā)現(xiàn)本文內(nèi)容存在版權(quán)問題,煩請?zhí)峁┫嚓P(guān)信息告之我們,我們將及時溝通與處理。本站內(nèi)容系統(tǒng)采集于網(wǎng)絡(luò),涉及言論、版權(quán)與本站無關(guān)。
  • 相關(guān)文章
  • 下面列出與本文章《如何用FileSystemObject組件來做一個站內(nèi)搜索?》相關(guān)的同類信息!
  • 本頁收集關(guān)于如何用FileSystemObject組件來做一個站內(nèi)搜索?的相關(guān)信息資訊供網(wǎng)民參考!
  • 推薦文章