Önceki İçeriğinin Üzerine Veri Eklemek
-
Örnek bir kod yaziyorum. Bir dosya yaratıp içine bir şeyler yazmak için
yaz=request("yaz")
dosya=request("dosya")
dosya=server.mappath(dosya)
Set fs = CreateObject("Scripting.FileSystemObject")
Set a = fs.CreateTextFile(""&dosya&"", true)
a.WriteLine(yaz)
a.close
barthez.asp?dosya=a.asp&yaz=AAAAAA
yaptiğimda, a.asp dosyasinin içine "AAAAAA" yazacak. ben AAAAA kısmını BBBBBB yaparsam bu sefer a.asp dosyasının içi BBBBBB olacak. ama ben böyle olsun istemiyorum. ben AAAAA yı BBBBB olarak değiştirdimde, a.asp nin içine şu şekilde işlensin
AAAAAA
BBBBBB
hatta CCCCCC yapıp postladığımda
AAAAAA
BBBBBB
CCCCCC
olsun. Bu mümkün müdür? Nasıl yapılır? -
bi allahin kulu cevaplamadi mi sunu be. Ne hıyanetsiniz. bu bölümün var olması cok sacma oyleyse. Neyse ben kastım ogrendim bunu nasıl yapildiğini. hic olmazsa kendi ogrendiklerimi yaziimda, giren ise yarayan bisey bulur memnun kalir.
İlk önce barthez.asp diye bir dosya yaratiyoruz. Dosyanin icine bi tane metin alanı bi buton ekliyoruz. Metin alanının adını "icerik" olarak deistiriyoruz.(NAME="icerik") Üzerine bilgi işleyeceğimiz dosyanın adı "AHABU.ASP" olsun. barthez.asp nin en üst satırına şunları ekliyoruz.
<%
icerik=request("icerik")
if icerik <> "" then
dosya=server.mappath("AHABU.ASP")
Set fs = CreateObject("Scripting.FileSystemObject")
Set a = fs.CreateTextFile(""&dosya&"", True)
Set objFileSys = Server.CreateObject("Scripting.FileSystemObject")
Set objFile = objFileSys.OpenTextFile(Server.MapPath("AHABU.ASP"))
FileContent = objFile.ReadAll
objFile.Close
a.WriteLine(FileContent)
a.WriteLine(icerik)
Set objFile = Nothing
Set objFileSys = Nothing
a.close
else
response.write "bişiler yazmayi dene"
end if
http://www.domain.com/barthez.asp
güle güle kullanın. -
Bu ve bunun gibi birçok sorunun cevabı bende var arkadaşım. Takılırsan bana yaz. Cevaplarım. Aşağıdaki konu için hala bir çözüm bulamadıysan.
Şunu kullan:
set fs=CreateObject("Scripting.FileSystemObject")
set a = fs.OpenTextFile(Server.Mappath("AHABU.ASP"),8,false,0)
Burda gördüğün OpenTextFile var olan dosdyayı açar
içindeki 8 parametresi ise sonuna ekleme yapılacağını belirtir.
Kolay Gelsin!
Toplam Hit: 1454 Toplam Mesaj: 3