ID do artigo: 272656 - Última revisão: segunda-feira, 7 de julho de 2008 - Revisão: 7.1

Como criar um visualizador de arquivo usando ASP

Vista lado a ladoClique aqui para exibir o artigo traduzido e o artigo original em inglês, lado a lado.
Tradução automáticaExibir Aviso de Isenção de Tradução Automática
Exibir os produtos aos quais esse artigo se aplica.
Dica do SistemaEste artigo aplica-se a um sistema operativo diferente do que está a utilizar. Foi desactivado o conteúdo do artigo, que pode não ser relevante para si.
É altamente recomendável que todos os usuários atualizem para Microsoft (IIS) versão 7.0 em execução no Microsoft Windows Server 2008. O IIS 7.0 aumenta significativamente a segurança de infra-estrutura da Web. Para obter mais informações sobre tópicos relacionados à segurança do IIS, visite o seguinte site:
http://www.microsoft.com/technet/security/prodtech/IIS.mspx (http://www.microsoft.com/technet/security/prodtech/IIS.mspx)
Para obter mais informações sobre o IIS 7.0, visite o seguinte site:
http://www.iis.net/default.aspx?tabid=1 (http://www.iis.net/default.aspx?tabid=1)

Nesta página

Expandir tudo | Recolher tudo

Sumário

Este artigo descreve como usar as tecnologias do Microsoft Active Server Pages (ASP) para criar um visualizador de arquivo genérico usando Scripting.FileSystemObject .

Observação importante

Se você usar o código neste artigo incorretamente, o código pode ser usado para exibir pastas fora de um site. Para obter informações adicionais sobre como evitar isso, clique nos números abaixo para ler os artigos na Base de dados de Conhecimento da Microsoft:
184717  (http://support.microsoft.com/kb/184717/EN-US/ ) Propriedade de MetaBase AspEnableParentPaths deve ser definida para False
276548  (http://support.microsoft.com/kb/276548/EN-US/ ) Erro ASP 0131 quando a navegação para a página ASP do banco de dados resultados região
Voltar para o início

Mais Informações

Declaração geral

Microsoft fornece exemplos de programação apenas para ilustração, sem garantia expressa ou implícita. Isso inclui, mas não está limitado a, garantias implícitas de comercialização ou adequação para uma finalidade específica. Este artigo presume que você está familiarizados com a linguagem de programação que está sendo demonstrada e com as ferramentas que são usadas para criar e depurar procedimentos. Engenheiros de suporte podem ajudar a explicar a funcionalidade de um determinado procedimento, mas eles não modificarão esses exemplos para fornecer funcionalidades adicionais ou construir procedimentos para atender às suas necessidades.

Código de exemplo do Visualizador de páginas

Use as seguintes etapas para criar a página ASP de visualizador.

Observação : você deve ter texto básico/não criptografado, integrada/NTLM ou autenticação Digest habilitada para usar este exemplo.
  1. Abra o bloco de notas em um servidor Web que está executando o Microsoft Internet Information Server versão 4.0 ou versão do IIS 5.0.
  2. Execute o seguinte código ASP: 
    <% @Language="VBScript" %>
<%  
  On Error Resume Next ' don't worry about errors

  ' turn on buffering
  Response.Buffer = True

  ' make sure that client is authenticated
  If Len(Trim(CStr(Request.ServerVariables("LOGON_USER")))) = 0 Then
    Response.Status = "401 Access Denied"
    Response.End
  End If
%>
<html>
<head>
<title>File Viewer</title>
</head>
<body>

<h2>File Viewer</h2>

<!-- show a form to allow users to specify a file -->
<form action="<%=Request.ServerVariables("URL")%>" method="POST">
<input type="text" name="FILE" value="<%=Request.Form("FILE")%>">
<input type="submit" value="View File">
</form>

<pre>
<%
  ' was it a POST request?
  If UCase(Request.ServerVariables("HTTP_METHOD")) = "POST" Then

    ' create object for file I/O
    Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
    ' open the specified file
    Set objFILE = objFSO.OpenTextFile(Request.Form("FILE"))
    
    ' output message if an error has occured
    If Err.Number <> 0 Then

      Response.Write "Error trying open the file """ & _
          Request.Form("FILE") & """" & vbCrLf & _
          "Error Number = " & Err.Number & vbCrLf & _
          "Error Description = " & Err.Description & vbCrLf

    ' otherwise show the file
    Else

      ' show the page start
      Response.Write "----- START OF PAGE -----" & vbCrLf
    
      ' loop through the page contents
      While Not objFILE.AtEndOfStream
        Response.Write Server.HTMLEncode(objFILE.ReadLine) & vbCrLf
      Wend

      ' show the page end
      Response.Write "----- END OF PAGE -----" & vbCrLf

      ' close the specified file
      objFILE.Close
      ' discard the file I/O object
      Set objFSO = Nothing

    End If

  End If
%>
</pre>
</body>
</html>
  3. Salve a página como "Viewer.asp"in pasta raiz do seu site da Web.
  4. Navegue até a página através de HTTP e, em seguida, digite o caminho do diretório que você deseja exibir. O conteúdo da pasta deve exibir.
Voltar para o início

REFERÊNCIAS

Para obter informações adicionais sobre esse tópico, clique nos números abaixo para ler os artigos na Base de dados de Conhecimento da Microsoft:
218606  (http://support.microsoft.com/kb/218606/EN-US/ ) COMO: ASP e script FileSystemObject para criar o sumário dinâmico
224364  (http://support.microsoft.com/kb/224364/EN-US/ ) Criando uma página diretório de navegação usando ASP
201133  (http://support.microsoft.com/kb/201133/EN-US/ ) Script de alteração ocorre ao atualizar do IIS 3.0
Voltar para o início
A informação contida neste artigo aplica-se a:
  • Microsoft Internet Information Services 6.0
  • Microsoft Internet Information Server 4.0
  • Microsoft Internet Information Services 5.0
Voltar para o início
Palavras-chave: 
kbmt kbhowto KB272656 KbMtpt
Voltar para o início
Tradução automáticaTradução automática
IMPORTANTE: Este artigo foi traduzido por um sistema de tradução automática (também designado por Machine Translation ou MT), não tendo sido portanto traduzido ou revisto por pessoas. A Microsoft possui artigos traduzidos por aplicações (MT) e artigos traduzidos por tradutores profissionais, com o objetivo de oferecer em português a totalidade dos artigos existentes na base de dados de suporte. No entanto, a tradução automática não é sempre perfeita, podendo conter erros de vocabulário, sintaxe ou gramática. A Microsoft não é responsável por incoerências, erros ou prejuízos ocorridos em decorrência da utilização dos artigos MT por parte dos nossos clientes. A Microsoft realiza atualizações freqüentes ao software de tradução automática (MT). Obrigado.
Clique aqui para ver a versão em Inglês deste artigo: 272656  (http://support.microsoft.com/kb/272656/en-us/ )
Voltar para o início