عدد الزوار

الكودالتالي يريك انك الزائر رقم كذا بال asp

<% 
Dim ConnectionString
Dim ADO
ConnectionString="Provider=Microsoft.Jet.OLEDB.4.0; Data Source =" & Server.MapPath("\db1i.mdb")
Set ADO=Server.CreateObject("ADODB.Connection")
ADO.ConnectionString =ConnectionString
ADO.Open

selectSQL="select* from cou"
set rs=ADO.execute(selectSQL)
%>
<p align=center><b><font size="4" color="#808000">You are the visitor number 
<% dim x 
x=rs("counter1")+1
function updatef()
updateSQL= " UPDATE cou  set counter1 ="& x 
ADO.execute(updateSQL)
end function
updatef()  


 response.write x %></font></b></p>
<% ADO.close %>

حيث اسم الداتا بيز db1.mdb

و اسم الجدول cou

و اسم العمود counter1

كلما دخلت الصفحة يزيد العداد بمقدار 1 :D