Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

xanburzum

Procurando Pastas

Por , em ASP Clássico

Recommended Posts

xanburzum    169

xanburzum
Postado 

<%@ Language="VbScript"%>

<HTML>

<HEAD>

<TITLE>Procurar Pasta</TITLE>

</HEAD>

 

<BODY bgColor="#FFFFFF" Background="">

<%

Dim Coloralt 'Nós definimos a cor variável

If Request.Querystring("results") = "" Then

%>

 

<Center><H1><Font Color="#000000"> Folder Search </Font></H1></Center>

<FORM action="cadastro_BFS.asp?results=results" target="main_view" method="post" Name="DaForm" >

<Input Type="text" size="30" Name="Criteria">

<Input Type="submit" Name="B1" class="buttons" value="Search">

<Input Type="reset" Name="B2" class="buttons" value="Limpar">

</FORM>

 

<Table Border="1" Cellpadding="0" Cellspacing="0" Width="98%">

<TR align="Center" bgcolor="silver">

<TD Width="50%"><Font Face="Arial" Color="#000000">Nome Arquivo</Font></TD>

<TD Width="16%"><Font Face="Arial" Color="#000000">Criado em</Font></TD>

<TD Width="16%"><Font Face="Arial" Color="#000000">Última alteração</Font></TD>

<TD Width="16%"><Font Face="Arial" Color="#000000">Tamanho</Font></TD>

</TR>

</TABLE>

<!-- IFRAME inicio-->

<IFRAME name="main_view" src="" width="100%" height="300" marginwidth="0" marginheight="0"></IFRAME>

<!-- IFRAME fim-->

<%

Else

' começamos a afirmação de que se verifica se existe um critério ...

If Request.Form("Criteria") = "" Then

Response.Write("<H2 align=""center"">É preciso um criterio para fazer uma pesquisa!</H2>")

Response.Write("<H2 align=""center"">Um critério é necessário para fazer uma pesquisa!</H2>")

Else

 

Dim objFolder

Dim strSearchText

Dim objFSO

 

strSearchText = Request.Form("Criteria")

 

' Criamos o FSO e Folder

Set fso = Server.CreateObject("Scripting.FileSystemObject")

Set objFSO = Server.CreateObject("Scripting.FileSystemObject")

' definir a pasta a ser pesquisada

Set objFolder = objFSO.GetFolder("C:\Inetpub")

 

Search objFolder

 

Function Search(ByVal objFolder)

Dim objSubFolder

 

session("intMatch") = 0

 

'Loop através de todos os arquivos na pasta atual

For Each objFile in objFolder.Files

 

Set objTextStream = objFSO.OpenTextFile(objFile.Path,1)

 

'Leia o conteúdo do arquivo

strFileContents = objTextStream.ReadAll

 

'se a seqüência de pesquisa está no arquivo, em seguida, escrever um link

If InStr(1, strFileContents, strSearchText, 1) then

 

Response.Write("<Table Border=""0"" Cellpadding=""0"" Cellspacing=""1"" Align=""Center"" BorderColor=""#000000"" Background="""" Width=""100%""> ") & vbcrlf

Response.Write(" <TR>") & vbcrlf

Response.Write " <TD Width=""50%"" BGCOLOR=""" & Coloralt & """><Font Face=""Arial"" Color=""#000000""><A HREF=""file://" & objFile.Path & """>" & objFile.Name & "</A></TD><TD Width=""16%"" BGCOLOR=""" & Coloralt & """><Font Face=""Arial"" Color=""#000000"">" & objFile.datecreated & "</TD><TD Width=""16%"" BGCOLOR=""" & Coloralt & """><Font Face=""Arial"" Color=""#000000"">" & objFile.DateLastModified & "</TD><TD Width=""16%"" BGCOLOR=""" & Coloralt & """><Font Face=""Arial"" Color=""#000000"">" & formatnumber(objFile.size,0) & "kb" & "</TD>" & vbcrlf

Response.Write(" </TR>")& vbcrlf

Response.Write("</Table>")& vbcrlf

 

' cores alternadas

If Coloralt="ECFDFF" Then

Coloralt="CEE7FF"

Else

Coloralt="ECFDFF"

End If

 

bolFileFound = True

session("intMatch") = session("intMatch") + 1

End If

 

objTextStream.Close

Next

 

 

For Each objSubFolder in objFolder.SubFolders

Search objSubFolder

Next

 

 

Set fso = Nothing

Set objFSO = Nothing

Set objFolder = Nothing

Set objTextStream = Nothing

 

End Function

 

If session("intMatch") = 0 Then

Response.Write("<Center><b>Não foram encontradas dados correspondentes aos seus critérios...</b></Center>")

End If

 

End If

 

End If

%>

</BODY>

</HTML>

Compartilhar este post

Link para o post
Compartilhar em outros sites
Ir para a lista de tópicos ASP Clássico
×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.

  Aceito