XML / Asp/Xml Sayfa Hit Sayisi Gösterimi

sdkbyrm

olwα.ɴeт
Üyelik Tarihi
23 Aralık 2020
Mesajlar
813
Beğeniler
1
Puanı
3
Ticaret: 0 / 0 / 0
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("xm lhit.xml"))

' xml verimiz yoksa yeni xml dosyası olusturuyoruz
If anaverikontrol = False Then
anaveri.appendChild(anaveri.createProcessingInstru ction("xml","version=""1.0"""))

' sayfahitleri adında anatag olusturuluyor
anaveri.appendChild(anaveri.createElement("sayfahi tleri"))

' 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.cloneNo de(True))

' xml verimiz varsa
Else

' xml verilerimizdeki sayfaismi tagını yakalıyoruz
Set sayfaTag=anaveri.getElementsByT agName(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.cloneNo de(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.
 
Üst Alt