Asp ile güncel haber ekleme

**Rosita** · 08-09-2007, 21:45

AşaÇıda haber_ekle.asp dosyasının içeriÇi verilmiştir

CODE
<% @ Language="VBScript" codepage=1254 %>
<% Option Explicit %>
<html>
<head>
<title>ASP ile Güncel Haber Ekleme</title>
</head>
<body>
<form action="haber_isle.asp" method="get">
<b>Haber BaşlıÇı : </b><input ******"textbox" name="haber_basligi"><br>
<br><b>Haber : </b><br><textarea rows="10" cols="50" name="haber"></textarea><br><br>
<input ******"submit" value="Gönder">
</form>
</body>
</html>

Bu dosyamızda sadece formumuzu oluşturuyoruz ve formumuzu işleyecek sayfanın adresini belirtiyoruz.Dolayısıyla daha fazla açıklama yapmamıza gerek yok.
AşaÇıda haber_isle.asp dosyasının içeriÇi verilmiştir.

CODE
<% @ Language="VBScript" codepage=1254 %>
<% Option Explicit %>
<html>
<head>
<title>ASP ile Güncel Haber Ekleme</title>
</head>
<body>
<% ' DeÇişkenlerimizi tanımlıyoruz.
dim tarih,haber_basligi,haber,fso,text_dosyasi,text_ge
tfile
' DeÇişkenlerimize haber_ekle.asp deki formlara girilen bilgilerin deÇerlerini kaydediyoruz.
tarih=date()
haber_basligi=Request.QueryString("haber_basligi")
haber=Request.QueryString("haber")
' Formlardan aldıÇımız deÇerlerin boş olup olmadıÇını kontrol ediyoruz.Doldurulmamış olan form öÇeleri varsa
' bir önceki sayfaya geri dönerek doldurulmamış formların doldurulması söyleniyor.EÇer herşey tam olarak doldurulmuş ise kodlara devam ediliyor.
if haber_basligi="" then
Response.Write "Lütfen haber başlıÇı <a href=haber_ekle.asp>giriniz</a> !"
else
if haber="" then
Response.Write "Lütfen haber <a href=haber_ekle.asp>giriniz !"
else
' FileSystemObject 'i oluşturuyoruz ve onu fso deÇişkenine atıyoruz.
set fso=Server.CreateObject("Scripting.FileSystemObjec t")
' EÇer "C:\" de haberler.txt diye bir dosya yok ise böyle bir text dosyası oluşturuyoruz.Yoksa kodlara devam ediliyor.
if fso.FileExists("C:\haberler.txt") = False then
set text_dosyasi=fso.CreateTextFile("C:\haberler.txt")
' Daha sonra text dosyasına başka şekilde izinler verip açacaÇımız için dosyayı kapıyoruz.
text_dosyasi.close
set text_dosyasi=nothing
else
end if
' Text dosyamızı "File Nesnesi" için açıp bunu text_getfile deÇişkenine atıyoruz.
set text_getfile=fso.getfile("C:\haberler.txt")
' İşte şimdi esas yapacaÇımız işe , can alıcı noktaya geldi sıra.Datediff() fonksiyonu yardımıyla dosyamızın en son deÇiştiriliş tarihi ile bugünkü tarihi karşılaştırıyoruz.DeÇer sıfıra eşitse yani dosyamız en son olarak bugün güncellenmişse 8 (ekleme.) iznini vererek açıyoruz.EÇer sıfıra eşit deÇilse yani güncel deÇilse 2(yazma.) iznini vererek açıyoruz.
if datediff("d",text_getfile.DateLastModified,tarih) = 0 then
set text_dosyasi=fso.OpenTextFile("C:\haberler.txt",8, 0)
else
set text_dosyasi=fso.OpenTextFile("C:\haberler.txt",2, 0)
end if
' Tüm bu yorucu kontrollerden sonra formlardan aldıÇımız deÇişkenleri text dosyamıza nacizane bir tasarım ile ekliyoruz.
text_dosyasi.Writeline "<b>"
text_dosyasi.Writeline haber_basligi&"</b><br><br>"
text_dosyasi.Writeline haber&"<br><br>"
text_dosyasi.Writeline "<b>Haber tarihi : </b>"
text_dosyasi.Writeline tarih&"<br><br><br>"
' Bundan sonra işimiz bitiyor.Yorucu kodların ardından bir iş başarmanın mutluluÇuyla keyifleniyoruz.Ama asla oluşturduÇumuz nesneleri kapatmayı unutmayalım.Şimdiden düzenli olmak gerekiyor ))))
text_dosyasi.close
set text_dosyasi=nothing
set text_getfile=nothing
set fso=nothing
end if
end if
%>
</body>
</html>

