NUNCA MAIS PASSE RAIVA POR NÃO CONSEGUIR RESOLVER UM PROBLEMA COM O EXCEL - GARANTIDO!

UNIVERSIDADE DO VBA - Domine o VBA no Excel Criando Sistemas Completos - Passo a Passo - CLIQUE AQUI

Você está em: PrincipalArtigos › ASP 3.0 › Capítulo 11 : 06
Quer receber novidades e e-books gratuitos?
« Lição anterior Δ Página principal ¤ Capítulos Próxima lição »
SITES DINÂMICOS COM ASP 3.0 - CURSO COMPLETO
Autor: Júlio Battisti


Promoção: Livro Windows Server 2012 R2 e Active Directory - Curso Completo, 2100 Páginas. Tudo para você se tornar um administrador de redes altamente qualificado para o mercado de trabalho e levar a sua carreira para o próximo nível!

Promoção: Livro Windows Server 2012 R2 e Active Directory

Curso Completo, 2100 páginas.

Tudo para você se tornar um administrador de redes altamente qualificado para o mercado de trabalho e levar a sua carreira para o próximo nível!

MAIS DETALHES | COMPRAR ESTE LIVRO


Lição 088 - Capítulo 11 - Exemplo prático

Neste exemplo vamos considerar o seguinte problema: “Temos uma pasta virtual no servidor IIS chamada informativos. Dentro desta pasta colocamos informativos diariamente. Os informativos são numerados, isto é, inf01.htm, inf02.htm e assim por diante. Dentro da pasta informativos existe, também, um arquivo index.asp que apresenta uma tabela com todos os informativos disponíveis. Porém não queremos atualizar esta tabela manualmente. Desejamos que cada vez que um novo arquivo seja salvo na pasta informativos, o mesmo, automaticamente aparece na tabela de informativos do arquivo index.asp. O nosso trabalho será construir a página index.asp, de tal maneira que a mesma seja capaz de ler identificar os arquivos inf01.htm, inf02.htm e assim por diante existentes, e criar uma tabela com um link para todos os arquivos existentes. Além disso esta tabela deve exibir um máximo de 6 colunas. Então mãos a obra, vamos por os objetos que aprendemos neste capítulo para funcionar.

Na Listagem 11.4, temos a solução para o problema proposto.

Listagem 11.4 – Gerando uma tabela de conteúdo automaticamente.

1             <%@ Language=VBScript %>

2             <HTML>

3             <HEAD>

4             </HEAD>

5             <BODY>

6             <P align=center><FONT size=4><B>INFORMATIVOS DA Empresa ABC LTDA

7             </B></FONT>

8             </P>

9             <HR>

10           <%

11           'Crio um objeto do tipo FileSystemObject.

12           Set fileobj=Server.CreateObject("Scripting.FileSystemObject")

13           'Crio um objeto do tipo Folder, utilizando o método GetFolder.

14           Set informativos = fileobj.GetFolder("e:\inetpub\wwwroot\informativos")

15           'Agora posso utilizar a coleção files do objeto

16           'Folder para percorrer todos os arquivos da pasta

17           'e:\inetpub\wwwroot\informativos

18           linha=0

19           Response.Write "<TABLE border=1>"

20           For each arquivo in informativos.Files

21               If arquivo.name<>"index.asp" then

      

22                  If linha=0 Then

23                     Response.Write "<TR>" 

24                  End If

25                  Response.Write "<TD><A HREF=http://servidor/informativos/" & arquivo.name &                       ">" & Left(arquivo.name,5) & "</TD>"

26                 linha=linha+1

27                 If linha=6 Then

28                     Response.Write "</TR>"

29                     linha=0 

30                End If

31           End If

32           Next

33           Response.Write "</TABLE>"

34           %>

35           </BODY>

36           </HTML>

Neste exemplo criamos um objeto do tipo FileSystemObject, depois utilizamos o método GetFile para obter um objeto do tipo Folder. O nosso objeto Folder está ligado a pasta E:\inetpub\wwwroot\informativos, que é justamente a pasta onde estão os informativos do nosso problema.

Depois utilizamos a coleção Files do objeto Folder, para acessar todos os arquivos desta pasta. Também fizemos uso de uma variável auxiliar – linha. Está variável é utilizada para que possamos exibir 6 links por linha. Além disso fizemos uso da propriedade nome para cada um dos arquivos, de tal maneira que sejam exibidos apenas os nomes dos arquivos e não o caminho completo. Por exemplo, ao invés de exibirmos e:\inetpub\wwwroot\informativos\inf01.htm, utilizando a propriedade name exibimos apenas inf01.htm. Mas além disso, fizemos uso da função Left(arquivo.nome,5), de tal maneira que fosse exibido apenas o nome do arquivo (5 primeiros caracteres), sem a extensão. Desta forma é exibido apenas inf01.

Conforme podemos ver na Figura 11.13, existem 20 informativos na pasta e:\inetpub\wwwroot\informativos.

Curso Completo de ASP 3.0 - Júlio Battisti
Figura 11.13 Existem 20 informativos na pasta de informativos.

Na Figura 11.14,  vemos o resultado ao carregar o arquivo index.asp.

Curso Completo de ASP 3.0 - Júlio Battisti
Figura 11.14 O arquivo index.asp monta a tabela de links automaticamente.

Agora toda vez que um novo informativo for gravado na pasta informativos, o usuário, ao carregar a página index.asp, já verá o link para o novo informativo. Por exemplo, vamos supor que foram adicionados os informativos inf21.htm e inf22.htm. Bastaria recarregar a página index.asp que o link para os dois novos informativos já seriam, automaticamente, exibidos, conforme indicado na Figura 11.15.

Curso Completo de ASP 3.0 - Júlio Battisti
Figura 11.15 Exibindo os links para os novos informativos.


Promoção: Livro Windows Server 2012 R2 e Active Directory - Curso Completo, 2100 Páginas. Tudo para você se tornar um administrador de redes altamente qualificado para o mercado de trabalho e levar a sua carreira para o próximo nível!

Promoção: Livro Windows Server 2012 R2 e Active Directory

Curso Completo, 2100 páginas.

Tudo para você se tornar um administrador de redes altamente qualificado para o mercado de trabalho e levar a sua carreira para o próximo nível!

MAIS DETALHES | COMPRAR ESTE LIVRO


« Lição anterior Δ Página principal ¤ Capítulos Próxima lição »
Quer receber novidades e e-books gratuitos?

Cursos Online

  • Banco de Dados
  • Carreira
  • Criação/Web
  • Excel/Projetos
  • Formação
  • + Todas as categorias
  • Contato: Telefone: (51) 3717-3796 | E-mail: webmaster@juliobattisti.com.br | Whatsapp: (51) 99627-3434

    Júlio Battisti Livros e Cursos Ltda | CNPJ: 08.916.484/0001-25 | Rua Vereador Ivo Cláudio Weigel, 537 - Universitário, Santa Cruz do Sul/RS, CEP: 96816-208

    Todos os direitos reservados, Júlio Battisti 2001-2019 ®

    [LIVRO]: MACROS E PROGRAMAÇÃO VBA NO EXCEL 2010 - PASSO-A-PASSO

    APRENDA COM JULIO BATTISTI - 1124 PÁGINAS: CLIQUE AQUI