Fso ile dosya okuma

Fso ile dosya okuma (tr) Klasördeki dosyaları listeleme yapan bir hazırkod.Kodları .asp uzantılı sayfaya kayıt edip çalıştırmanız yeterlidir. For  each veri  in  Request.QueryStringgelen = Request.QueryString(veri)nextDim f,fsoSet  fso = Server.CreateObject("Scripting.FileSystemObject")Set  f = fso.OpenTextFile("&gelen&", 1, 0, 0)if  f.AtEndOfStream  thenkod = ""elsekod = f.readallend  ifStrKod = Replace (kod,"StrKod = Replace (kod,">",">",1,-1,1)%> <font color=#000080><%=StrKod%></font><br><br><br><br><br><br><br><br><br></body> </html>

Döküman Arama

Başlık :

Kapat