AmazonGenTR adlı üyeden alıntı:
mesajı görüntüle
daha açık belirtmek gerekirse
Response.Write AO.ReadLine satırını Response.Write AO.ReadAll olarak değiştir
21
●1.510
<%
set nesne = Server.CreateObject("Scripting.FileSystemObject")
set AO = nesne.OpenTextFile(Server.MapPath("ali.txt"),1)
do while not nesne.AtEndOfStream
Response.Write "<li>"&AO.ReadLine&"</li>"
loop
AO.close
%>Bu şekilde kullanmayı dene. Denemedim ama çalışır büyük ihtimalle.
<%
set nesne = Server.CreateObject("Scripting.FileSystemObject")
set AO = nesne.OpenTextFile(Server.MapPath("ali.txt"),1)
Response.Write Replace(AO.ReadAll,chr(13),"<br>")
AO.close
%>Sonucu yazarsan sevinirim. chr(13) olmazsa chr(10) dene, yap bişeyler işte
<%
set nesne = Server.CreateObject("Scripting.FileSystemObject")
set AO = nesne.OpenTextFile(Server.MapPath("ali.txt"),1)
degisken = Replace(AO.ReadAll,chr(13),"<br>")
boluver = split(degisken,"<br>")
for i = 0 to UBound(boluver)
response.write "<a href="&boluver(i)&".html>"&boluver(i)&"</a><br>"
next
AO.close
%>Dene bakalım.
(Çalışıyor.)
Bu ara asp yi nasıl öğrendin kursamı gittin?