<% if Application("NumVisits")<9999 then Application("NumVisits")=10000 end if Application.Lock Application("NumVisits") = Application("NumVisits") + 1 Application.Unlock %> 你是本页的第<%=Application("NumVisits")%>位访问者
上面的程序,你会发现每刷新一次,都会记数累加,如按IP值访问来记数的话,则建立一个Session
2,vnum.asp
<% if session("visitnum")="" then Application.Lock Application("NumVisits") = Application("NumVisits") + 1 Application.Unlock session("visitnum")="visited" end if %> 你是本页的第<%=Application("NumVisits")%>位访问者