Forum
Aktif konular
Üyeler
Kurallar
Arama
Asp De Fso Kullanımı Problemi (Log) Asp De Fso Kullanımı Problemi (Log)
-
merhaba arkadaşlar tarcan için log tuturmaya çalışıyorum db şişmesin diye txt belgesine koyucam fakat bir sorun var.Dedim ki eğer belge yoksa bi tane yeni aç, varsa üstüne yaz.Fakat belge olduğu halde üstüne yazmıyor hepsini silip tekrar ekliyor sanki.Fakat daha önce direk
----
set FSObaglanti = CreateObject("Scripting.FileSystemObject")
set dosyayolu = FSObaglanti.GetFile("\kayitlar\"&session.sessionID&".txt" )
set kayit = dosyayolu.OpenAsTextStream(8,0)
kayit.WriteLine time
kayit.WriteLine session("nick")+": "+yazi
kayit.WriteLine "Tarcan: "+rastgele
kayit.WriteLine "-"
kayit.close :set kayit = nothing-----
kodunu kullandığımda sorun çıkmıyordu alt alta
1
2
3gibi yazıyordu şimdi sadece son gönderilen yazılıyor kodlar ;_
---------------
set fso = CreateObject("Scripting.FileSystemObject")
if fso.fileExists ("\kayitlar\"&session.sessionID&".txt")= true then
set FSObaglanti = CreateObject("Scripting.FileSystemObject")
set dosyayolu = FSObaglanti.GetFile("\kayitlar\"&session.sessionID&".txt" )
set kayit = dosyayolu.OpenAsTextStream(8,0)
kayit.WriteLine time
kayit.WriteLine session("nick")+": "+yazi
kayit.WriteLine "Tarcan: "+cek("cevap")
kayit.WriteLine "-"
kayit.close :set kayit = nothing
else
set kayit=fso.createtextfile(server.mappath("\kayitlar\"&session.sessionID&".txt" ) )
kayit.WriteLine time
kayit.WriteLine session("nick")+": "+yazi
kayit.WriteLine "Tarcan: "+cek("cevap")
kayit.WriteLine "-"
end if------
sorun nerde çözemedim
-
set dosyayolu = FSObaglanti.GetFile(server.mappath("\kayitlar\"&session.sessionID&".txt")) olarak dene.
Kısayol
Şikayet
Özel Mesaj
Alıntı yap
Cevapla