Xml Sayfa Hit Gösterimi

sayfaismi.asp

<html>
<head>
<title>sayfaismi.asp</title>
</head>
<body>

sayfanızın diğer kodları

<%
Dim sayfaismi
sayfaismi="sayfaismi"
%>


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
%>

Xml Sayfa Hit Gösterimi için yazılan yorumlar

mehmet çelik { 03 Aralık 2009 }

arkadaşlar asp de xml veri gönderip çekebiliyorum ama istediğim tarzda yapamıyorum xml iyi bilen arkadaşlarla yardımlaşabiliriz

SiNLeSs { 14 Nisan 2009 }

XML'deki veriyi asp'ye çekme gösterilmiş.PHP'de bunu file_get_contents ve preg_match_all ile gösterebilirsiniz.

DeLi { 26 Kasım 2008 }

Arkadaşlar burda sadeçe asp içene xml çağirmayi gösdermiş xml ile ilgili birşey yok burda

askurto { 29 Temmuz 2008 }

bir şey anlamadım.... işime yaramadı...

ChiLdsTyLe { 28 Mart 2007 }

Algıda Eksiklik - Lise3 :)
Valla birşey anlamadım bende..

tevrat { 08 Mart 2007 }

hiç bişi anlamadım