AşaÇıda haberler.asp dosyasının içeriÇi verilmiştir.

CODE
<% @ Language="VBScript" codepage=1254 %>
<% Option Explicit %>
<% ' Bundan sonra yazacaÇımız kodları ara belleÇe alıyoruz.
Response.Buffer=True %>
<html>
<head>
<title>ASP ile Güncel Haber Ekleme</title>
</head>
<body>
<% dim fso,text_dosyasi
set fso=Server.CreateObject("Scripting.FileSystemObjec t")
' Dosyamızı 1(okuma.) iznini vererek açıyoruz.
set text_dosyasi=fso.OpenTextFile("C:\haberler.txt",1, 0)
' While döngüsü ile text_dosyasi text_dosyasi.AtEndOfStream olmadıÇı sürece ekrana text dosyasının satırlarını yazdırıyoruz.
while not text_dosyasi.AtEndOfStream
Response.Write text_dosyasi.Readline
wend
' Ara belleÇe aldıÇımız içeriÇi sayfaya gönderiyoruz.
Response.Flush
text_dosyasi.close
set text_dosyasi=nothing
set fso=nothing
%>
</body>
</html>

08-09-2007, 21:45	#1 (permalink)
Rosita .::.SustuM.::. Üyelik tarihi: Jul 2007 Mesajlar: 1,844 Ruh Hali: Teşekkürler: 147 116 Mesaja 209 Teşekkür edildi Rep Gücü: 26390 Rep Puanı: 263799 Rep Seviyesi: Resimlerim: (3)	Asp ile güncel haber ekleme AşaÇıda haber_ekle.asp dosyasının içeriÇi verilmiştir CODE <% @ Language="VBScript" codepage=1254 %> <% Option Explicit %> <html> <head> <title>ASP ile Güncel Haber Ekleme</title> </head> <body> <form action="haber_isle.asp" method="get"> <b>Haber BaşlıÇı : </b><input ****"textbox" name="haber_basligi"><br> <br><b>Haber : </b><br><textarea rows="10" cols="50" name="haber"></textarea><br><br> <input **"submit" value="Gönder"> </form> </body> </html> Bu dosyamızda sadece formumuzu oluşturuyoruz ve formumuzu işleyecek sayfanın adresini belirtiyoruz.Dolayısıyla daha fazla açıklama yapmamıza gerek yok. AşaÇıda haber_isle.asp dosyasının içeriÇi verilmiştir. CODE <% @ Language="VBScript" codepage=1254 %> <% Option Explicit %> <html> <head> <title>ASP ile Güncel Haber Ekleme</title> </head> <body> <% ' DeÇişkenlerimizi tanımlıyoruz. dim tarih,haber_basligi,haber,fso,text_dosyasi,text_ge tfile ' DeÇişkenlerimize haber_ekle.asp deki formlara girilen bilgilerin deÇerlerini kaydediyoruz. tarih=date() haber_basligi=Request.QueryString("haber_basligi") haber=Request.QueryString("haber") ' Formlardan aldıÇımız deÇerlerin boş olup olmadıÇını kontrol ediyoruz.Doldurulmamış olan form öÇeleri varsa ' bir önceki sayfaya geri dönerek doldurulmamış formların doldurulması söyleniyor.EÇer herşey tam olarak doldurulmuş ise kodlara devam ediliyor. if haber_basligi="" then Response.Write "Lütfen haber başlıÇı <a href=haber_ekle.asp>giriniz</a> !" else if haber="" then Response.Write "Lütfen haber <a href=haber_ekle.asp>giriniz !" else ' FileSystemObject 'i oluşturuyoruz ve onu fso deÇişkenine atıyoruz. set fso=Server.CreateObject("Scripting.FileSystemObjec t") ' EÇer "C:\" de haberler.txt diye bir dosya yok ise böyle bir text dosyası oluşturuyoruz.Yoksa kodlara devam ediliyor. if fso.FileExists("C:\haberler.txt") = False then set text_dosyasi=fso.CreateTextFile("C:\haberler.txt") ' Daha sonra text dosyasına başka şekilde izinler verip açacaÇımız için dosyayı kapıyoruz. text_dosyasi.close set text_dosyasi=nothing else end if ' Text dosyamızı "File Nesnesi" için açıp bunu text_getfile deÇişkenine atıyoruz. set text_getfile=fso.getfile("C:\haberler.txt") ' İşte şimdi esas yapacaÇımız işe , can alıcı noktaya geldi sıra.Datediff() fonksiyonu yardımıyla dosyamızın en son deÇiştiriliş tarihi ile bugünkü tarihi karşılaştırıyoruz.DeÇer sıfıra eşitse yani dosyamız en son olarak bugün güncellenmişse 8 (ekleme.) iznini vererek açıyoruz.EÇer sıfıra eşit deÇilse yani güncel deÇilse 2(yazma.) iznini vererek açıyoruz. if datediff("d",text_getfile.DateLastModified,tarih) = 0 then set text_dosyasi=fso.OpenTextFile("C:\haberler.txt",8, 0) else set text_dosyasi=fso.OpenTextFile("C:\haberler.txt",2, 0) end if ' Tüm bu yorucu kontrollerden sonra formlardan aldıÇımız deÇişkenleri text dosyamıza nacizane bir tasarım ile ekliyoruz. text_dosyasi.Writeline "<b>" text_dosyasi.Writeline haber_basligi&"</b><br><br>" text_dosyasi.Writeline haber&"<br><br>" text_dosyasi.Writeline "<b>Haber tarihi : </b>" text_dosyasi.Writeline tarih&"<br><br><br>" ' Bundan sonra işimiz bitiyor.Yorucu kodların ardından bir iş başarmanın mutluluÇuyla keyifleniyoruz.Ama asla oluşturduÇumuz nesneleri kapatmayı unutmayalım.Şimdiden düzenli olmak gerekiyor )))) text_dosyasi.close set text_dosyasi=nothing set text_getfile=nothing set fso=nothing end if end if %> </body> </html> AşaÇıda haberler.asp dosyasının içeriÇi verilmiştir. CODE <% @ Language="VBScript" codepage=1254 %> <% Option Explicit %> <% ' Bundan sonra yazacaÇımız kodları ara belleÇe alıyoruz. Response.Buffer=True %> <html> <head> <title>ASP ile Güncel Haber Ekleme</title> </head> <body> <% dim fso,text_dosyasi set fso=Server.CreateObject("Scripting.FileSystemObjec t") ' Dosyamızı 1(okuma.) iznini vererek açıyoruz. set text_dosyasi=fso.OpenTextFile("C:\haberler.txt",1, 0) ' While döngüsü ile text_dosyasi text_dosyasi.AtEndOfStream olmadıÇı sürece ekrana text dosyasının satırlarını yazdırıyoruz. while not text_dosyasi.AtEndOfStream Response.Write text_dosyasi.Readline wend ' Ara belleÇe aldıÇımız içeriÇi sayfaya gönderiyoruz. Response.Flush text_dosyasi.close set text_dosyasi=nothing set fso=nothing %> </body> </html> __________________ Nirvana Fun Club**

