Sayfa hit sayisi verilerini xml olarak depolamak ve sayfada göstermek

tamerr89 · 08 February 2008, 13:49

Sayfa hit sayisi verilerini xml olarak depolamak ve sayfada göstermek

Kod:

sayfaismi.asp

&lt;html&gt;
&lt;head&gt;
&lt;title&gt;sayfaismi.asp&lt;/title&gt;
&lt;/head&gt;
&lt;body&gt;

sayfanızın diğer kodları

&lt;%
Dim sayfaismi
sayfaismi=&quot;sayfaismi&quot;
%&gt;
&lt;!-- #include file=&quot;xmlhit.asp&quot; --&gt;

sayfanızın diğer kodları

&lt;/body&gt;
&lt;/html&gt; 


sayfaismi ne dikkat !

1- her sayfa için ayrı bir isim veriyoruz.
2- sayfaismi verilirken türkçe karekter kullanmıyoruz.

xmlhit.asp

&lt;%

Dim anaveri
Dim anaverikontrol
Dim alttag
Dim Nosu
Dim sayfaTag
Nosu = 1

' xml verimizi yukluyoruz 
Set anaveri = server.CreateObject(&quot;Microsoft.XMLDOM&quot;)
anaveri.async = False
anaverikontrol = anaveri.load(server.MapPath(&quot;xmlhit.xml&quot;))

' xml verimiz yoksa yeni xml dosyası olusturuyoruz
If anaverikontrol = False Then
anaveri.appendChild(anaveri.createProcessingInstruction(&quot;xml&quot;,&quot;version=&quot;&quot;1.0&quot;&quot;&quot;))

' sayfahitleri adında anatag olusturuluyor
anaveri.appendChild(anaveri.createElement(&quot;sayfahitleri&quot;))

' 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(&quot;xmlhit.xml&quot;))

Set alttag = Nothing
Set anaveri = Nothing
Set sayfaTag = Nothing

' sayfanızda hit sayısını sayfaya yazıyoruz
Response.Write Nosu
%&gt; 



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.

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 11:15
YENİ BİR SAYFADA SANA BAKMAK	CoNQueRoR_61	Serbest Atış	0	04 May 2009 10:29
ZULME RIZA GÖSTERMEK, ZULMÜN TA KENDİSİDİR	umut	Çözüm Kuran Ahlakı	0	17 January 2009 12:37
Asp.net de sayfa içinden email gönderme Cdonts nesnesi.....	tamerr89	asp.net	0	29 March 2008 12:41
Sayfa korumasi.......	tamerr89	CGI	0	08 February 2008 16:22

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