全站搜索

最新推荐文章于 2024-03-24 09:33:27 发布

fzzf

最新推荐文章于 2024-03-24 09:33:27 发布

阅读量1.7k

点赞数

分类专栏： ASP 文章标签： function each

本文链接：https://blog.csdn.net/fzzf/article/details/556359

版权

ASP 专栏收录该内容

24 篇文章 0 订阅

订阅专栏

<%
strText = Request("SearchText")
Const fsoForReading = 1
Dim objFile, objFolder, objSubFolder, objTextStream
strFile = ".asp .htm .html .txt .css"
strRoot = "/"
bolFileFound = False
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
Set objFolder = objFSO.GetFolder(Server.MapPath(strRoot))
response.Write("<table><tr><td>文件名</td><td>最后修改时间</td><td>文件大少</td></tr>")
schSubFol(objFolder)
response.Write("</table>")

function schSubFol(objFolder)

For Each objFile in objFolder.Files
  if (instr(strFile,mid(objFile.Name,InstrRev(objFile.Name,".")+1))) then
   Set objTextStream = objFSO.OpenTextFile(objFile.Path,fsoForReading)
   strContent = objTextStream.ReadAll
   If instr(strContent,strText) then
    objFilePath=mid(objFile.Path,InstrRev(objFile.Path,"/")+1)
    Response.Write "<tr><td> " &objFilePath & "</td><td> " & FormatDateTime(objFile.DateLastModified,1) & "</td><td> " & FormatNumber(objFile.Size / 1024) & "Kbytes</td><tr>"
    bolFileFound = True
   End If
   objTextStream.Close
  end if
Next

End function

For Each objSubFolder in objFolder.SubFolders
schSubFol(objSubFolder)
Next

Set objTextStream = Nothing
Set objFolder = Nothing
Set objFSO = Nothing
%>