<% @ Language="VBScript" codepage=1254 %>
<% Option Explicit %>
ASP ile Güncel Haber Ekleme
<% ' Değişkenlerimizi tanımlıyoruz.
dim tarih,haber_basligi,haber,fso,text_dosyasi,text_getfile
' 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ığı giriniz !"
else
if haber="" then
Response.Write "Lütfen haber giriniz !"
else
' FileSystemObject 'i oluşturuyoruz ve onu fso değişkenine atıyoruz.
set fso=Server.CreateObject("Scripting.FileSystemObject")
' 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 ""
text_dosyasi.Writeline haber_basligi&"
"
text_dosyasi.Writeline haber&"
"
text_dosyasi.Writeline "Haber tarihi : "
text_dosyasi.Writeline tarih&"
"
' 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
%>
Ps
form action="http://www.termbank.net/psychology/show.php" method="get" target="_blank">
| 
