Buat penghitung ASP dengan mudah
Penulis：Eve Cole
Waktu Pembaruan：2009-06-23 16:43:18
bisnis asuransi kesehatan
'下面存为count.asp
<%
Setel koneksi=Server.CreateObject("ADODB.Connection")
samb.Buka "driver={Microsoft Access Driver (*.mdb)};dbq="& Server.MapPath("count.mdb")
%>
<%pada kesalahan lanjutkan berikutnya%>
<%sql="perbarui jumlah set hit=hit+1%><%conn.Execute(sql)%>
<%sql = "pilih * dari hitungan
setel rs=sambungan.eksekusi(sql)
%>
<%
'更新每周每日数据
pukulan terakhir=rs("hit terakhir")
tanggal=tahun(Sekarang()) & "-" & bulan(Sekarang()) & "-" & hari(Sekarang())
jika trim(lasthit)=trim(tanggal) maka
sql="perbarui kumpulan situs dayhit=dayhit+1 di mana id="&request("id")
samb.Jalankan(sql)
' respon.tulis "sukses"
kalau tidak
sql="perbarui kumpulan situs dayhit=1 di mana id="&request("id")
samb.Jalankan(sql)
' respon.tulis "kesalahan"
berakhir jika
sql="perbarui kumpulan situs lasthit='"&tdate&"' di mana ID="&request("id")
samb.Jalankan(sql)
p_year=CInt(tahun(Sekarang()))-CInt(tahun(terakhir))
p_bulan=CInt(bulan(Sekarang()))-CInt(bulan(terakhir))
p_hari=CInt(hari(Sekarang()))-CInt(hari(terakhir))
periode_waktu=((p_tahun*12+p_bulan)*30+p_hari)
jika cint(period_time)=<cint(7) maka
sql="perbarui kumpulan situs weekhit=weekhit+1 di mana id="&request("id")
samb.Jalankan(sql)
kalau tidak
sql="perbarui kumpulan situs weekhit=1 di mana id="&request("id")
samb.Jalankan(sql)
berakhir jika
%>
document.write('<tr><td width="100%">今日访问<%=rs("dayhit")%>次,本周访问<%=rs("weekhit")%>次,总访问<%=rs("hit")%>次</td></tr>');
<%rs.close
atur rs=tidak ada%>
'用<script Language="JavaScript1.1" src="count.asp"></script>在要统计的页面调用即可.
建立数据库: 建一个count的MDB库,再建一个表count,表中字段为
tekan 数字型
dayhit 数字型
minggu hit 数字型
lasthit 日期型
