Sniper

< %
' Normal Değişkenler
Dim ASPKodu, ASPAciklama, Kategori, Sutun, Aciklama, Dosya, Satir, Numara, Kaynak
' Nesneler
Dim Hata, Kontol, Bag, Ekle, Guncelle
 
' Mesajların içindeki tek ve çift tırnakları temizleyen fonksiyon
Function Temizle(Metin)
    Metin = Replace(Metin,"""",""")
    Metin = Replace(Metin,"'","'")
    Metin = Replace(Metin,"","\")
    Temizle = Metin
End Function
 
' Hata veritabanımıza bağlanıyoruz
Set Bag = Server.CreateObject("ADODB.Connection")
Bag.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=C:Hata.mdb"
 
' Hatayı öğreniyoruz
Set Hata = Server.GetLastError()
 
' Hata içeriğini değişkenlerimize aktarıyoruz
With Hata
    ASPKodu = Temizle(.ASPCode)
    ASPAciklama = Temizle(.ASPDescription)
    Kategori = Temizle(.Category)
    Sutun = Temizle(.Column)
    Aciklama = Temizle(.Description)
    ' Dosya kısmını biraz genişleterek hangi siteye ait olduğunu da yazdıralım
    ' Bu sayede kodu kök dizin altına atarsak sitelere göre ayırmak daha kolay olur.
     Dosya = Temizle("http://" &amp; Request.ServerVariables("SERVER_NAME") &amp; .File)
    Satir = Temizle(.Line)
    Numara = Temizle(.Number)
    Kaynak = Temizle(.Source)
End With
 
' Değişkenler veritabanına kaydedilirken hata almayalım diye varsayılanları ayarlayalım.
' Sonra hata sayfasında hata verdirip madara olmayalım :)
If ASPKodu = "" Then ASPKodu = 0
If Sutun = "" Then Sutun = 0
If Satir = "" Then Satir = 0
If Numara = "" Then Numara = 0
 
' Daha önceden bu hata mesajı veritabanımıza kaydedilmiş mi?
Set Kontrol = Bag.Execute("SELECT fldFile, fldDescription, fldNumber FROM tblHata WHERE fldFile='" &amp; Dosya &amp; "' AND fldDescription='" &amp; Aciklama &amp; "' AND fldNumber=" &amp; Numara)
 
'Kaydedilmemişse edelim, edilmişse hatayla kaç kere karşılaşılmış not edelim
If Kontrol.EOF Then
Set Ekle = Bag.Execute("INSERT INTO tblHata(fldASPCode, fldASPDescription, fldCategory, fldColumn, fldDescription, fldFile, fldLine, fldNumber, fldSource, fldHit, fldDuzenleme) VALUES(" &amp; ASPKodu &amp; ",'" &amp; ASPAciklama &amp; "','" &amp; Kategori &amp; "'," &amp; Sutun &amp; ",'" &amp; Aciklama &amp; "','" &amp; Dosya &amp; "'," &amp; Satir &amp; "," &amp; Numara &amp; ",'" &amp; Kaynak &amp; "',1,False)")
Else
Set Guncelle = Bag.Execute("UPDATE tblHata Set fldHit=fldHit+1 WHERE fldFile='" &amp; Dosya &amp; "' AND fldDescription='" &amp; Aciklama &amp; "' AND fldNumber=" &amp; Numara)
End If
%>
<h3 style="color:#FF0000">Sayfa kodları işlenirken hata oluştu!</h3>
< % If ASPKodu &lt;&gt; 0 Then Response.Write "<strong>Hatanın ASP Kodu: 0x" &amp; ASPKodu &amp; "" %>
< % If ASPAciklama &gt; "" Then Response.Write "<strong>Hatanın ASP Açıklaması: " &amp; ASPAciklama &amp; "" %>
< % If Kategori &gt; "" Then Response.Write "<strong>Hata Kategorisi: " &amp; Kategori &amp; "" %>
< % If Sutun &lt;&gt; "-1" Then Response.Write "<strong>Hatanın oluştuğu Sütun: " &amp; Sutun &amp; "" %>
< % If Aciklama &gt; "" Then Response.Write "<strong>Hatanın Açıklaması: " &amp; Aciklama &amp; "" %>
< % If Dosya &gt; "" Then Response.Write "<strong>Hata oluşan Dosya: " &amp; Dosya &amp; "" %>
< % If Numara &gt; "" Then Response.Write "<strong>Hata Numarası: " &amp; Numara &amp; "" %>
< % If Satir &gt; "" Then Response.Write "<strong>Hataya Sebep Olan Satır: " &amp; Satir &amp; "" %>
< % If Kaynak &gt; "" Then Response.Write "<strong>Hatanın Kaynağı: " &amp; Kaynak &amp; "" %>
<strong style="color:#FF0000">Hataya sebebiyet veren kodlar kaydedildi ve en kısa zamanda düzeltilecektir.Oluşan bu hatadan dolayı özür dileriz...</strong>