| Editor Login | Register | ||
| > Akademik İnternet ® > ASP |
|
|
| 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) %> <font color=#000080><%=StrKod%></font><br><br><br><br><br><br><br><br><br></body> </html> |
|
| Bağlantılar: bilgininefendisi.net |
| Open Source Document Project | AUP&TOS |