folder Tahribat.com Forumları
linefolder Asp - Php - Cgi - Perl
linefolder Önceki İçeriğinin Üzerine Veri Eklemek



Önceki İçeriğinin Üzerine Veri Eklemek

  1. KısayolKısayol reportŞikayet pmÖzel Mesaj
    BartheZ
    BartheZ's avatar
    Bilgi/Destek Madalyası Üstün Hizmet Madalyası
    Kayıt Tarihi: 03/Haziran/2002
    Erkek

    Ö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?

    on error go to hell
  2. KısayolKısayol reportŞikayet pmÖzel Mesaj
    BartheZ
    BartheZ's avatar
    Bilgi/Destek Madalyası Üstün Hizmet Madalyası
    Kayıt Tarihi: 03/Haziran/2002
    Erkek
    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.

    on error go to hell
  3. KısayolKısayol reportŞikayet pmÖzel Mesaj
    T_A_T_A_R
    T_A_T_A_R's avatar
    Kayıt Tarihi: 26/Aralık/2003
    Erkek
    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!

    Tatar_Murat
Toplam Hit: 1454 Toplam Mesaj: 3