[ASP]Kod Göster Kodu





74

 

<!–  http://www.kodmerkezi.com –>
2 <%
3 whichfile=server.mappath(“default.asp”)
4
5 Set fs = CreateObject(“Scripting.FileSystemObject”)
6 Set thisfile = fs.OpenTextFile(whichfile, 1, False)
7
8 counter=0
9 do while not thisfile.AtEndOfStream
10 counter=counter+1
11 thisline=thisfile.readline
12 response.write server.htmlencode(thisline) & “<br>”
13 loop
14
15 thisfile.Close
16 set thisfile=nothing
17 set fs=nothing
18 %>
19
20 <!–  http://www.kodmerkezi.com –>




İlk yorum yapan olun

Bir yanıt bırakın

E-posta hesabınız yayımlanmayacak.


*