هل من مجيب "عداد للزوار"

هذا كود يحسب عدد الزوار ويحفظها في قاعدة بيانات أكسيس

ضع هذا الكود في أعلى الصفحة أو في أي صفحة خارجية وسوي لها include مع التعديل حسب قاعدة البيانات

' To call it write hitCounter(request.ServerVariables(29))

Function hitCounter(path)

'path=request.ServerVariables(29)

set rs=createObject("ADODB.RECORDSET") 

sql="select * from pcount where url = '" & path & "'" 

rs.open sql,MyConn,3,3  

if rs.eof  then    

rs.addNew     

rs("url")=path     

rs("visits")=1    

rs.Update   

else  

Application.lock  

Application(path)=rs("visits")  

Application(path)=Application(path)+1  

Application.Unlock

rs("visits")=Application(path)  

rs.Update  

rs.close  

set rs=nothing 

end if  

End Function

'**********************

'To call it write getHitCount(request.ServerVariables(29))

Function getHitCount(pageUrl)  

set temp=MyConn.execute("select * from pcount where url='"&pageUrl&"'")  

response.Write temp("visits")  

temp.close

set temp=nothing

End Function

وبعدين ضع السطرين هذي في المكان اللي تحت عدد الزوار يظهر فيه

hitCounter(request.ServerVariables(29))

getHitCount(request.ServerVariables(29))

أشكرك أخي almomaiaz على هذه الإجابة القيمة ..

و جزاك الله كل خير و أدعوا لك بكل إخلاص الله يوفقك ...

من كان في عون أخيه***كان الله في عونه (f)

***أخوكم k2002***