08 February 2008, 14:49 | Mesaj No:1 |
Durumu:
Papatyam No :
1196
Üyelik T.:
09 December 2007
Arkadaşları:0
Cinsiyet:
Yaş:34
|
Sayfa hit sayisi verilerini xml olarak depolamak ve sayfada göstermek
Sayfa hit sayisi verilerini xml olarak depolamak ve sayfada göstermek Kod:
sayfaismi.asp <html> <head> <title>sayfaismi.asp</title> </head> <body> sayfanızın diğer kodları <% Dim sayfaismi sayfaismi="sayfaismi" %> <!-- #include file="xmlhit.asp" --> sayfanızın diğer kodları </body> </html> sayfaismi ne dikkat ! 1- her sayfa için ayrı bir isim veriyoruz. 2- sayfaismi verilirken türkçe karekter kullanmıyoruz. xmlhit.asp <% Dim anaveri Dim anaverikontrol Dim alttag Dim Nosu Dim sayfaTag Nosu = 1 ' xml verimizi yukluyoruz Set anaveri = server.CreateObject("Microsoft.XMLDOM") anaveri.async = False anaverikontrol = anaveri.load(server.MapPath("xmlhit.xml")) ' xml verimiz yoksa yeni xml dosyası olusturuyoruz If anaverikontrol = False Then anaveri.appendChild(anaveri.createProcessingInstruction("xml","version=""1.0""")) ' sayfahitleri adında anatag olusturuluyor anaveri.appendChild(anaveri.createElement("sayfahitleri")) ' sayfaismi adında bir tag oluşturuyoruz Set alttag = anaveri.createElement(sayfaismi) ' sayfaismi tagımızın icerigini 1 yapıyoruz alttag.text = Nosu anaveri.documentElement.appendChild(alttag.cloneNode(True)) ' xml verimiz varsa Else ' xml verilerimizdeki sayfaismi tagını yakalıyoruz Set sayfaTag=anaveri.getElementsByTagName(sayfaismi) ' xml verilerimizde sayfaismi diye bir tag Yoksa If sayfaTag.length = False Then ' sayfaismi adında bir tag oluşturuyoruz Set alttag = anaveri.createElement(sayfaismi) ' sayfaismi tagımızın icerigini 1 yapıyoruz alttag.text = Nosu anaveri.documentElement.appendChild(alttag.cloneNode(True)) ' xml verilerimizde sayfaismi diye bir tag Varsa Else ' sayfaismi tag icerigini bir artırıp yeniden dolduruyoruz Nosu=sayfaTag.item(0).text + 1 sayfaTag.item(0).text = Nosu End If End If ' xml verilerimizi kayıt ediyoruz anaveri.save(server.MapPath("xmlhit.xml")) Set alttag = Nothing Set anaveri = Nothing Set sayfaTag = Nothing ' sayfanızda hit sayısını sayfaya yazıyoruz Response.Write Nosu %> Brinkster için Uyarı: xmlhit.asp Dosyası db klasorunuz içinde bulunmalıdır. İsterseniz bir XSL dosyası oluşturup sayaçlarınız çalışmaya başlamasından itibaren oluşacak olan xmlhit.xml dosyanızdaki tüm verileri gözlemleyebilirsiniz. |
Bookmarks |
Konuyu Toplam 2 Üye okuyor. (0 Kayıtlı üye ve 2 Misafir) | |
Benzer Konular | ||||
Konu Başlıkları | Konuyu Başlatan | Papatyam Forum Ana Kategori Başlıkları |
Cevaplar | Son Mesajlar |
İsviçre'de Tam Sayfa İlanla UEFA'yı Türkiye İçin Göreve Çağırdılar | umut | Fenerbahçe | 0 | 15 October 2014 12:15 |
YENİ BİR SAYFADA SANA BAKMAK | CoNQueRoR_61 | Serbest Atış | 0 | 04 May 2009 11:29 |
ZULME RIZA GÖSTERMEK, ZULMÜN TA KENDİSİDİR | umut | Çözüm Kuran Ahlakı | 0 | 17 January 2009 13:37 |
Asp.net de sayfa içinden email gönderme Cdonts nesnesi..... | tamerr89 | asp.net | 0 | 29 March 2008 13:41 |
Sayfa korumasi....... | tamerr89 | CGI | 0 | 08 February 2008 17:22 |
Tefekküre Davet Köşesi |
|
Papatyam Sosyal Medya Guruplarımıza Katılın |