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

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>

您可能感兴趣的文章:

做个自己站内搜索引擎如何用FileSystemObject组件来做一个站内搜索？Google和百度、雅虎的站内搜索代码php站内搜索并高亮显示关键字的实现代码基于ASP.NET的lucene.net全文搜索实现步骤php站内搜索关键词变亮的实现方法使用Lucene.NET实现站内搜索