搜索文章内容

[byybyybyy]

在一个目录下面如D:\htm,在该目录下面有若干个.txt和.htm文件，如：1.txt,2.txt
3.htm,5.htm....用asp的file对象怎么样查找所有该目录下面文件的内容，并和一个字符串比较如：‘国产手机’。这样如果1.txt里面有这四个字的话，就会查出来。怎么实现？关键不知道怎么和文章内容比较，怎么样取的目录下面的所有文件。急急多谢了。高分给》》》》》

[mygoodbuy]

使用FSO,比较复杂,建议找一些FSO资料

[hillhero789]

没有问题，就用fso，textstream就行了
把文件读到一个变量里边，然后用在用instr或者用正则表达式就行了。

[hillhero789]

遍历目录以及目录下文件的函数
2001-5-5 动网先锋

<%@ Language=VBScript %>
<%
'我写的一个遍历目录以及目录下文件的函数，
%>
<%
function bianli(path)
set fso=server.CreateObject("scripting.filesystemobject")

on error resume next
set objFolder=fso.GetFolder(path)

set objSubFolders=objFolder.Subfolders

for each objSubFolder in objSubFolders

nowpath=path + "\" + objSubFolder.name

Response.Write nowpath

set objFiles=objSubFolder.Files

for each objFile in objFiles
Response.Write "<br>---"
Response.Write objFile.name
next
Response.Write "<p>"
bianli(nowpath)'递归

next
set objFolder=nothing
set objSubFolders=nothing
set fso=nothing
end function
%>
<%
bianli("d:") '遍历d:盘
%>

[seafarer777]

mark