الأصدقاء الذين يتعلمون asp بحاجة إلى فهم <%
تعيين conn=server.createobject(adodb.connection)
connstr=Provider=Microsoft.jet.oledb.4.0;مصدر البيانات=&server.mappath(cou.mdb) //cou هو اسم قاعدة البيانات
conn.open connstr
إذا كانت الجلسة (زارت)<>نعم إذن
التطبيق. قفل ()
conn.execute (تحديث مجموعة العدادات hits=hits+1 حيث kid=1) //counter هو اسم الجدول المستخدم لتخزين البيانات في قاعدة البيانات
application.UnLock()
الجلسة (الزيارة) = نعم
نهاية إذا
تعيين rs=conn.execute(اختر * من kuo حيث طفل=1)
إذا rs.eof وrs.bof ذلك الحين
العدادات=0
آخر
العدادات=RS(الزيارات)
نهاية إذا
rs. Close
conn. Close
تعيين RS=لا شيء
تعيين كون = لا شيء
%>