Makale numarası: 272656 - Son Gözden Geçirme: 07 Temmuz 2008 Pazartesi - Gözden geçirme: 7.1

ASP kullanarak, bir dosya Görüntüleyicisi oluşturma

İngilizce ve Türkçe'yi yan yana görüntülemeBuraya tıklayarak İngilizce ve Türkçe'yi yan yana görüntüleyebilirsiniz.
Otomatik TercümeOtomatik tercüme makalelerin ne olduğunu açıklayan yazıyı okumak için buraya tıklayın
Bu makalenin geçerli olduğu ürünleri görün.
Sistem İpucuBu makale, kullandığınızdan farklı bir işletim sistemine yöneliktir. Sizinle ilgili olmayabilecek makale içeriği devre dışı bırakıldı.
Tüm kullanıcıların Microsoft ınternet ınformation Services (IIS) sürüm 7.0 yükseltmenizi öneririz Microsoft Windows Server 2008 çalışan. IIS 7.0, Web altyapı güvenliği önemli ölçüde artırır. IIS güvenliği ile ilgili konular hakkında daha fazla bilgi için aşağıdaki Microsoft Web sitesini ziyaret edin:
http://www.microsoft.com/technet/security/prodtech/IIS.mspx (http://www.microsoft.com/technet/security/prodtech/IIS.mspx)
IIS 7.0 hakkında daha fazla bilgi için aşağıdaki Microsoft Web sitesini ziyaret edin:
http://www.iis.net/default.aspx?tabid=1 (http://www.iis.net/default.aspx?tabid=1)

Bu Sayfada

Hepsini aç | Hepsini kapa

Özet

Bu makalede, Microsoft Active Server Pages (ASP) teknolojileri örneği ' ni kullanarak, bir genel dosya görüntüleyici oluşturmak için nasıl kullanılacağı açıklanır.

Önemli not

Kod bu makaledeki hatalı biçimde kullanırsanız, kodunu bir Web sitesinin dışındaki klasörleri görüntülemek için kullanılır. Bu engelleme hakkında ek bilgi için Microsoft Knowledge Base'deki makaleleri görüntülemek üzere aşağıdaki makale numaralarını tıklatın:
184717  (http://support.microsoft.com/kb/184717/EN-US/ ) AspEnableParentPaths MetaBase özellik FALSE'Kime kümesi
276548  (http://support.microsoft.com/kb/276548/EN-US/ ) ASP hata 0131 olduğunda, veritabanı sonuçları bölgesi için ASP sayfası gezintisi
Üste

Daha fazla bilgi

Genel Sorumluluğun Reddi

Microsoft, programlama örneklerini yalnızca gösterim amacıyla sağlar; örtülü veya açık garanti vermez. Buna satılabilirlik veya belirli bir amaca uygunluk zımni garantileri de dahildir, ancak bunlarla sınırlı değildir. Bu makale, gösterilen programlama dilini ve yordamları oluşturmak ve hata ayıklamak amacıyla kullanılan araçları kullanmayı bildiğinizi varsayar. Microsoft destek mühendisleri, belirli bir yordamın işlevselliğinin açıklanmasına yardımcı olabilir, ancak gereksinimlerinizi karşılamaya yönelik olarak ek işlevsellik sağlamak veya yordamlar geliştirmek amacıyla bu örnekleri değiştirmezler.

Sayfa Görüntüleyicisi örnek kod

Sayfa Görüntüleyicisi ASP sayfası oluşturmak için aşağıdaki adımları kullanın.

Not: Basic/Clear metin, tümleşik/NTLM veya Özet kimlik doğrulaması bu örneği kullanmak için etkinleştirilmiş olmalıdır.
  1. Not Microsoft ınternet ınformation Server sürüm 4.0 ya da ınternet ınformation Services 5.0 sürümünü çalıştıran bir Web sunucusunda açın.
  2. Aşağıdaki ASP kodu çalıştırın: 
    <% @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. Sayfayı "Web sitenizin kök klasörüne Viewer.asp"in. kaydedin...
  4. HTTP yoluyla sayfasına gidin ve sonra görüntülemek istediğiniz dizinin yolunu girin. Klasörün içeriği görüntülemelidir.
Üste

Başvurular

Bu konu hakkında ek bilgi için Microsoft Knowledge Base'deki makaleleri görüntülemek üzere aşağıdaki makale numaralarını tıklatın:
218606  (http://support.microsoft.com/kb/218606/EN-US/ ) Nasıl YAPıLıR: ASP ve FileSystemObject Scripting dinamik bir içindekiler TABLOSU oluşturmak için
224364  (http://support.microsoft.com/kb/224364/EN-US/ ) ASP kullanarak bir dizin gözatma sayfası oluşturma
201133  (http://support.microsoft.com/kb/201133/EN-US/ ) IIS 3. 0'dan yükseltme yaparken oluşur, Değiştir'i komut dosyası
Üste
Bu makaledeki bilginin uygulandığı durum:
  • Microsoft Internet Information Services 6.0
  • Microsoft Internet Information Server 4.0
  • Microsoft Internet Information Services 5.0
Üste
Anahtar Kelimeler: 
kbmt kbhowto KB272656 KbMttr
Üste
Otomatik TercümeOtomatik Tercüme
ÖNEMLİ: Bu makale, bir kişi tarafından çevrilmek yerine, Microsoft makine-çevirisi yazılımı ile çevrilmiştir. Microsoft size hem kişiler tarafından çevrilmiş, hem de makine-çevrisi ile çevrilmiş makaleler sunar. Böylelikle, bilgi bankamızdaki tüm makalelere, kendi dilinizde ulaşmış olursunuz. Bununla birlikte, makine tarafından çevrilmiş makaleler mükemmel değildir. Bir yabancının sizin dilinizde konuşurken yapabileceği hatalar gibi, makale; kelime dağarcığı, söz dizim kuralları veya dil bilgisi açısından yanlışlar içerebilir. Microsoft, içeriğin yanlış çevrimi veya onun müşteri tarafından kullanımından doğan; kusur, hata veya zarardan sorumlu değildir. Microsoft ayrıca makine çevirisi yazılımını sıkça güncellemektedir.
Makalenin İngilizcesi aşağıdaki gibidir:272656  (http://support.microsoft.com/kb/272656/en-us/ )
Üste