内容简介：如何做一个文本搜索？
<%
head = "搜索"
SearchString = Request("SearchString")
count=0
Function UnMapPath( Path )
UnMapPath = Replace(Mid(Path, Len(Server.MapPath("/")) + 1), "\", "/")
' 把当前目录的实际路径转换为虚拟路径.
End Function
Function SearchFile( f, s, title )
Set fo = fs.OpenTextFile(f)
content = fo.ReadAll
' 把全部文本读到content.
fo.Close
SearchFile = InStr(1, content, S, vbTextCompare) > 0
' 从第一个字符开始检查content里面是否有S.
If SearchFile Then
' 如果有,则提出文件title存入变量.
pos1 = InStr(1, content, "<title>", vbTextCompare)
pos2 = InStr(1, content, "</title>", vbTextCompare)
title = ""
If pos1 > 0 And pos2 > 0 Then
' 取title标记中间的字符.
title = Mid( content, pos1 + 7, pos2 - pos1 - 7 )
End If
End If
End Function
Function FileLink( f, title )
vPath = UnMapPath( f.Path )
' 获取路径.
If title = "" Then title = f.Name
' 做个链接.
FileLink = "<A HREF=""" & vPath & """>" & title & "</A>"
FileLink = "<UL>・" & FileLink & "</UL>"
End Function
Sub SearchFolder( fd, s )
found = False
For each f In fd.Files
pos = InStrRev(f.Path, "." )
If pos > 0 Then
ext = Mid(f.Path, pos + 1 )
Else
ext = ""
End If
If LCase(ext) = "htm" Then
' 显示扩展名字为HTM的文件.
If SearchFile( f, s, title ) Then
Response.Write FileLink(f, title)
count=count+1
Response.Write cstr(count)
End If
End If
Next
For each sfd In fd.SubFolders
SearchFolder sfd, s
Next
End Sub
%>
<html>
<head>
<meta http-equiv="Content-Type"
content="text/html; charset=gb_2312-80">
<meta name="GENERATOR" content="Microsoft FrontPage Express 2.0">
<title><%=head%></title>
</head>
<body>
<h1>星河影动之无敌文本搜索<%=head%></h1>
<hr>
<form action="search.asp" method="Get">
<p>请输入想要搜索的内容： <input type="text"
size="20" name="SearchString" value="<%=SearchString%>"> <input
type="submit" value="搜索"> </p>
</form>
<%
Set fs = Server.CreateObject("Scripting.FileSystemObject")
Set fd = fs.GetFolder( Server.MapPath("/") )
' 设置开始搜索的路径.
If SearchString <> "" Then
Response.Write "<H2>搜索<font color=red>" & SearchString & "</font>结果如下：</H2><P>"
SearchFolder fd,SearchString
End If
%>
<hr>
</body></html>
[1]
以上就是本文的全部内容，希望对大家的学习有所帮助，也希望大家多多支持 码农网
猜你喜欢:
- java – 文本搜索不能与Spring Boot MongoDB一起使用
- Spring Tools 4.4.0 发布，Eclipse 支持快速文本搜索
- 基于标签特定文本表示的文本多标签分类
- 论文浅尝 | 通过文本到文本神经问题生成的机器理解
- 文本挖掘从小白到精通（三）---主题模型和文本数据转换
- 文本检测大满贯！自适应文本区域表示改进形状任意的文本检测
本站部分资源来源于网络，本站转载出于传递更多信息之目的，版权归原作者或者来源机构所有，如转载稿涉及版权问题，请联系我们。
Java Servlet & JSP Cookbook
Bruce W. Perry / O'Reilly Media / 2003-12-1 / USD 49.99
With literally hundreds of examples and thousands of lines of code, the Java Servlet and JSP Cookbook yields tips and techniques that any Java web developer who uses JavaServer Pages or servlets will ......一起来看看 《Java Servlet & JSP Cookbook》 这本书的介绍吧!
