</p>
<p>sayfaismi.asp<br />
<br />
<html><br />
<head><br />
<title>sayfaismi.asp</title><br />
</head><br />
<body><br />
<br />
sayfanızın diğer kodları<br />
<br />
<%<br />
Dim sayfaismi<br />
sayfaismi="sayfaismi"<br />
%><br />
<!-- #include file="xmlhit.asp" --><br />
<br />
sayfanızın diğer kodları<br />
<br />
</body><br />
</html> <br />
<br />
<br />
sayfaismi ne dikkat !<br />
<br />
1- her sayfa için ayrı bir isim veriyoruz.<br />
2- sayfaismi verilirken türkçe karekter kullanmıyoruz.<br />
<br />
xmlhit.asp<br />
<br />
<%<br />
<br />
Dim anaveri<br />
Dim anaverikontrol<br />
Dim alttag<br />
Dim Nosu<br />
Dim sayfaTag<br />
Nosu = 1<br />
<br />
' xml verimizi yukluyoruz <br />
Set anaveri = server.CreateObject("Microsoft.XMLDOM")<br />
anaveri.async = False<br />
anaverikontrol = anaveri.load(server.MapPath("xmlhit.xml"))<br />
<br />
' xml verimiz yoksa yeni xml dosyası olusturuyoruz<br />
If anaverikontrol = False Then<br />
anaveri.appendChild(anaveri.createProcessingInstruction("xml","version=""1.0"""))<br />
<br />
' sayfahitleri adında anatag olusturuluyor<br />
anaveri.appendChild(anaveri.createElement("sayfahitleri"))<br />
<br />
' sayfaismi adında bir tag oluşturuyoruz<br />
Set alttag = anaveri.createElement(sayfaismi)<br />
' sayfaismi tagımızın icerigini 1 yapıyoruz<br />
alttag.text = Nosu<br />
anaveri.documentElement.appendChild(alttag.cloneNode(True))<br />
<br />
' xml verimiz varsa<br />
Else<br />
<br />
' xml verilerimizdeki sayfaismi tagını yakalıyoruz<br />
Set sayfaTag=anaveri.getElementsByTagName(sayfaismi)<br />
<br />
' xml verilerimizde sayfaismi diye bir tag Yoksa<br />
If sayfaTag.length = False Then<br />
' sayfaismi adında bir tag oluşturuyoruz<br />
Set alttag = anaveri.createElement(sayfaismi)<br />
' sayfaismi tagımızın icerigini 1 yapıyoruz<br />
alttag.text = Nosu<br />
anaveri.documentElement.appendChild(alttag.cloneNode(True))<br />
<br />
' xml verilerimizde sayfaismi diye bir tag Varsa<br />
Else<br />
' sayfaismi tag icerigini bir artırıp yeniden dolduruyoruz<br />
Nosu=sayfaTag.item(0).text + 1<br />
sayfaTag.item(0).text = Nosu<br />
End If<br />
<br />
End If<br />
<br />
' xml verilerimizi kayıt ediyoruz<br />
anaveri.save(server.MapPath("xmlhit.xml"))<br />
<br />
Set alttag = Nothing<br />
Set anaveri = Nothing<br />
Set sayfaTag = Nothing<br />
<br />
' sayfanızda hit sayısını sayfaya yazıyoruz<br />
Response.Write Nosu<br />
%></p>
<p>
