إنشاء عدادات ASP بسهولة
الكاتب：Eve Cole
وقت التحديث：2009-06-23 16:43:18
أفضل ما في الأمر هو الحصول على أفضل الأسعار
'العدد الخاص بالعدد.asp
<%
تعيين conn=Server.CreateObject("ADODB.Connection")
conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq="& Server.MapPath("count.mdb")
%>
<%عند استئناف الخطأ بعد ذلك%>
<%sql="مجموعة عدد التحديثات hit=hit+1%><%conn.Execute(sql)%>
<%sql = "اختر * من العد
تعيين rs=conn.execute(sql)
%>
<%
'مرحبا بكم في كل مكان
lasthit=rs("lasthit")
tdate=year(Now()) & "-" & Month(Now()) & "-" & day(Now())
إذا تقليم (lasthit) = تقليم (tdate) إذن
sql="تحديث مجموعة الموقع dayhit=dayhit+1 حيث id="&request("id")
كون.تنفيذ (SQL)
'رد.اكتب "النجاح"
آخر
sql="تحديث مجموعة الموقع dayhit=1 حيث id="&request("id")
كون.تنفيذ (SQL)
'رد.اكتب "خطأ"
نهاية إذا
sql="تحديث مجموعة الموقع lasthit='"&tdate&"' حيث ID="&request("id")
كون.تنفيذ (SQL)
p_year=CInt(year(Now()))-CInt(year(lasthit))
p_month=CInt(month(Now()))-CInt(month(lasthit))
p_day=CInt(day(Now()))-CInt(day(lasthit))
فترة_الوقت=((p_year*12+p_month)*30+p_day)
إذا سينت (فترة_الوقت) = <سينت (7) ثم
sql="تحديث مجموعة الموقعweekhit=weekhit+1 حيث id="&request("id")
كون.تنفيذ (SQL)
آخر
sql = "تحديث مجموعة الموقع Weekhit = 1 حيث id = "&request ("id")
كون.تنفيذ (SQL)
نهاية إذا
%>
document.write('<tr><td width="100%">العرض<%=rs("dayhit")%>الكتابة,العرض<%=rs("weekhit")%>الكتابة,الكتابة <%=rs("hit")%>次</td></tr>');
<%rs.إغلاق
اضبط rs=لا شيء%>
'<script language="JavaScript1.1" src="count.asp"></script>اكتب ما تريد فعله.
建立数据库:建一个count的MDB库،再建一个表count،表中字段为
ضرب 数字型
dayhit 数字型
Weekhit 数字型
lasthit 日期型
