TXT DOSYASINDAN METİN OKUMA

<% Option Explicit %>
<HTML>
<HEAD>
<TITLE>ASP ILE DOSYADAN METİN OKUMA</TITLE>
<META http-equiv="content-type" content="text/html; charset=ISO-8859-9">
<META http-equiv="Content-Type" content="text/html; charset=windows-1254">
</HEAD>
<BODY>
<%
Dim DosyaSistemi, MetinDosyasi, Satir, Server
Set DosyaSistemi = CreateObject("Scripting.FileSystemObject" )
Set MetinDosyasi = DosyaSistemi.OpenTextFile("d:wwwrootaslan_077.txt",1, 0 )
Do
Satir = MetinDosyasi.ReadLine
%>
<%=Satir%><br>
<%
Loop Until MetinDosyasi.AtEndOfStream
MetinDosyasi.Close
%>
<br>
Senin path : <%=Request.ServerVariables("APPL_MD_PATH" )%><br>
Senin IP adresin : <%=Request.ServerVariables("REMOTE_ADDR" )%>
</BODY>
</HTML>

Yardım İçin Sadece Bir Tık Yeter
 
Sponsor
 
.tk
 
Bu web sitesi ücretsiz olarak Bedava-Sitem.com ile oluşturulmuştur. Siz de kendi web sitenizi kurmak ister misiniz?
Ücretsiz kaydol