Créez facilement des compteurs ASP
Auteur：Eve Cole
Date de mise à jour：2009-06-23 16:43:18
以下介绍用数据库实现简单计数器
'下面存为count.asp
<%
Définir conn=Server.CreateObject("ADODB.Connection")
conn.Open "driver={Pilote Microsoft Access (*.mdb)};dbq="& Server.MapPath("count.mdb")
%>
<%en cas d'erreur, reprendre le suivant%>
<%sql="compte de mises à jour défini hit=hit+1%><%conn.Execute(sql)%>
<%sql = "sélectionner * dans le nombre
définir rs=conn.execute(sql)
%>
<%
'更新每周每日数据
dernièrehit=rs("lasthit")
tdate=année(Maintenant()) & "-" & mois(Maintenant()) & "-" & jour(Maintenant())
si trim(lasthit)=trim(tdate) alors
sql="mise à jour du site défini dayhit=dayhit+1 où id="&request("id")
conn.Execute(sql)
' réponse.écrire "succès"
autre
sql="mise à jour du site défini dayhit=1 où id="&request("id")
conn.Execute(sql)
' réponse.écrire "erreur"
finir si
sql="mise à jour du site défini lasthit=""&tdate&"' où ID="&request("id")
conn.Execute(sql)
p_year=CInt(année(Maintenant()))-CInt(année(dernier coup))
p_month=CInt(mois(Maintenant()))-CInt(mois(dernier coup))
p_day=CInt(jour(Maintenant()))-CInt(jour(dernier coup))
période_heure=((p_année*12+p_mois)*30+p_jour)
si cint(period_time)=<cint(7) alors
sql="mise à jour du site défini weekhit=weekhit+1 où id="&request("id")
conn.Execute(sql)
autre
sql="mise à jour du site défini weekhit=1 où id="&request("id")
conn.Execute(sql)
finir si
%>
document.write('<tr><td width="100%">今日访问<%=rs("dayhit")%>次,本周访问<%=rs("weekhit")%>次,总访问<%=rs("hit")%>次</td></tr>');
<%rs.close
définir rs=rien%>
'用<script language="JavaScript1.1" src="count.asp"></script>在要统计的页面调用即可.
Nom du produit : compte du nombre de MDB, compte du nombre, nombre de personnes
frapper 数字型
dayhit 数字型
weekhit 数字型
lasthit 日期型
