Fso ile dosya okuma (tr) - ASP - Akademik İnternet ® -


Editor Login \| Register		Ekle

> Akademik İnternet ® > ASP

CWhite

(Relased 09.01.2008 23:30:42)

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.QueryString
gelen = Request.QueryString(veri)
next
Dim f,fso
Set fso = Server.CreateObject("Scripting.FileSystemObject")
Set f = fso.OpenTextFile("&gelen&", 1, 0, 0)
if f.AtEndOfStream then
kod = ""
else
kod = f.readall
end if

StrKod = Replace (kod,"StrKod = Replace (kod,">",">",1,-1,1)
%>

<%=StrKod%> </body> </html>

Derecelendir

Kaynak

CWhite Tarafından yazılmış/derlenmiştir.

İçerik İhbarı

Bağlantılar: bilgininefendisi.net

Open Source Document Project

AUP&TOS