Artigo: 272656 - Última revisão: segunda-feira, 7 de Julho de 2008 - Revisão: 7.1

Como criar um visualizador de ficheiros utilizando o ASP

Vista lado a ladoClique aqui para exibir o artigo traduzido e o artigo original em inglês, lado a lado.
Tradução automáticaVer isenção de responsabilidades para tradução automática
Ver produtos para os quais este 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.
Recomendamos vivamente que todos os utilizadores actualizem para Microsoft (IIS) versão 7.0 em execução no Microsoft Windows Server 2008. O IIS 7.0 aumenta significativamente a segurança da infra-estrutura Web. Para mais informações sobre tópicos relacionados com a segurança do IIS, visite o seguinte Web site da Microsoft:
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 Web site da Microsoft:
http://www.iis.net/default.aspx?tabid=1 (http://www.iis.net/default.aspx?tabid=1)

Nesta página

Expandir tudo | Reduzir tudo

Sumário

Este artigo descreve como utilizar tecnologias do Microsoft Active Server Pages (ASP) para criar um visualizador de ficheiro genérico utilizando o Scripting.FileSystemObject .

Nota importante

Se utilizar incorrectamente o código neste artigo, o código pode ser utilizado para visualizar pastas fora de um Web site. Para obter informações adicionais prevenção Este, clique números de artigo existentes abaixo para visualizar os artigos na base de dados de conhecimento da Microsoft:
184717  (http://support.microsoft.com/kb/184717/EN-US/ ) Propriedades da MetaBase AspEnableParentPaths devem ser definir a falsa
276548  (http://support.microsoft.com/kb/276548/EN-US/ ) Erro de ASP 0131 ao navegar na base de dados de resultados da região uma página ASP
Voltar ao topo

Mais Informação

Exclusão de responsabilidade geral

A Microsoft fornece exemplos de programação apenas, para fins sem garantia expressa ou implícita. Isto inclui, mas não está limitado a, as garantias implícitas de comercialização ou adequação a um fim específico. Este artigo pressupõe que está familiarizado com a linguagem de programação apresentada e as ferramentas que são utilizadas para criar e depurar procedimentos. Os técnicos de suporte da Microsoft podem ajudar a explicar a funcionalidade de um determinado procedimento, mas não modificarão estes exemplos para proporcionarem funcionalidades adicionais nem criarão procedimentos adaptados às necessidades específicas do utilizador.

Código de exemplo do Visualizador de páginas

Utilize os seguintes passos para criar a página ASP do Visualizador.

Nota : tem de ter texto Basic/limpar, integrados/NTLM ou autenticação condensada activado para utilizar este exemplo.
  1. Abra o bloco de notas num servidor Web com o Microsoft Internet Information Server versão 4.0 ou versão de serviços de informação Internet (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. Guarde a página como "Viewer.asp"in pasta raiz do Web site.
  4. Navegue para a página através de HTTP e, em seguida, introduza o caminho do directório que pretende visualizar. Deve apresentar o conteúdo da pasta.
Voltar ao topo

REFERÊNCIAS

Para obter informações adicionais sobre este tópico, clique os números de artigo existente abaixo para visualizar os artigos na base de dados de conhecimento da Microsoft:
218606  (http://support.microsoft.com/kb/218606/EN-US/ ) COMO: ASP e scripts FileSystemObject para criar o índice dinâmico
224364  (http://support.microsoft.com/kb/224364/EN-US/ ) Criar uma página de procura de directório utilizando o ASP
201133  (http://support.microsoft.com/kb/201133/EN-US/ ) Scripts alterar ocorre quando actualizar a partir do IIS 3.0
Voltar ao topo
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 ao topo
Palavras-chave: 
kbmt kbhowto KB272656 KbMtpt
Voltar ao topo
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 revisto ou traduzido por humanos. A Microsoft tem artigos traduzidos por aplicações (MT) e artigos traduzidos por tradutores profissionais. O objectivo é simples: oferecer em Português a totalidade dos artigos existentes na base de dados do suporte. Sabemos no entanto que a tradução automática não é sempre perfeita. Esta pode conter erros de vocabulário, sintaxe ou gramática? erros semelhantes aos que um estrangeiro realiza ao falar em Português. A Microsoft não é responsável por incoerências, erros ou estragos realizados na sequência da utilização dos artigos MT por parte dos nossos clientes. A Microsoft realiza actualizações frequentes 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 ao topo