asp如何用FileSystemObject组件来做一个站内搜索？
发布时间：2010-06-12 12:47:00
如何用FILESYSTEMOBJECT组件来做一个站内搜索？
看看下面我们提供的例子，主要由searchpage.htm和searchresult.asp两个文件组成，很简单：
searchpage.htm
' 搜索页面
<HTML>
<HEAD>
<TITLE>精彩春风之站内搜索引擎</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"> 搜索返回结果
<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
' 搜索结果
<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>
0
投稿猜你喜欢
- 很早就听说韩国网站的设计师们很会利用空间,来创造更多的信息承载量.最近浏览了几个韩国SHOPPING网站果不其然,就拿小小的广告轮播来说,非
- 一般来说，一个真正的、完整的站点是离不开数据库的，因为实际应用中，需要保存的数据很多，而且这些数据之间往往还有关联，利用数据库来管理这些数据
- Microsoft建立了一种既灵活又强大的安全管理机制，它能够对用户访问SQL Server服务器系统和数据库的安全进行全面地管理。按照本文
- 本文通过一个详细的例子，来阐述了在线编辑XML文档数据的方法。由于Netscape对XML的支持比较弱，因此，要实现跨平台的数据交换，数据的
- 代码如下:'===================================== '获得文件后缀 '=====
- '-----------------------------------------------------------
- Union 与 Union ALL 的作用都是合并 SELECT 的查询结果集，那么它们有什么不同呢？ Union 将查询到的结果集合并后进
- 下面代码即是VBScript代码在服务器端编译后的显示内容，如果我们把这段代码保存成静态文件（HTML）或JS文件，那么上一篇提出的问题就迎
从 Google 的一个细节说起：整个虚线框都是“Next”的可点击区域。看似不经意，却直接提升了细节的可用性。其它页码也巧妙地和上面的字母- 有时，希望除去某些记录或更改它们的内容。DELETE 和 UPDATE 语句令我们能做到这一点。用update修改记录UPDATE tbl_
- 事务日志(Transaction logs)是数据库结构中非常重要但又经常被忽略的部分。由于它并不像数据库中的schema那样活跃，因此很少
- firefox不支持text-overflow一直让人很折腾。。不过还好有大虾为我们提供解决方案。。text-overflow: ellip
- 上一篇介绍了 HTML5 中 Canvas 的基本概念，这篇将要介绍一下 Canvas&n
- 这样处理的弊端是：如果数据量大，子分类很多，达到4级以上，这方法处理极端占用数据库连接池 对性能影响很大。 如果用SQL下面的CTE递归处理
- 为了应用方便，您可能需要给数据库的每条记录都添加日期/时间戳，以便确定各个记录添加到数据库的时间。在Access数据库应用中，使用Now()
- 第一次写技术博客，有不尽如人意的地方，还请见谅和指正。为什么想整理这方面的类容，我觉得就像油画家要了解他的颜料和画布、雕塑家要了解他的石材一
- 看了不少朋友的个人网站，有一个小问题，似乎很多朋友都忽略了，那就是版权声明的写法。虽然那只是一小行字，不过作为设计师也好，作为个人的爱好也好
- asp上传的时候出现这种 错误:Server 对象 错误 'ASP 0177 800401f3'Server.CreateO
- 方法一： 代码如下:id=request.form("checkbox") id=Split(id,"
- BCP语句的作用：BCP是SQL提供的进行数据传输的实用程序，这种语句提供了非常快的数据导入的方法。（当然7。0也有BCP的替代方法就是DT