Seçenekler
Yazdırılabilir şekli göster Sayfayı E-Mail olarak gönder
Stil
Normal Hybrid-Şeklinde gösterime geç Ağaç şeklinde gösterime geç

Benzer Konular
Konu	Konuyu Başlatan	Forum	Cevaplar	Son Mesaj
Kalp krizini haber veren kolye	ShirinBaby	Genel ve Güncel Konular	0	08-08-2007 01:43
Bosque Davasindan KÖtÜ Haber!	FeLiX	Beşiktaş - BJK	0	07-27-2007 10:49
Kartal'a KÖtÜ Haber!	FeLiX	Beşiktaş - BJK	0	07-02-2007 13:48
Knight Online Ana Haber Bülteni	SuperMonstar	Knight Online	1	05-23-2007 05:09
Sık Kullanılanlar Ekleme	eFKaRLı	Web Yazılım	0	02-01-2007 01:31

Klavye.com da Yenimisiniz?	Yardıma mı ihtiyacınız var ?
Üye olmak için Tıklayın Forum Yöneticilerini Göster Arama Forum Kuralları İletişim	Sıkça Sorulan Sorular Şifrenizimi Unuttunuz ? Okundu Kabul Et

Konuyu Toplam 1 Üye okuyor. (0 Kayıtlı üye ve 1 Misafir)