Üye Kayıt Üye Giriş

Xml Sayfa Hit Gösterimi


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"
%>
<!-- #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
%>

Bilgisayar Dershanesi Ders Sahibi;
Bilgisayar Dershanesi

Yorumlar

Yorum Yapabilmek İçin Üye Girişi Yapmanız Gerekmektedir.

ETİKETLER